?? mc_mhfycx.~pas
字號(hào):
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('小區(qū)名').AsString;
If Table1.RecordCount <> 0 Then //如果大樓信息不為空
begin
with Query6 do
begin
Close;
SQL.Clear;
SQL.Add('Select Max(單元) From 房屋信息表 Where 大樓編號(hào)=:A');
ParamByName('A').AsString:=Table1.FieldByName('大樓編號(hào)').AsString;
Open; //查找大樓的所有單元信息
end;
For a:=1 to Query6.Fields[0].AsInteger do
begin
ComboBox1.Items.Add(IntToStr(a)); //將單元信息復(fù)值給單元選擇列表框
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); //選擇房屋信息時(shí),顯示相應(yīng)房屋的費(fèi)用情況
begin
If Table2.RecordCount <> 0 Then
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 其它費(fèi)用表 Where 收費(fèi)編號(hào)=:A');
Query2.ParamByName('A').AsString:=Table2.FieldByName('房間編號(hào)').AsString;
Query2.Open;
end;
If Table2.RecordCount <> 0 Then
begin
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Select * From 常用費(fèi)用 Where 收費(fèi)編號(hào)=:A');
Query3.ParamByName('A').AsString:=Table2.FieldByName('房間編號(hào)').AsString;
Query3.Open;
end;
If Table2.RecordCount <> 0 Then
begin
Query4.Close;
Query4.SQL.Clear;
Query4.SQL.Add('Select * From 采暖費(fèi) Where 采暖費(fèi)編號(hào)=:A');
Query4.ParamByName('A').AsString:=Table2.FieldByName('房間編號(hào)').AsString;
Query4.Open;
end;
end;
procedure TMHFYCX.BitBtn1Click(Sender: TObject);
begin
Query5.close;
Query5.SQL.Clear;
Query5.SQL.Add('DRop Table 用戶費(fèi)用Temp');
Try
Query5.ExecSQL;
Except
End;
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Create Table 用戶費(fèi)用Temp');
Query5.SQL.Add('(');
Query5.SQL.Add(' 科目名稱 Char(20),');
Query5.SQL.Add(' 計(jì)費(fèi)起始日期 DateTime,');
Query5.SQL.Add(' 計(jì)費(fèi)終止日期 DateTime,');
Query5.SQL.Add(' 科目余額 Money,');
Query5.SQL.Add(' 科目應(yīng)收 Money,');
Query5.SQL.Add(' 科目實(shí)收 Money');
Query5.SQl.Add(')');
Query5.ExecSQL;
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Insert 用戶費(fèi)用Temp(科目名稱,計(jì)費(fèi)起始日期,計(jì)費(fèi)終止日期,科目應(yīng)收,科目實(shí)收,科目余額)');
Query5.SQL.Add('Values(:A,:B,:C,:D,:E,:F)');
Query2.First;
While Not Query2.Eof do
begin
Query5.ParamByName('A').AsString:=Query2.FieldbyName('費(fèi)用科目').AsString;
Query5.ParamByName('B').AsDatetime:=Query2.FieldByName('計(jì)費(fèi)起始日期').AsDateTime;
Query5.ParamByName('C').AsDatetime:=Query2.FieldByName('計(jì)費(fèi)終止日期').AsDateTime;
Query5.ParamByName('D').AsFloat:=Query2.FieldbyName('應(yīng)收金額').Asfloat;
Query5.ParamByName('E').AsFloat:=Query2.FieldByName('實(shí)收金額').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('費(fèi)用科目').AsString;
Query5.ParamByName('B').AsDatetime:=Query3.FieldByName('計(jì)費(fèi)起始日期').AsDateTime;
Query5.ParamByName('C').AsDatetime:=Query3.FieldByName('計(jì)費(fèi)終止日期').AsDateTime;
Query5.ParamByName('D').AsFloat:=Query3.FieldbyName('應(yīng)收金額').Asfloat;
Query5.ParamByName('E').AsFloat:=Query3.FieldByName('實(shí)收金額').AsFloat;
Query5.ParamByName('F').AsFloat:=Query3.FieldByName('剩余金額').AsFloat;
Query5.ExecSQL;
Query3.Next;
end;
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Select * From 用戶費(fèi)用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:='計(jì)費(fèi)起始日期';
QRDBText3.DataField:='計(jì)費(fèi)終止日期';
QRDBText4.DataField:='科目應(yīng)收';
QRDBText5.DataField:='科目實(shí)收';
QRDBText6.DataField:='科目余額';
//-------------------------------
QRLAbel3.Caption:=Table2.FieldByName('房間編號(hào)').AsString;
QRLAbel5.Caption:=Table2.FieldByName('房主姓名').AsString;
QRLabel20.Caption:='上月水表讀數(shù)['+Table3.FieldbyName('上月讀數(shù)').AsString+'],本月水表讀數(shù)['+Table3.FieldbyName('本月讀數(shù)').AsString+']'+'應(yīng)收水費(fèi)金額['+Table3.FieldbyName('應(yīng)收金額').AsString+']'+'實(shí)收水費(fèi)金額['+Table3.FieldbyName('實(shí)收金額').AsString+']';
QRLabel21.Caption:='上月電表讀數(shù)['+Table3.FieldbyName('上月讀數(shù)').AsString+'],本月電表讀數(shù)['+Table3.FieldbyName('本月讀數(shù)').AsString+']'+'應(yīng)收電費(fèi)金額['+Table3.FieldbyName('應(yīng)收金額').AsString+']'+'實(shí)收電費(fèi)金額['+Table3.FieldbyName('實(shí)收金額').AsString+']';
QRLabel22.Caption:='上月煤氣表讀數(shù)['+Table3.FieldbyName('上月讀數(shù)').AsString+'],本月煤氣表讀數(shù)['+Table3.FieldbyName('本月讀數(shù)').AsString+']'+'應(yīng)收煤氣費(fèi)金額['+Table3.FieldbyName('應(yīng)收金額').AsString+']'+'實(shí)收煤氣費(fèi)金額['+Table3.FieldbyName('實(shí)收金額').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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -