📄 mc_mhfycx.~pas
字号:
Query4BDEDesigner9: TFloatField;
Query4BDEDesigner10: TFloatField;
Query4BDEDesigner11: TStringField;
Query4BDEDesigner12: TStringField;
Query4BDEDesigner13: TFloatField;
Query4BDEDesigner14: TFloatField;
Query4BDEDesigner15: TFloatField;
Table2BDEDesigner8: TStringField;
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
TitleBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
DetailBand1: TQRBand;
QRShape9: TQRShape;
QRShape15: TQRShape;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape19: TQRShape;
SummaryBand1: TQRBand;
QRShape20: TQRShape;
QRShape21: TQRShape;
QRLabel15: TQRLabel;
QRExpr1: TQRExpr;
QRLabel16: TQRLabel;
QRLabel18: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
Query5: TQuery;
QRExpr2: TQRExpr;
QRExpr3: TQRExpr;
QRLabel12: TQRLabel;
QRDBText4: TQRDBText;
QRLabel17: TQRLabel;
QRExpr4: TQRExpr;
QRShape22: TQRShape;
QRShape23: TQRShape;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Table2AfterScroll(DataSet: TDataSet);
procedure BitBtn1Click(Sender: TObject);
procedure QuickRep1Preview(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MHFYCX: TMHFYCX;
implementation
uses MC_DYYLBrose;
{$R *.DFM}
procedure TMHFYCX.FormShow(Sender: TObject);
var a : Integer;
begin
DBLookupComboBox1.KeyValue:=Query1.FieldByname('小区名').AsString;
If Table1.RecordCount <> 0 Then //如果大楼信息不为空
begin
with Query6 do
begin
Close;
SQL.Clear;
SQL.Add('Select Max(单元) From 房屋信息表 Where 大楼编号=:A');
ParamByName('A').AsString:=Table1.FieldByName('大楼编号').AsString;
Open; //查找大楼的所有单元信息
end;
For a:=1 to Query6.Fields[0].AsInteger do
begin
ComboBox1.Items.Add(IntToStr(a)); //将单元信息复值给单元选择列表框
end;
end;
Query6.Close;
end;
procedure TMHFYCX.ComboBox1Change(Sender: TObject); //选择单元
begin
Table2.Filter:='单元 = '''+ComboBox1.Items[ComboBox1.ItemIndex]+'''';
Table2.Filtered:=True;
end;
procedure TMHFYCX.Table2AfterScroll(DataSet: TDataSet); //选择房屋信息时,显示相应房屋的费用情况
begin
If Table2.RecordCount <> 0 Then
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 其它费用表 Where 收费编号=:A');
Query2.ParamByName('A').AsString:=Table2.FieldByName('房间编号').AsString;
Query2.Open;
end;
If Table2.RecordCount <> 0 Then
begin
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Select * From 常用费用 Where 收费编号=:A');
Query3.ParamByName('A').AsString:=Table2.FieldByName('房间编号').AsString;
Query3.Open;
end;
If Table2.RecordCount <> 0 Then
begin
Query4.Close;
Query4.SQL.Clear;
Query4.SQL.Add('Select * From 采暖费 Where 采暖费编号=:A');
Query4.ParamByName('A').AsString:=Table2.FieldByName('房间编号').AsString;
Query4.Open;
end;
end;
procedure TMHFYCX.BitBtn1Click(Sender: TObject);
begin
Query5.close;
Query5.SQL.Clear;
Query5.SQL.Add('DRop Table 用户费用Temp');
Try
Query5.ExecSQL;
Except
End;
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Create Table 用户费用Temp');
Query5.SQL.Add('(');
Query5.SQL.Add(' 科目名称 Char(20),');
Query5.SQL.Add(' 计费起始日期 DateTime,');
Query5.SQL.Add(' 计费终止日期 DateTime,');
Query5.SQL.Add(' 科目余额 Money,');
Query5.SQL.Add(' 科目应收 Money,');
Query5.SQL.Add(' 科目实收 Money');
Query5.SQl.Add(')');
Query5.ExecSQL;
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Insert 用户费用Temp(科目名称,计费起始日期,计费终止日期,科目应收,科目实收,科目余额)');
Query5.SQL.Add('Values(:A,:B,:C,:D,:E,:F)');
Query2.First;
While Not Query2.Eof do
begin
Query5.ParamByName('A').AsString:=Query2.FieldbyName('费用科目').AsString;
Query5.ParamByName('B').AsDatetime:=Query2.FieldByName('计费起始日期').AsDateTime;
Query5.ParamByName('C').AsDatetime:=Query2.FieldByName('计费终止日期').AsDateTime;
Query5.ParamByName('D').AsFloat:=Query2.FieldbyName('应收金额').Asfloat;
Query5.ParamByName('E').AsFloat:=Query2.FieldByName('实收金额').AsFloat;
Query5.ParamByName('F').AsFloat:=Query2.FieldByName('剩余金额').AsFloat;
Query5.ExecSQL;
Query2.Next;
end;
Query3.First;
While Not Query3.Eof do
begin
Query5.ParamByName('A').AsString:=Query3.FieldbyName('费用科目').AsString;
Query5.ParamByName('B').AsDatetime:=Query3.FieldByName('计费起始日期').AsDateTime;
Query5.ParamByName('C').AsDatetime:=Query3.FieldByName('计费终止日期').AsDateTime;
Query5.ParamByName('D').AsFloat:=Query3.FieldbyName('应收金额').Asfloat;
Query5.ParamByName('E').AsFloat:=Query3.FieldByName('实收金额').AsFloat;
Query5.ParamByName('F').AsFloat:=Query3.FieldByName('剩余金额').AsFloat;
Query5.ExecSQL;
Query3.Next;
end;
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Select * From 用户费用Temp');
Query5.Open;
QRDBText1.DataSet:=Query5;
QRDBText2.DataSet:=Query5;
QRDBText3.DataSet:=Query5;
QRDBText4.DataSet:=Query5;
QRDBText5.DataSet:=Query5;
QRDBText6.DataSet:=Query5;
QRDBText1.DataField:='科目名称';
QRDBText2.DataField:='计费起始日期';
QRDBText3.DataField:='计费终止日期';
QRDBText4.DataField:='科目应收';
QRDBText5.DataField:='科目实收';
QRDBText6.DataField:='科目余额';
//-------------------------------
QRLAbel3.Caption:=Table2.FieldByName('房间编号').AsString;
QRLAbel5.Caption:=Table2.FieldByName('房主姓名').AsString;
QRLabel20.Caption:='上月水表读数['+Table3.FieldbyName('上月读数').AsString+'],本月水表读数['+Table3.FieldbyName('本月读数').AsString+']'+'应收水费金额['+Table3.FieldbyName('应收金额').AsString+']'+'实收水费金额['+Table3.FieldbyName('实收金额').AsString+']';
QRLabel21.Caption:='上月电表读数['+Table3.FieldbyName('上月读数').AsString+'],本月电表读数['+Table3.FieldbyName('本月读数').AsString+']'+'应收电费金额['+Table3.FieldbyName('应收金额').AsString+']'+'实收电费金额['+Table3.FieldbyName('实收金额').AsString+']';
QRLabel22.Caption:='上月煤气表读数['+Table3.FieldbyName('上月读数').AsString+'],本月煤气表读数['+Table3.FieldbyName('本月读数').AsString+']'+'应收煤气费金额['+Table3.FieldbyName('应收金额').AsString+']'+'实收煤气费金额['+Table3.FieldbyName('实收金额').AsString+']';
DYYLBrose.Show;
QuickRep1.Preview;
end;
procedure TMHFYCX.QuickRep1Preview(Sender: TObject);
begin
DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
procedure TMHFYCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MHFYCX.Release;
MHFYCX:=Nil;
end;
procedure TMHFYCX.BitBtn2Click(Sender: TObject);
begin
Close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -