📄 mc_dy_xq.pas
字号:
unit MC_DY_XQ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, ExtCtrls,
QuickRpt, Qrctrls;
type
TDY_XQ = class(TForm)
Table1: TTable;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner3: TStringField;
Table1BDEDesigner4: TStringField;
Table1BDEDesigner5: TIntegerField;
Table1BDEDesigner6: TIntegerField;
Table1BDEDesigner7: TFloatField;
Table1BDEDesigner8: TFloatField;
Table1BDEDesigner9: TIntegerField;
Table1BDEDesigner10: TStringField;
Table1BDEDesigner13: TDateTimeField;
Table1BDEDesigner14: TDateTimeField;
Table1BDEDesigner15: TFloatField;
DataSource1: TDataSource;
DBLookupComboBox1: TDBLookupComboBox;
Table2: TTable;
Table2BDEDesigner: TStringField;
Table2BDEDesigner2: TStringField;
Table2BDEDesigner3: TStringField;
Table2BDEDesigner4: TStringField;
Table2BDEDesigner5: TIntegerField;
Table2BDEDesigner6: TIntegerField;
Table2BDEDesigner7: TIntegerField;
Table2BDEDesigner8: TStringField;
Table2BDEDesigner9: TStringField;
Table2BDEDesigner12: TFloatField;
Table2BDEDesigner13: TDateTimeField;
Table2BDEDesigner14: TDateTimeField;
Table2BDEDesigner15: TStringField;
Table2BDEDesigner16: TStringField;
Table2BDEDesigner17: TIntegerField;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Table3: TTable;
DataSource3: TDataSource;
Table3BDEDesigner: TStringField;
Table3BDEDesigner2: TStringField;
Table3BDEDesigner3: TStringField;
Table3BDEDesigner4: TStringField;
Table3BDEDesigner5: TStringField;
Table3BDEDesigner6: TStringField;
Table3BDEDesigner7: TStringField;
Table3BDEDesigner8: TStringField;
Table3BDEDesigner9: TStringField;
Table3BDEDesigner10: TStringField;
Table3BDEDesigner11: TStringField;
Table3BDEDesigner12: TStringField;
Table3BDEDesigner13: TStringField;
Table3BDEDesigner14: TStringField;
Table3BDEDesigner15: TStringField;
Table3BDEDesigner16: TStringField;
Table3BDEDesigner17: TFloatField;
Table3BDEDesigner18: TFloatField;
Table3BDEDesigner19: TFloatField;
Table3BDEDesigner20: TFloatField;
Table3BDEDesigner21: TStringField;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Bevel1: TBevel;
BitBtn4: TBitBtn;
Query1: TQuery;
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
SummaryBand1: TQRBand;
DetailBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape13: TQRShape;
QRLabel14: TQRLabel;
QRExpr1: TQRExpr;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRShape12: TQRShape;
QuickRep2: TQuickRep;
PageHeaderBand2: TQRBand;
QRLabel15: TQRLabel;
QRShape14: TQRShape;
DetailBand2: TQRBand;
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;
QRShape15: TQRShape;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape19: TQRShape;
QRShape20: TQRShape;
QRShape21: TQRShape;
QRShape22: TQRShape;
QRShape23: TQRShape;
QRShape24: TQRShape;
QRShape25: TQRShape;
SummaryBand2: TQRBand;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRLabel31: TQRLabel;
QRExpr2: TQRExpr;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
QRDBText20: TQRDBText;
QRDBText21: TQRDBText;
QRDBText22: TQRDBText;
QRDBText23: TQRDBText;
QRDBText24: TQRDBText;
QRDBText25: TQRDBText;
QRDBText26: TQRDBText;
QRDBText27: TQRDBText;
QuickRep3: TQuickRep;
PageHeaderBand3: TQRBand;
QRLabel32: TQRLabel;
QRShape28: TQRShape;
TitleBand1: TQRBand;
QRShape29: TQRShape;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRLabel35: TQRLabel;
QRLabel36: TQRLabel;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRLabel39: TQRLabel;
QRLabel40: TQRLabel;
QRLabel41: TQRLabel;
QRShape30: TQRShape;
QRShape31: TQRShape;
QRShape32: TQRShape;
QRShape33: TQRShape;
QRShape34: TQRShape;
QRShape35: TQRShape;
QRShape36: TQRShape;
QRShape37: TQRShape;
DetailBand3: TQRBand;
QRShape38: TQRShape;
QRShape39: TQRShape;
QRShape40: TQRShape;
QRShape41: TQRShape;
QRShape42: TQRShape;
QRShape43: TQRShape;
QRShape44: TQRShape;
QRShape45: TQRShape;
QRShape46: TQRShape;
QRDBText28: TQRDBText;
QRDBText29: TQRDBText;
QRDBText30: TQRDBText;
QRDBText31: TQRDBText;
QRDBText32: TQRDBText;
QRDBText33: TQRDBText;
QRDBText34: TQRDBText;
QRDBText35: TQRDBText;
QRDBText36: TQRDBText;
SummaryBand3: TQRBand;
QRShape47: TQRShape;
QRLabel42: TQRLabel;
QRExpr3: TQRExpr;
QRLabel43: TQRLabel;
QRSysData1: TQRSysData;
procedure BitBtn4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure QuickRep1Preview(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure QuickRep2Preview(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure QuickRep3Preview(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DY_XQ: TDY_XQ;
implementation
uses MC_DYYLBrose;
{$R *.DFM}
procedure TDY_XQ.BitBtn4Click(Sender: TObject);
begin
Close;
end;
procedure TDY_XQ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DY_XQ.Release;
DY_XQ:=Nil;
end;
procedure TDY_XQ.FormShow(Sender: TObject);
var a : Integer;
begin
DBLookupComboBox1.KeyValue:=Table1.FieldByName('小区名').AsString;
if Table2.RecordCount<>0 then
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select Max(单元) From 房屋信息表 Where 大楼名=:A');
ParamByName('A').AsString:=Table2.FieldByName('大楼名称').AsString;
Open;
end;
For a:=1 to Query1.Fields[0].AsInteger do
begin
ComboBox1.Items.Add(IntToStr(a));
end;
end;
Query1.Close;
end;
procedure TDY_XQ.ComboBox1Change(Sender: TObject);
begin
Table3.Filter:='单元 ='''+ComboBox1.Items[ComboBox1.ItemIndex]+'''';
Table3.Filtered:=true;
end;
procedure TDY_XQ.QuickRep1Preview(Sender: TObject);
begin
DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
procedure TDY_XQ.BitBtn1Click(Sender: TObject);
begin
if Table1.RecordCount<>0 then
begin
DYYLBrose.Show;
QUickRep1.Preview;
end;
end;
procedure TDY_XQ.QuickRep2Preview(Sender: TObject);
begin
DYYLBrose.QRPreview1.QRPrinter:=QuickRep2.QRPrinter;
end;
procedure TDY_XQ.BitBtn2Click(Sender: TObject);
begin
if Table2.RecordCount<>0 then
begin
DYYLBrose.Show;
QUickRep2.Preview;
end;
end;
procedure TDY_XQ.QuickRep3Preview(Sender: TObject);
begin
DYYLBrose.QRPreview1.QRPrinter:=QuickRep3.QRPrinter;
end;
procedure TDY_XQ.BitBtn3Click(Sender: TObject);
begin
if Table3.RecordCount<>0 then
begin
DYYLBrose.Show;
QUickRep3.Preview;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -