【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了MC_GZFYFrom.pas提供大家参考,希望对大家有所帮助!
unit MC_GZFYFrom;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Db, DBTables,
Qrctrls, QuickRpt;
type
TGZFYFrom = class(TForm)
GroupBox3: TGroupBox;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
DBText8: TDBText;
Bevel2: TBevel;
Label26: TLabel;
Label32: TLabel;
GroupBox1: TGroupBox;
DBGrid2: TDBGrid;
Panel2: TPanel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Bevel1: TBevel;
Label13: TLabel;
Label14: TLabel;
GroupBox5: TGroupBox;
ListBox1: TListBox;
BitBtn5: TBitBtn;
Query3: TQuery;
Query2: TQuery;
Query1: TQuery;
DataSource1: TDataSource;
GroupBox4: TGroupBox;
BitBtn4: TBitBtn;
Panel1: TPanel;
Bevel3: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn6: TBitBtn;
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel15: TQRLabel;
QRShape2: TQRShape;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
QRDBText1: TQRDBText;
QRLabel2: TQRLabel;
QRLabel5: TQRLabel;
QRDBText4: TQRDBText;
DetailBand1: TQRBand;
QRDBText8: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText14: TQRDBText;
SummaryBand1: TQRBand;
QRShape3: TQRShape;
QRDBText5: TQRDBText;
QRLabel7: TQRLabel;
QRExpr1: TQRExpr;
QRLabel17: TQRLabel;
QRLabel9: TQRLabel;
QRLabel16: TQRLabel;
QRLabel18: TQRLabel;
GroupBox6: TGroupBox;
Edit1: TEdit;
BitBtn7: TBitBtn;
Edit2: TEdit;
Label22: TLabel;
Label27: TLabel;
BitBtn8: TBitBtn;
Edit3: TEdit;
Edit4: TEdit;
Label28: TLabel;
Label33: TLabel;
BitBtn9: TBitBtn;
GroupBox7: TGroupBox;
Edit5: TEdit;
Edit6: TEdit;
Label34: TLabel;
Label35: TLabel;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
Edit7: TEdit;
Edit8: TEdit;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel6: TQRLabel;
QRLabel8: TQRLabel;
QRLabel14: TQRLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure QuickRep1Preview(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit1Enter(Sender: TObject);
procedure Edit2Exit(Sender: TObject);
procedure Edit2Enter(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure Edit3Enter(Sender: TObject);
procedure Edit3Exit(Sender: TObject);
procedure Edit4Enter(Sender: TObject);
procedure Edit4Exit(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure Edit7Enter(Sender: TObject);
procedure Edit7Exit(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit5Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
GZFYFrom: TGZFYFrom;
implementation
uses MC_DYYLBrose, MC_TLCYGLXT;
{$R *.DFM}
procedure TGZFYFrom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
GZFYFrom.Release;
GZFYFrom:=Nil;
end;
procedure TGZFYFrom.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TGZFYFrom.BitBtn4Click(Sender: TObject);
begin
QRLabel18.Caption:=Label12.Caption;
QRLabel16.Caption:=Label14.Caption;
DYYLBrose.Show;
QuickRep1.Preview;
end;
procedure TGZFYFrom.QuickRep1Preview(Sender: TObject);
begin
DYYLBrose.QrPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
procedure TGZFYFrom.Edit1Exit(Sender: TObject);
begin
Edit1.Color:=ClWindow;
end;
pr