107
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;
108
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
109
supplier: Tsupplier;
implementation
uses dmodule1, medit_sp;
{$R *.DFM}
procedure Tsupplier.Button4Click(Sender: TObject);
begin
close;
end;
procedure Tsupplier.Button1Click(Sender: TObject);
begin
DataModule1.Table2.Edit;
edit_sp.Caption:='Изменить';
edit_sp.showmodal;
end;
procedure Tsupplier.Button2Click(Sender: TObject);
begin
DataModule1.Table2.Append;
edit_sp.Caption:='Добавить';
edit_sp.showmodal;
end;
procedure Tsupplier.Button3Click(Sender: TObject);
begin
if DataModule1.Table2.RecordCount=0 then exit;
if MessageDlg('Удалить запись?',mtConfirmation,[mbOk,mbNo],0)=mrOk
then begin
110
DataModule1.Table2.Delete;
end;
end;
procedure Tsupplier.Button5Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:DataModule1.Table2.IndexName:='indName';
1:DataModule1.Table2.IndexName:='indPhone';
end;
end;
end.
q-rep.pas
unit Ureport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls, Main;
type
TQRep = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
111
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRLabel35: TQRLabel;
QRLabel36: TQRLabel;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRLabel39: TQRLabel;
112
QRLabel40: TQRLabel;
QRLabel41: TQRLabel;
QRLabel42: TQRLabel;
QRLabel43: TQRLabel;
QRLabel44: TQRLabel;
QRLabel45: TQRLabel;
QRLabel46: TQRLabel;
QRLabel47: TQRLabel;
QRLabel48: TQRLabel;
QRLabel49: TQRLabel;
QRLabel50: TQRLabel;
QRLabel51: TQRLabel;
QRLabel52: TQRLabel;
QRLabel53: TQRLabel;
QRLabel54: TQRLabel;
QRLabel55: TQRLabel;
QRLabel56: TQRLabel;
QRLabel57: TQRLabel;
QRLabel58: TQRLabel;
QRLabel59: TQRLabel;
QRLabel60: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
QRep: TQRep;
implementation
{$R *.dfm}
end.
