98
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
99
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;
100
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;
101
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
102
{$R *.dfm}
end.