78
if not Main.ADOTable2.Locate('Артикул', Edit1.Text,[loCaseInsensitive]) then
ShowMessage('Не найдено')
except
ShowMessage('Необходимо ввести правильное значение');
end;
end;
procedure TDoors.sButton2Click(Sender: TObject);
begin
try
if not Main.ADOTable2.Locate('Наименование', Edit2.Text,[loCaseInsensitive]) then
ShowMessage('Не найдено')
except
ShowMessage('Необходимо ввести правильное значение');
end;
end;
procedure TDoors.N9Click(Sender: TObject);
begin
About.Showmodal;
end;
procedure TDoors.N1Click(Sender: TObject);
begin
Main.ADOTable2.Edit;
Edit_doors.Showmodal;
end;
procedure TDoors.N2Click(Sender: TObject);
begin
Main.ADOTable2.Append;
Edit_doors.Showmodal;
end;
procedure TDoors.N5Click(Sender: TObject);
79
begin
Managers.Showmodal;
end;
end.
Unit 4.pas
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TAbout = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
About: TAbout;
implementation
{$R *.dfm}
end.
Unit 5.pas
unit Unit4;
interface
uses
80
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TAbout = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
About: TAbout;
implementation
{$R *.dfm}
end.
Unit 6.pas
unit Unit6;
interface
uses
Unit1, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, sButton, DBCtrls, ExtCtrls, sPanel,
sMonthCalendar, Mask, sMaskEdit, sCustomComboEdit, sCurrEdit, DB, ADODB,
Menus;
type
TRequest = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label1: TLabel;
sCalcEdit1: TsCalcEdit;
sMonthCalendar1: TsMonthCalendar;
81
Label3: TLabel;
sButton2: TsButton;
Edit2: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
procedure sButton2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Request: TRequest;
implementation
uses Unit7, Unit4, Unit8, Unit9, Unit10;
{$R *.dfm}
procedure TRequest.sButton2Click(Sender: TObject);
begin
try
if not Main.ADOTable3.Locate('ФИО', Edit2.Text,[loCaseInsensitive]) then
ShowMessage('Не найдено')
82
except
ShowMessage('Необходимо ввести правильное значение');
end;
end;
procedure TRequest.N4Click(Sender: TObject);
begin
Request.Close;
end;
procedure TRequest.N6Click(Sender: TObject);
begin
Managers.showmodal;
end;
procedure TRequest.N10Click(Sender: TObject);
begin
About.showmodal;
end;
procedure TRequest.N2Click(Sender: TObject);
begin
Main.ADOTable3.Edit;
Edit_request.Showmodal;
end;
procedure TRequest.N3Click(Sender: TObject);
begin
Main.ADOTable3.Append;
Edit_request.Showmodal;
end;
procedure TRequest.N8Click(Sender: TObject);
begin
If main.ADOTable3.RecordCount>0 then
Begin
Form9.QuickRep1.Preview;
End
83
Else
ShowMessage('Нет записей пользователей!')
end;
procedure TRequest.N9Click(Sender: TObject);
begin
If main.ADOTable3.RecordCount>0 then
/Begin
Form10.QuickRep1.Preview;
End
Else
ShowMessage('Нет записей пользователей!')
end;
end.
Unit 7.pas
unit Unit7;
interface
uses
Unit1, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TManagers = class(TForm)
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Managers: TManagers;
implementation
84
{$R *.dfm}
end.
Unit 8.pas
unit Unit8;
interface
uses
Unit1, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, sButton;
type
TEdit_request = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBMemo1: TDBMemo;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
sButton1: TsButton;
sButton2: TsButton;
procedure sButton2Click(Sender: TObject);
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
85
var
Edit_request: TEdit_request;
implementation
{$R *.dfm}
procedure TEdit_request.sButton2Click(Sender: TObject);
begin
Edit_request.Close;
end;
procedure TEdit_request.sButton1Click(Sender: TObject);
begin
Main.ADOTable3.FieldByName('Номер заказа').AsString:=DBEdit1.Text;
Main.ADOTable3.FieldByName('Код клиента').AsString:=DBEdit2.Text;
Main.ADOTable3.FieldByName('Артикул').AsString:=DBEdit3.Text;
Main.ADOTable3.FieldByName('Количество').AsString:=DBEdit4.Text;
Main.ADOTable3.FieldByName('Цена').AsString:=DBEdit5.Text;
Main.ADOTable3.FieldByName('Скидка %').AsString:=DBEdit6.Text;
Main.ADOTable3.FieldByName('ФИО').AsString:=DBEdit7.Text;
Main.ADOTable3.FieldByName('Доставка').AsString:=DBMemo1.Text;
Edit_request.Close;
end;
end.
Unit 9.pas
unit Unit9;
interface
uses
Unit1, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;
type
TForm9 = class(TForm)
QuickRep1: TQuickRep;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
86
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRDBText2: TQRDBText;
QRLabel6: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel7: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRDBText3: TQRDBText;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRDBText4: TQRDBText;
QRLabel29: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRDBText5: TQRDBText;
QRLabel35: TQRLabel;
QRDBText6: TQRDBText;
QRLabel36: TQRLabel;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
87
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRLabel39: TQRLabel;
QRLabel40: TQRLabel;
QRLabel41: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
end.
Unit 10.pas
unit Unit10;
interface
uses
Unit1, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TForm10 = class(TForm)
QuickRep1: TQuickRep;
QRLabel1: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel38: TQRLabel;
QRDBText9: TQRDBText;
QRLabel34: TQRLabel;
QRDBText5: TQRDBText;
QRLabel41: TQRLabel;
QRLabel2: TQRLabel;