88
edit_bg.showmodal;
end;
procedure Tbuying.Button3Click(Sender: TObject);
begin
if DataModule1.Table4.RecordCount=0 then exit;
if MessageDlg('Удалить запись?',mtConfirmation,[mbOk,mbNo],0)=mrOk
then begin
DataModule1.Table4.Delete;
end;
end;
procedure Tbuying.Button5Click(Sender: TObject);
Var V: Variant;
Sum: String;
begin
V:=Datamodule1.Table1.Lookup('Id',Datamodule1.Table4.FieldValues['IdBuy'],'Nam
e;SurName;PatrName;Address;PsprtData');
if not (VarType(V) in [varNull]) then
begin
Qrep.QRLabel4.Caption:=V[1]+' '+V[0]+' '+V[2];
Qrep.QRLabel6.Caption:=V[3];
Qrep.QRLabel8.Caption:=V[4];
end;
V:=Datamodule1.Table3.Lookup('Id',Datamodule1.Table4.FieldValues['IdCar'],'Stam
p;Color;Numb;OfIssue;CPrice');
if not (VarType(V) in [varNull]) then
begin
Qrep.QRLabel13.Caption:=V[0];
Qrep.QRLabel19.Caption:=V[1];
89
Qrep.QRLabel23.Caption:=V[2];
Qrep.QRLabel21.Caption:=V[3];
end;
//Qrep.QRLabel4.Caption:=Datamodule1.Table1.Lookup()
Sum:=RealToRouble(V[4]);
Qrep.QRLabel25.Caption:=Sum;
Qrep.QRLabel35.Caption:=Sum;
Qrep.QuickRep1.Preview;
end;
end.
car.pas
unit mcar;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls;
type
Tcar = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
90
Button5: TButton;
Button6: TButton;
Edit3: TEdit;
Label3: TLabel;
Button7: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
car: Tcar;
implementation
uses dmodule1, medit_br, medit_cr;
{$R *.DFM}
procedure Tcar.Button4Click(Sender: TObject);
begin
DataModule1.Table3.Filtered:=False;
Button5.Visible:=True;
Button6.Visible:=False;
91
Edit1.Text:='';
Edit2.Text:='';
Edit1.Enabled:=True;
Edit2.Enabled:=True;
close;
end;
procedure Tcar.Button1Click(Sender: TObject);
begin
DataModule1.Table3.Edit;
edit_cr.Caption:='Изменить';
edit_cr.showmodal;
end;
procedure Tcar.Button2Click(Sender: TObject);
begin
DataModule1.Table3.Append;
edit_cr.Caption:='Добавить';
edit_cr.showmodal;
end;
procedure Tcar.Button3Click(Sender: TObject);
begin
if DataModule1.Table3.RecordCount=0 then exit;
if MessageDlg('Удалить запись?',mtConfirmation,[mbOk,mbNo],0)=mrOk
then begin
DataModule1.Table3.Delete;
end;
end;
procedure Tcar.Button5Click(Sender: TObject);
begin
92
DataModule1.Table3.Filter:='Price>='+Edit1.text+' and Price<='+Edit2.text;
DataModule1.Table3.Filtered:=True;
Button5.Visible:=False;
Button6.Visible:=True;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
end;
procedure Tcar.Button6Click(Sender: TObject);
begin
DataModule1.Table3.Filtered:=False;
Button5.Visible:=True;
Button6.Visible:=False;
Edit1.Enabled:=True;
Edit2.Enabled:=True;
end;
procedure Tcar.Button7Click(Sender: TObject);
var
KeyFields : string;
KeyValues : Variant;
Options : TLocateOptions;
begin
KeyFields:='Stamp';
KeyValues:=car.edit3.text;
Options:=[loCaseInsensitive, loPartialKey];
if not DataModule1.Table3.Locate(KeyFields,KeyValues,Options) then
messagedlg('Запись не найдена!',mtInformation,[mbOk],0);
end;
end.
93
edit_bg.pas
unit medit_bg;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, Mask, ExtCtrls;
type
Tedit_bg = class(TForm)
ScrollBox: TScrollBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
EditPrice: TDBEdit;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
94
edit_bg: Tedit_bg;
implementation
uses dmodule1, mbuyer;
{$R *.DFM}
procedure Tedit_bg.Button1Click(Sender: TObject);
begin
If (DBLookUPComboBox1.Text<>'') and (DBLookUPComboBox2.Text<>'')
and (EditPrice.Text<>'')Then
Begin
DataModule1.Table4.Post;
close;
End
Else
Begin
ShowMessage('Не все поля заполнены');
End;
end;
procedure Tedit_bg.Button2Click(Sender: TObject);
begin
DataModule1.Table4.Cancel;
close;
end;
procedure Tedit_bg.Button3Click(Sender: TObject);
begin
buyer.showmodal;
DataModule1.Table4.Append;
edit_bg.Caption:='Добавить';
95
edit_bg.Visible:=True;
end;
end.
edit_br.pas
unit medit_br;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, Mask, DBTables, ExtCtrls;
type
Tedit_br = class(TForm)
Panel2: TPanel;
ScrollBox: TScrollBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
EditName: TDBEdit;
EditSurname: TDBEdit;
EditPatrName: TDBEdit;
EditPsprtData: TDBEdit;
EditOfBirth: TDBEdit;
EditAddress: TDBEdit;
96
EditINN: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
edit_br: Tedit_br;
implementation
uses dmodule1;
{$R *.DFM}
procedure Tedit_br.Button2Click(Sender: TObject);
begin
DataModule1.Table1.Cancel;
close;
end;
procedure Tedit_br.Button1Click(Sender: TObject);
begin
DataModule1.Table1.Post;
close;
end;
97
end.
supplier.pas
unit msupplier;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls, ExtCtrls;
type
Tsupplier = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
RadioGroup1: TRadioGroup;
Button5: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var