Создание программного обеспечения для небольшого супермаркета
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ormActivate(Sender: TObject);.ListBox1.Items.LoadFromFile(path+'edin.txt');.Columns[4].PickList:=form10.ListBox1.Items;;TForm1.N22Click(Sender: TObject);.show;TForm1.N23Click(Sender: TObject);.show;.
ПРИЛОЖЕНИЕ 2. ЛИСТИНГ UNIT2
база данное программный delphi
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, inifiles, jpeg, ExtCtrls;= class(TForm): TComboBox;: TEdit;: TBitBtn;: TBitBtn;: TLabel;: TLabel;: TImage;ReadParams; // процедура чтения параметровBitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations },parolkassir:string[5];;: TForm2;:integer;Unit1, Unit3;
{$R *.dfm}TForm2.BitBtn1Click(Sender: TObject);combobox1.Text='администратор' thenedit1.text=paroladmin then1.Show; //показать главное окно
form2.tag:=1;
form2.close;showmessage('Пароль не верен');combobox1.Text='кассир' thenedit1.text=parolkassir then
Form3.Show; //показать главное окно
form2.Tag:=1;.close;showmessage('Пароль не верен');;TForm2.BitBtn2Click(Sender: TObject);form2.tag=0 then Application.Terminate;;TForm2.FormClose(Sender: TObject; var Action: TCloseAction);form2.tag=0 then Application.Terminate;;TForm2.ReadParams;IniFile:TIniFile;Path:String; // объявление переменной, через которую будут обрабатываться данные
Path:=Application.ExeName; // полный путь и название запущенной программы
Path:=ExtractFileDir(Path); // отбрасываем название программы. Остается путь.
if Path[Length(Path)]<>'\' then Path:=Path+'\'; // если последний символ не \ то добавить его
{Последняя строка нужна для присвоения последнего символа '\',
потому что при обрезке файла 'C:\PROG.EXE' получим 'C:\',
а при обрезке 'C:\WINDOWS\PROG.EXE' получим 'C:\WINDOWS' }
IniFile:=TIniFile.Create(Path+'project.ini');
//IniFile:=TIniFile.Create('project.ini'); // создаем переменную:=IniFile.ReadString('FORM1','parol1','');:=IniFile.ReadString('FORM1','parol2','');.Free;;TForm2.FormCreate(Sender: TObject);Path:String;;;.
ПРИЛОЖЕНИЕ 3. ЛИСТИНГ UNIT3
Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, DB, DBTables, ExtCtrls, DBCtrls,, RpCon, RpConDS, RpConBDE, RpRenderCanvas, RpRenderPrinter,, RpRender, RpRenderText, jpeg;= class(TForm): TDBGrid;: TEdit;: TTable;: TDBGrid;: TDataSource;: TLabel;: TButton;: TLabel;: TEdit;: TLabel;: TLabel;: TDBNavigator;: TButton;: TImage;: TLabel;: TEdit;FormClose(Sender: TObject; var Action: TCloseAction);FormCreate(Sender: TObject);Button1Click(Sender: TObject);Edit1Change(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);FormShow(Sender: TObject);Edit2KeyPress(Sender: TObject; var Key: Char);Button2Click(Sender: TObject);Edit3KeyPress(Sender: TObject; var Key: Char);
{ Private declarations }
{ Public declarations };: TForm3;:real;
Unit1, Unit2, Unit4, Unit14;
{$R *.dfm}TForm3.FormClose(Sender: TObject; var Action: TCloseAction);.Terminate;;TForm3.FormCreate(Sender: TObject);.table2.Active:=true;.table1.Active:=true;.Table1.DatabaseName:=Path;.table1.tablename:='chek.db';.Active:=true;.Edit;not(Table1.IsEmpty) do table1.Delete;;TForm3.Button1Click(Sender: TObject);.Edit;not(Table1.IsEmpty) do table1.Delete;.SetFocus ;.Caption:='';:=0;.Text:='';;TForm3.Edit1Change(Sender: TObject);
//form1.Table1.SetKey;
//form1.Table1.FieldByName('kod').Asinteger := strtoint(Edit1.Text);
//form1.Table1.GotoKey;;TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);key=#13 then beginnot(form1.Table1.Locate('kod',edit1.Text,[]))begin showmessage('Код не существует'); edit1.Text:=''; end.SetFocus;;;TForm3.FormShow(Sender: TObject);.SetFocus;TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);key=#13 then beginstrtofloat(edit2.Text)<= form1.Table1.FieldByName('Kol_vo').AsFloatbegin.insert;.FieldByName('kod').AsInteger :=form1.Table1.FieldValues['kod'];.FieldByName('Name').Asstring :=form1.Table1.FieldValues['name'];.FieldByName('Cena').Asstring :=form1.Table1.FieldValues['cena'];.FieldByName('trademark').Asstring :=form1.Table1.FieldValues['trademark'];.FieldByName('Kol_vo').AsFloat:=strtofloat(edit2.Text);.FieldByName('Summa').AsFloat:=Table1.FieldByName('Kol_vo').AsFloat*Table1.FieldByName('Cena').AsFloat;.Table1.Edit;.Table1.FieldByName('Kol_vo').AsFloat:= form1.Table1.FieldByName('Kol_vo').AsFloat-strtofloat(edit2.Text);.Table1.Post ;.Prior;:=0;not(Table1.eof) do begin:=s+Table1.FieldByName('Summa').AsFloat;.Next;showmessage('не хватает количества');.Caption:=floattostr(s);.Text:='';.Text:='';.SetFocus;;TForm3.Button2Click(Sender: TObject);.show;.QuickRep1.Preview;.close;;
TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);key=#13 then button2.Click;
.
ПРИЛОЖЕНИЕ 4. ЛИСТИНГ UNIT4
Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, inifiles, ExtCtrls, jpeg;= class(TForm): TEdit;: TEdit;: TButton;: TBevel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TImage;Button1Click(Sender: TObject);WriteParams;FormClose(Sender: TObject; var Action: TCloseAction);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm4;Unit2;
{$R *.dfm}TForm4.Button1Click(Sender: TObject);edit1.Text=form2.paroladmin thenform2.paroladmin:=edit2.text;('пароль принят');showmessage('пароль не верен');;TForm4.WriteParams;IniFile:TIniFile;Path:String;
Path:=Application.ExeName; // полный путь и название запущенной программы
Path:=ExtractFileDir(Path); // отбрасываем название программы. Остается путь.
if Path[Length(Path)]<>'\' then Path:=Path+'\'; // если последний символ не \ то добавить его
{Последняя строка нужна для присвоения последнего символа '\',
потому что при обрезке файла 'C:\PROG.EXE' получим 'C:\',
а при обрезке 'C:\WINDOWS\PROG.EXE' получим 'C:\WINDOWS' }
//IniFile:=TIniFile.Create('project.ini');:=TIniFile.Create(Path+'project.ini');.WriteString('FORM1','parol1',form2.parolkassir);.WriteString('FORM1','parol2',form2.paroladmin);.Free;;TForm4.FormClose(Sender: TObject; var Action: TCloseAction);;;TForm4.Button2Click(Sender: TObject);edit3.Text=form2.parolkassir then begin.parolkassir:=edit4.text;('пароль принят');showmessage('пароль не верен');;.
ПРИЛОЖЕНИЕ 5. ЛИСТИНГ UNIT5
Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, jpeg, ExtCtrls;TForm5 = class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TButton;: TComboBox;: TImage;: TComboBox;: TComboBox;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Edit2KeyPress(Sender: TObject; var Key: Char);Edit3KeyPress(Sender: TObject; var Key: Char);Edit4KeyPress(Sender: TObject; var Key: Char);Edit5KeyPress(Sender: TObject; var Key: Char);DateTimePicker1Change(Sender: TObject);FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm5;Unit1, Unit2, Unit3, Unit4;
{$R *.dfm}TForm5.Button1Click(Sender: TObject);.Table1.insert;.Table1.FieldByName('Name').Asstring :=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.FieldByName('Kol_vo').Asinteger:=0;.table1.Next;.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Close;TForm5.Button2Click(Sender: TObject);.Close;TForm5.Edit2KeyPress(Sender: TObject; var Key: Char);key=#13 then edit3.SetFocus;;TForm5.Edit3KeyPress(Sender: TObject; var Key: Char);key=#13 then edit4.SetFocus;;TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);key=#13 then combobox1.SetFocus;;TForm5.Edit5KeyPress(Sender: TObject; var Key: Char);key=#13 then edit6.SetFocus;;TForm5.DateTimePicker1Change(Sender: TObject);.SetFocus;;TForm5.FormActivate(Sender: TObject);.Items.LoadFromFile(path+'edin.txt');.Items.LoadFromFile(path+'firm.txt');.Items.LoadFromFile(path+'vid.txt');;.
ПРИЛОЖЕНИЕ 6. ЛИСТИНГ UNIT6
Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, jpeg, ExtCtrls;= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TButton;: TComboBox;: TButton;: TButton;: TImage;: TComboBox;: TComboBox;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Edit2KeyPress(Sender: TObject; var Key: Char);Edit3KeyPress(Sender: TObject; var Key: Char);Edit4KeyPress(Sender: TObject; var Key: Char);Edit5KeyPress(Sender: TObject; var Key: Char);DateTimePicker1Change(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm6;Unit1, Unit5;
{$R *.dfm}TForm6.Button1Click(Sender: TObject);.Table1.edit;.Table1.FieldByName('Name').Asstrin