Дипломная работа: Автоматизация процесса приема техники на ремонтные работы в ООО "Цифровой синдикат"

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

GrUser: TADOTable;

Sotrid: TAutoIncField;

SotrFIO: TWideStringField;

SotrPhone: TWideStringField;

SotrGrUser: TIntegerField;

SotrGruserL: TStringField;

SotrPass: TWideStringField;

EdIzm: TADOTable;

Label3: TLabel;

EdIzmid: TAutoIncField;

EdIzmnaim: TWideStringField;

EdIzmPrim: TWideStringField;

N17: TMenuItem;

ZakazClient: TADOQuery;

ZakazClientid: TAutoIncField;

ZakazClientDater: TDateTimeField;

ZakazClientSumm: TBCDField;

ZakazClientStatus: TIntegerField;

ZakazClientSotrFIO: TWideStringField;

ZakazClientKlientFIO2: TWideStringField;

Label4: TLabel;

klient: TADOTable;

Label5: TLabel;

Postav: TADOTable;

Label6: TLabel;

klientid: TAutoIncField;

klientFIO: TWideStringField;

klientphone: TWideStringField;

klientadres: TWideStringField;

klientprim: TWideStringField;

Postavid: TAutoIncField;

PostavNaim: TWideStringField;

PostavPhone: TWideStringField;

PostavAdres: TWideStringField;

PostavPrim: TWideStringField;

ZakazPostav: TADOQuery;

Label7: TLabel;

ZakazPostavid: TAutoIncField;

ZakazPostavDater: TDateTimeField;

ZakazPostavFIO: TWideStringField;

ZakazPostavNaim: TWideStringField;

ZakazPostavStatus: TIntegerField;

ZakazPostavidSotr: TIntegerField;

ZakazPostavidPostav: TIntegerField;

Postup: TADOQuery;

Label8: TLabel;

PostupidZakaz: TIntegerField;

PostupPrim: TWideStringField;

PostupStatus: TIntegerField;

Postupdater: TDateTimeField;

PostupSumm: TBCDField;

PostupFIO: TWideStringField;

Prihod: TADOQuery;

Prihodid: TAutoIncField;

PrihodidZakaz: TIntegerField;

Prihodsumm: TBCDField;

PrihodDater: TDateTimeField;

PrihodPrim: TWideStringField;

PrihodidSotr: TIntegerField;

PrihodStatus: TIntegerField;

PrihodFIO: TWideStringField;

Label9: TLabel;

Rashod: TADOQuery;

Label10: TLabel;

RashodFIO: TWideStringField;

Rashodid: TAutoIncField;

Rashoddater: TDateTimeField;

Rashodsumm: TBCDField;

RashodidSotr: TIntegerField;

RashodPoluch: TWideStringField;

RashodPrim: TWideStringField;

RashodStatus2: TIntegerField;

Otgruz: TADOQuery;

Otgruzid: TAutoIncField;

OtgruzidZakaz: TIntegerField;

OtgruzSumm: TBCDField;

OtgruzidSotr: TIntegerField;

OtgruzPrim: TWideStringField;

OtgruzStatus: TIntegerField;

OtgruzDater: TDateTimeField;

OtgruzFIO: TWideStringField;

ZakaKlientTovar: TADOTable;

ZakaKlientTovarid: TAutoIncField;

ZakaKlientTovaridZakaz: TIntegerField;

ZakaKlientTovaridTovar: TIntegerField;

ZakaKlientTovarnum: TIntegerField;

ZakaKlientTovarprice: TBCDField;

Tovar: TADOTable;

Tovarid: TAutoIncField;

Tovarnaim: TWideStringField;

Tovarostatok: TIntegerField;

Tovared: TIntegerField;

ZakaKlientTovarTovarL: TStringField;

ZakaKlientTovarStoim: TCurrencyField;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

TovarEdL: TStringField;

ZakazClientPrim: TWideStringField;

ZakazClientidKlient: TIntegerField;

ZakazClientidSotr: TIntegerField;

TovarPrice: TBCDField;

TovarOstatokL: TFloatField;

ZakaKlientTovarOstatok: TFloatField;

OtgruzTovar: TADOTable;

AutoIncField1: TAutoIncField;

StringField1: TStringField;

IntegerField1: TIntegerField;

IntegerField2: TIntegerField;

IntegerField3: TIntegerField;

BCDField1: TBCDField;

CurrencyField1: TCurrencyField;

FloatField1: TFloatField;

ZakaKlientTovarnumOt: TIntegerField;

OtgruzTovarnumOt: TIntegerField;

OtgruzTovarT: TADOTable;

OtgruzTovarTid: TAutoIncField;

OtgruzTovarTidOtgruz: TIntegerField;

OtgruzTovarTidTovar: TIntegerField;

OtgruzTovarTnum: TIntegerField;

OtgruzTovarTPrice: TBCDField;

OtgruzTovarTTovarL: TStringField;

OtgruzTovarTStoim: TCurrencyField;

ZakaKlientTovarRez: TIntegerField;

OtgruzTovarRez: TIntegerField;

OtgruzTovarnumot1: TIntegerField;

N21: TMenuItem;

ADOQuery1: TADOQuery;

ZakazPostavTovar: TADOTable;

Label14: TLabel;

ZakazPostavTovarid: TAutoIncField;

ZakazPostavTovaridTovar: TIntegerField;

ZakazPostavTovaridZakaz: TIntegerField;

ZakazPostavTovarnum: TIntegerField;

ZakazPostavTovarTovarL: TStringField;

ZakazPostavTovarprice: TBCDField;

ZakazPostavTovarStoim: TCurrencyField;

ZakazPostavPrim: TWideStringField;

ZakazPostavSumm: TBCDField;

Tovarzakupprice: TBCDField;

Tovarzakazano: TIntegerField;

PostupTovarT: TADOTable;

Label15: TLabel;

Label16: TLabel;

PostupTovar: TADOTable;

PostupTovarTid: TAutoIncField;

PostupTovarTidtovar: TIntegerField;

PostupTovarTidPostup: TIntegerField;

PostupTovarTnum: TIntegerField;

PostupTovarid: TAutoIncField;

PostupTovaridTovar: TIntegerField;

PostupTovaridZakaz: TIntegerField;

PostupTovarnum: TIntegerField;

PostupTovarprice: TBCDField;

PostupTovarTovarL: TStringField;

PostupTovarStoim: TFloatField;

PostupTovarTprice: TBCDField;

PostupTovarTnumpostup: TIntegerField;

PostupTovarTTovarL: TStringField;

PostupTovarTStoim: TFloatField;

PostupTovarnumpostup: TIntegerField;

ZakazPostavpostup: TIntegerField;

Postupid: TAutoIncField;

PostupidSotr: TAutoIncField;

procedure CreateSpravForm(const childName, id: string;

table: TDataset;

p: integer);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure ZakaKlientTovarCalcFields(DataSet: TDataSet);

procedure N14Click(Sender: TObject);

procedure TovarCalcFields(DataSet: TDataSet);

procedure OtgruzTovarCalcFields(DataSet: TDataSet);

procedure OtgruzTovarTCalcFields(DataSet: TDataSet);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Othet(const Data: TADOQUERY; Otchetname: string);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure ZakazPostavTovarCalcFields(DataSet: TDataSet);

procedure PostupTovarCalcFields(DataSet: TDataSet);

procedure PostupTovarTCalcFields(DataSet: TDataSet);

private

procedure CreateDocForm(const childName: string; table:

TDataset;

p: integer);

procedure CreateOtchetForm(const childName:String; p:

integer);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Sprav, Doc, Login, Otchet;

{$R *.dfm}

//процедура для создания формы для ввода параметров отчета

procedure TForm1.CreateOtchetForm(const childName:String; p:

integer); //параметры - название формы и индекс отчета

var

Child: TForm9;

i,k :integer;

f : boolean;

begin

f:=False; //влаг-ложь

k:=0;

for i:=0 to Form1.MDIChildCount-1 do //проверяем

создан ли экземнляр такого окна

if (Form1.MDIChildren[i] is TForm9) then

begin

f:=True;

k:=i;

end;

if (f) then //если создан, то

Form1.MDIChildren[k].Close; //переносим его

вперед

Child := TForm9.Create(Application);

Child.Caption := childName; //задаем название

формы

Child.DateTimePicker1.DateTime:=now-30; //устанавливаем

дату на 30 дней меньше текущей

Child.DateTimePicker2.datetime:=now; //устанавливаем

текущую дату

Child.Label3.Caption:=IntTOStr(p); //индекс отчета

end;

//создание формы для работы со справочником

procedure TForm1.CreateSpravForm(const childName, id : string;

table: TDataset; p: integer);

var

Child: TForm2;

i,k :integer;

f : boolean;

begin

Источник: https://baza.diplomsite.ru/previewfile/2122

Смотрите также:

1_работа_будет_мое
5012
Бесплатная юридическая помощь
Гипотеза флюида в физике
Государственная и политическая карьера С.Ю. Витте и П.А. Столыпина
Записка по КП по ДМ
Особенности ближневосточной политики США накануне Арабской весны