Создание программного обеспечения для небольшого супермаркета
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
g :=edit2.Text;.Table1.FieldByName('Trademark').Asstring := edit3.Text;.Table1.FieldByName('Kind').Asstring := edit4.Text;.Table1.FieldByName('Ed_izm').Asstring := combobox1.Text;.Table1.FieldByName('Cena').AsFloat:=strtofloat(edit6.Text);.table1.post;.Close;TForm6.Button2Click(Sender: TObject);.Close;TForm6.Edit2KeyPress(Sender: TObject; var Key: Char);key=#13 then edit3.SetFocus;;TForm6.Edit3KeyPress(Sender: TObject; var Key: Char);key=#13 then edit4.SetFocus;;TForm6.Edit4KeyPress(Sender: TObject; var Key: Char);key=#13 then combobox1.SetFocus;;TForm6.Edit5KeyPress(Sender: TObject; var Key: Char);key=#13 then edit6.SetFocus;;TForm6.DateTimePicker1Change(Sender: TObject);.SetFocus;;TForm6.Button3Click(Sender: TObject);.Table1.Next;.edit2.Text:=form1.Table1.FieldByName('Name').AsString;.edit3.Text:=form1.Table1.FieldByName('Trademark').AsString;.edit4.Text:=form1.Table1.FieldByName('Kind').AsString;.combobox1.Text:=form1.Table1.FieldByName('Ed_izm').AsString;.edit6.Text:= floattostr(form1.Table1.FieldByName('Cena').AsFloat);;TForm6.Button4Click(Sender: TObject);.Table1.Prior;.edit2.Text:=form1.Table1.FieldByName('Name').AsString;.edit3.Text:=form1.Table1.FieldByName('Trademark').AsString;.edit4.Text:=form1.Table1.FieldByName('Kind').AsString;.combobox1.Text:=form1.Table1.FieldByName('Ed_izm').AsString;.edit6.Text:= floattostr(form1.Table1.FieldByName('Cena').AsFloat);;TForm6.FormActivate(Sender: TObject);.Items.LoadFromFile(path+'edin.txt');.Items.LoadFromFile(path+'firm.txt');.Items.LoadFromFile(path+'vid.txt');;
.
ПРИЛОЖЕНИЕ 7. ЛИСТИНГ UNIT7
Unit7;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QRCtrls, jpeg, QuickRpt, ExtCtrls;TForm7 = class(TForm): TQuickRep;: TQRBand;: TQRBand;: TQRBand;: TQRBand;: TQRLabel;: TQRImage;: TQRLabel;: TQRLabel;: TQRDBText;: TQRDBText;: TQRLabel;: TQRLabel;: TQRDBText;: TQRLabel;: TQRDBText;: TQRLabel;: TQRLabel;: TQRDBText;: TQRLabel;: TQRDBText;: TQRLabel;FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm7;Unit1;
{$R *.dfm}TForm7.FormCreate(Sender: TObject);.Caption:=datetostr(now);;.
ПРИЛОЖЕНИЕ 8. ЛИСТИНГ UNIT10
Unit10;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;= class(TForm): TListBox;: TEdit;: TLabel;: TButton;: TButton;: TButton;: TImage;FormCreate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm10;Unit1;
{$R *.dfm}TForm10.FormCreate(Sender: TObject);.Items.LoadFromFile('edin.txt');;TForm10.Button1Click(Sender: TObject);.Items.Add(edit1.Text);.Text:='';.SetFocus;TForm10.Button2Click(Sender: TObject);.Items.SaveToFile(path+'edin.txt');.close;TForm10.Edit1KeyPress(Sender: TObject; var Key: Char);key=#13 then button1.SetFocus;TForm10.Button3Click(Sender: TObject);.Items.Delete(listbox1.ItemIndex);;.
ПРИЛОЖЕНИЕ 9. ЛИСТИНГ UNIT11
Unit11;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls,, jpeg;= class(TForm): TLabel;: TLabel;: TEdit;: TButton;: TButton;: TComboBox;: TLabel;: TEdit;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);ComboBox1Change(Sender: TObject);FormShow(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm11;Unit1;
{$R *.dfm}TForm11.Button1Click(Sender: TObject);.Table2.insert;.Table2.FieldByName('Name').Asinteger :=strtoint(edit1.Text);.Table2.FieldByName('Naimen').Asstring := combobox1.Text;.Table2.FieldByName('Kol_vo').Asinteger := strtoint(edit7.Text);.Table1.Edit;.Table1.FieldByName('Kol_vo').AsInteger:= form1.Table1.FieldByName('Kol_vo').AsInteger+ strtoint(edit7.Text);.Table1.post;.Table2.FieldByName('data_post').AsDateTime:=now();.table2.Next;.Text:='';.Text:='';.Text:='';;TForm11.Button2Click(Sender: TObject);;;TForm11.ComboBox1Change(Sender: TObject);.Table1.Locate('name',combobox1.Text,[]);.Text:=inttostr(form1.Table1.FieldValues['kod'] );;TForm11.FormShow(Sender: TObject);.Table1.First;.Items.Clear;not(form1.Table1.eof) do begin.Items.Add(form1.Table1.FieldByName('name').Asstring);.table1.Next;;;.
ПРИЛОЖЕНИЕ 10. ЛИСТИНГ UNIT12
Unit12;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;= class(TForm): TImage;: TLabel;: TListBox;: TEdit;: TButton;: TButton;: TButton;FormCreate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm12;Unit10, Unit1;
{$R *.dfm}TForm12.FormCreate(Sender: TObject);.Items.LoadFromFile('firm.txt');;TForm12.Button1Click(Sender: TObject);.Items.Add(edit1.Text);.Text:='';.SetFocus;TForm12.Button2Click(Sender: TObject);.Items.SaveToFile(path+'firm.txt');.close;TForm12.Edit1KeyPress(Sender: TObject; var Key: Char);key=#13 then button1.SetFocus;TForm12.Button3Click(Sender: TObject);.Items.Delete(listbox1.ItemIndex);;.
ПРИЛОЖЕНИЕ 11. ЛИСТИНГ UNIT13
Unit13;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;= class(TForm): TImage;: TLabel;: TListBox;: TEdit;: TButton;: TButton;: TButton;FormCreate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm13;Unit1;
{$R *.dfm}TForm13.FormCreate(Sender: TObject);.Items.LoadFromFile('vid.txt');;TForm13.Button1Click(Sender: TObject);.Items.Add(edit1.Text);.Text:='';.SetFocus;TForm13.Button2Click(Sender: TObject);.Items.SaveToFile(path+'vid.txt');.close;TForm13.Edit1KeyPress(Sender: TObject; var Key: Char);key=#13 then button1.SetFocus;TForm13.Button3Click(Sender: TObject);.Items.Delete(listbox1.ItemIndex);;.
ПРИЛОЖЕНИЕ 12. ЛИСТИНГ UNIT14
Unit14;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, QuickRpt, QRCtrls, ExtCtrls;= class(TForm): TQuickRep;: TQRBand;: TQRBand;: TQRBand;: TQRBand;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;FormShow(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm14;Unit3;
{$R *.dfm}TForm14.FormShow(Sender: TObject);.Caption:=datetimetostr(now);.DataField:='kod';.DataField:='name';.DataField:='trademark';.DataField:='cena';.DataField:='kol_vo';.DataField:='summa';.Caption:=floattostr(s);.Caption:=form3.Edit3.Text;.Caption:=floattostr(strtofloat(form3.Edit3.Text)-s);;.