Реферат Аналіз і облік продажів на складі компанії &LogyCom&

Тема: Курсовые проекты

: pole:= Tovar raquo ;;

: pole:= Naimenovanie raquo ;;

:pole:=laquo;Kod_tovararaquo;;;.Locate(pole,edit4.Text,[locaseinsensitive,lopartialKey]) ;; TForm3.BitBtn21Click (Sender: TObject); pole: shortstring; RadioGroup1.itemindex of

: pole:= Tovar raquo ;;

: pole:= Familiya raquo ;;

:pole:=laquo;Doljnostraquo;;;.Locate(pole,edit9.Text,[locaseinsensitive,lopartialKey]) ;; TForm3.BitBtn22Click (Sender: TObject); a: byte;:=MessageDLg ( Зберегти записи , mtWarning, [mbYES, mbNO], 0); a=1 then.Post ;; TForm3.BitBtn23Click (Sender: TObject); a: byte;:=MessageDLg ( Зберегти записи , mtWarning, [mbYES, mbNO], 0); a=1 then.Post ;; TForm3.Button8Click (Sender: TObject); s: integer ;: longint;:=0; .First; i:=1 to table1.RecordCount do:=s+table1.fieldbyname(laquo;Cena_roznicuraquo;).asinteger;.Next;;.Caption:=inttostr(s);;TForm3.Button9Click(Sender: TObject); s: integer;: longint;:=0; .First; i:=1 to table2.RecordCount do:=s+table2.fieldbyname(laquo;Prodaja_za_mesyacraquo;).asinteger;.Next;;.Caption:=inttostr(s);;TForm3.Button10Click(Sender: TObject); s: integer;: longint;:=0; .First; i:=1 to table2.RecordCount do:=s+table2.fieldbyname(laquo;Brakovanieraquo;).asinteger;.Next;;.Caption:=inttostr(s);;TForm3.Button4Click(Sender: TObject);.Filtered:=false;.FilterOptions:=[focaseinsensitive];.Filter:=laquo;(Tovar=raquo;laquo;raquo;+edit5.Text+laquo;raquo;laquo;)and(Kod_tovara=raquo;+edit6.Text+laquo;)raquo;;.Filtered:=true;;TForm3.Button3Click(Sender: TObject) ;. Filtered:=false ;; TForm3.Button5Click (Sender: TObject) ;. MoveBy (SpinEdit1.Value) ;; TForm3.Button6Click (Sender: TObject) ;. MoveBy (SpinEdit2.Value) ;; TForm3.Button11Click ( Sender: TObject); n: integer; n:=0 to table3.FieldCount - 1 do.Items.Add (table3.Fields [n] .AsString) ;; TForm3.BitBtn5Click (Sender: TObject) ;. First ;; TForm3.BitBtn7Click (Sender: TObject); Table2.Eof then.Next ;; TForm3.BitBtn9Click (Sender: TObject) ;. Last ;; TForm3.BitBtn10Click (Sender: TObject); Table2.Bof then.Prior ;; TForm3.BitBtn11Click ( Sender: TObject) ;. Insert ;; TForm3.BitBtn12Click (Sender: TObject) ;. Delete; ( запис удаліна! ) ;; TForm3.BitBtn13Click (Sender: TObject) ;. First ;; TForm3.BitBtn15Click (Sender:TObject) ;. Last ;; TForm3.BitBtn14Click (Sender: TObject); Table3.Eof then.Next ;; TForm3.BitBtn16Click (Sender: TObject); Table3.Bof then.Prior ;; TForm3.BitBtn17Click (Sender: TObject) ; .Insert ;; TForm3.BitBtn18Click (Sender: TObject) ;. Delete; ( запис удаліна! ) ;; TForm3.BitBtn24Click (Sender: TObject); a: byte;:=MessageDLg ( Зберегти записи , mtWarning, [mbYES, mbNO], 0); a=1 then.Post ;; end.TForm4.SpeedButton1Click (Sender: TObject);f:textfile;:string;,s:string;:=getcurrentdir;(f,laquo;C:Bazaparol.txtraquo;);(f);:=edit1.text;(not (EOF (f))) (f, a) ;; (f); a=c then (f, C: Baza parol.txt ); (f);:=edit2.Text; (f , a); (f); ( пароль успішно змінений , mtinformation, [mbok], 0); messagedlg ( невероно введений поточний пароль , mterror, [mbok], 0) ;; TForm4.SpeedButton2Click (Sender:TObject) ;;. show ;;

ДОДАТОК Б

Вхідні форми

Вхідні форми представлені в таблицях B.1 - B.3.

Таблиця B.1 - Рахунок-фактура

Таблиця B.2- база даних «Аналіз продажів»

ТоварМодельКод товараПродажа за месяцВозвратБракованние

Таблиця B.3- Особовий листок співробітника

ДОДАТОК В

Вихідні форми

Вихідні форми представлені на малюнках С.1 - С.3.

Малюнок С.1 - Дані про товари

Малюнок C.2- дані про продажі товарів