Дипломная работа: Автоматизация и обеспечение безопасности учета посещений клиентов в организации "Чудо Доктор"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
98
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls,db, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
Buttons, jpeg;
type
TForm2 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
TabSheet2: TTabSheet;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
DBGrid3: TDBGrid;
DBNavigator3: TDBNavigator;
DBGrid4: TDBGrid;
DBNavigator4: TDBNavigator;
DBGrid5: TDBGrid;
DBNavigator5: TDBNavigator;
Button3: TButton;
Button4: TButton;
Button6: TButton;
Button7: TButton;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
GroupBox1: TGroupBox;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Button10: TButton;
Button12: TButton;
RadioButton7: TRadioButton;
GroupBox3: TGroupBox;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
GroupBox4: TGroupBox;
RadioButton1: TRadioButton;
RadioButton12: TRadioButton;
GroupBox5: TGroupBox;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
99
Image6: TImage;
GroupBox2: TGroupBox;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
Button5: TButton;
Button11: TButton;
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RadioButton6Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton10Click(Sender: TObject);
procedure RadioButton13Click(Sender: TObject);
procedure RadioButton14Click(Sender: TObject);
procedure RadioButton12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4, Unit6;
{$R *.dfm}
procedure TForm2.Button3Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
100
Form1.Show;
Form2.Hide;
end;
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Код_Пост';
end;
procedure TForm2.RadioButton4Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton5Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Наим_блюда';
end;
procedure TForm2.Button10Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form6.QuickRep2.Preview;
end;
procedure TForm2.Button11Click(Sender: TObject);
begin
form6.QuickRep3.Preview;
end;
procedure TForm2.Button12Click(Sender: TObject);
begin
form6.QuickRep4.Preview;
101
end;
procedure TForm2.Button13Click(Sender: TObject);
begin
form6.QuickRep5.Preview;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
Form2.Hide;
end;
procedure TForm2.RadioButton6Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Цена';
end;
procedure TForm2.RadioButton7Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Дата_пост';
end;
procedure TForm2.RadioButton8Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton9Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='Дата_реал';
end;
procedure TForm2.RadioButton10Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='№_Чека';
end;
procedure TForm2.RadioButton13Click(Sender: TObject);
begin
DataModule3.ADOTable4.IndexFieldNames:='Шифр_доставки';
end;
procedure TForm2.RadioButton14Click(Sender: TObject);
begin
DataModule3.ADOTable4.IndexFieldNames:='Поставщик';
end;
procedure TForm2.RadioButton12Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Счет';
end;
102
end.
unit Unit3;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule3 = class(TDataModule)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
DataSource2: TDataSource;
AdoTable2: TADOTable;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
AdoTable3: TADOTable;
AdoTable4: TADOTable;
AdoTable5: TADOTable;
ADOQuery1: TADOQuery;
DataSource6: TDataSource;
ADOQuery2: TADOQuery;
DataSource7: TDataSource;
ADOQuery3: TADOQuery;
DataSource8: TDataSource;
ADOQuery4: TADOQuery;
ADOQuery5: TADOQuery;
ADOQuery6: TADOQuery;
DataSource9: TDataSource;
DataSource10: TDataSource;
DataSource11: TDataSource;
ADOQuery7: TADOQuery;
ADOQuery8: TADOQuery;
ADOQuery9: TADOQuery;
ADOQuery10: TADOQuery;
DataSource12: TDataSource;
DataSource13: TDataSource;
DataSource14: TDataSource;
DataSource15: TDataSource;
ADOQuery11: TADOQuery;
DataSource16: TDataSource;
ADOQuery12: TADOQuery;
DataSource17: TDataSource;
AdoTable4_: TIntegerField;
AdoTable4DSDesigner: TIntegerField;
AdoTable4DSDesigner2: TSmallintField;
AdoTable1: TADOTable;
AdoTable2_: TIntegerField;
AdoTable2_2: TSmallintField;
Источник: https://baza.diplomsite.ru/previewfile/1765

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

_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)