?? mc_xztjkm.~pas
字號:
end;
//---------------------房間號分配完畢------------------------------
For a:=1 to StringGrid1.RowCount-1 do
begin
if StringGrid1.Cells[1,a]='水費' then begin
FYHZDY.StringGrid1.ColCount:=FYHZDY.StringGrid1.ColCount+3;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,0]:='水費應收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,0]:='水費實收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,0]:='水費余款';
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-3]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-2]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-1]:=55;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 水費');
Query2.SQL.Add('Where 水表編號=:A');
Query2.ParamByName('A').AsString:=FYHZDY.StringGrid1.Cells[2,1];
For b:=2 to XZHZDY.StringGrid1.RowCount-1 do
begin
Query2.SQL.Add('or 水表編號='''+FYHZDY.StringGrid1.Cells[2,a]+'''');
end;
Query2.SQL.Add('ORDER BY 水表編號 ASC');
Query2.Open;
For b:=1 to FYHZDY.StringGrid1.Rowcount-1 do
begin
if Query2.Locate('水表編號',FYHZDY.StringGrid1.Cells[2,b],[loCaseInsensitive]) then
begin
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,b]:=Query2.FieldByName('應收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,b]:=Query2.FieldByName('實收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,b]:=Query2.FieldByName('剩余金額').AsString;
end;
end;
end Else//----------結束水費-------------------------------------
if StringGrid1.Cells[1,a]='電費' then begin
FYHZDY.StringGrid1.ColCount:=FYHZDY.StringGrid1.ColCount+3;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,0]:='電費應收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,0]:='電費實收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,0]:='電費余款';
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-3]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-2]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-1]:=55;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 電費');
Query2.SQL.Add('Where 電表編號=:A');
Query2.ParamByName('A').AsString:=FYHZDY.StringGrid1.Cells[2,1];
For b:=2 to XZHZDY.StringGrid1.RowCount-1 do
begin
Query2.SQL.Add('or 電表編號='''+FYHZDY.StringGrid1.Cells[2,a]+'''');
end;
Query2.SQL.Add('ORDER BY 電表編號 ASC');
Query2.Open;
For b:=1 to FYHZDY.StringGrid1.Rowcount-1 do
begin
if Query2.Locate('電表編號',FYHZDY.StringGrid1.Cells[2,b],[loCaseInsensitive]) then
begin
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,b]:=Query2.FieldByName('應收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,b]:=Query2.FieldByName('實收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,b]:=Query2.FieldByName('剩余金額').AsString;
end;
end;
end Else//----------結束電費-------------------------------------
if StringGrid1.Cells[1,a]='煤氣費' then begin
FYHZDY.StringGrid1.ColCount:=FYHZDY.StringGrid1.ColCount+3;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,0]:='煤氣費應收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,0]:='煤氣費實收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,0]:='煤氣費余款';
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-3]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-2]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-1]:=55;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 煤氣費');
Query2.SQL.Add('Where 煤氣表編號=:A');
Query2.ParamByName('A').AsString:=FYHZDY.StringGrid1.Cells[2,1];
For b:=2 to XZHZDY.StringGrid1.RowCount-1 do
begin
Query2.SQL.Add('or 煤氣表編號='''+FYHZDY.StringGrid1.Cells[2,a]+'''');
end;
Query2.SQL.Add('ORDER BY 煤氣表編號 ASC');
Query2.Open;
For b:=1 to FYHZDY.StringGrid1.Rowcount-1 do
begin
if Query2.Locate('煤氣表編號',FYHZDY.StringGrid1.Cells[2,b],[loCaseInsensitive]) then
begin
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,b]:=Query2.FieldByName('應收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,b]:=Query2.FieldByName('實收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,b]:=Query2.FieldByName('剩余金額').AsString;
end;
end;
end Else//----------結束煤氣費-----------------------------------
if StringGrid1.Cells[1,a]='采暖費' then begin
FYHZDY.StringGrid1.ColCount:=FYHZDY.StringGrid1.ColCount+3;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,0]:='采暖費應收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,0]:='采暖費實收';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,0]:='采暖費余款';
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-3]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-2]:=55;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-1]:=55;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 采暖費');
Query2.SQL.Add('Where 采暖費編號=:A');
Query2.ParamByName('A').AsString:=FYHZDY.StringGrid1.Cells[2,1];
For b:=2 to XZHZDY.StringGrid1.RowCount-1 do
begin
Query2.SQL.Add('or 采暖費編號='''+FYHZDY.StringGrid1.Cells[2,a]+'''');
end;
Query2.SQL.Add('ORDER BY 采暖費編號 ASC');
Query2.Open;
For b:=1 to FYHZDY.StringGrid1.Rowcount-1 do
begin
if Query2.Locate('采暖費編號',FYHZDY.StringGrid1.Cells[2,b],[loCaseInsensitive]) then
begin
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,b]:=Query2.FieldByName('應收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,b]:=Query2.FieldByName('實收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,b]:=Query2.FieldByName('余額').AsString;
end;
end;
end Else//----------結束采暖費-----------------------------------
if StringGrid1.Cells[2,a]='費用科目' then begin
FYHZDY.StringGrid1.ColCount:=FYHZDY.StringGrid1.ColCount+3;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,0]:=StringGrid1.Cells[1,a]+'應收金額';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,0]:=StringGrid1.Cells[1,a]+'實收金額';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,0]:=StringGrid1.Cells[1,a]+'剩余金額';
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-3]:=65;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-2]:=65;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-1]:=65;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 常用費用');
Query2.SQL.Add('Where 費用科目=:A1 and 收費編號=:A');
Query2.ParamByName('A1').AsString:=StringGrid1.Cells[1,a];
Query2.ParamByName('A').AsString:=FYHZDY.StringGrid1.Cells[2,1];
For b:=2 To XZHZDY.StringGrid1.RowCount-1 do
begin
Query2.SQL.Add('or 收費編號='''+FYHZDY.StringGrid1.Cells[2,a]+'''');
end;
Query2.SQL.Add('ORDER By 收費編號 ASC');
Query2.Open;
For b:=1 to FYHZDY.StringGrid1.Rowcount-1 do
begin
if Query2.Locate('收費編號',FYHZDY.StringGrid1.Cells[2,b],[loCaseInsensitive]) then
begin
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,b]:=Query2.FieldByName('應收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,b]:=Query2.FieldByName('實收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,b]:=Query2.FieldByName('剩余金額').AsString;
end;
end;
end Else//----------結束常用科目----------------------------------
if StringGrid1.Cells[2,a]='其它科目' then begin
FYHZDY.StringGrid1.ColCount:=FYHZDY.StringGrid1.ColCount+3;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,0]:=StringGrid1.Cells[1,a]+'應收金額';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,0]:=StringGrid1.Cells[1,a]+'實收金額';
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,0]:=StringGrid1.Cells[1,a]+'剩余金額';
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-3]:=65;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-2]:=65;
FYHZDY.StringGrid1.ColWidths[FYHZDY.StringGrid1.ColCount-1]:=65;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 常用費用');
Query2.SQL.Add('Where 費用科目=:A1 and 收費編號=:A');
Query2.ParamByName('A1').AsString:=StringGrid1.Cells[1,a];
Query2.ParamByName('A').AsString:=FYHZDY.StringGrid1.Cells[2,1];
For b:=2 To XZHZDY.StringGrid1.RowCount-1 do
begin
Query2.SQL.Add('or 收費編號='''+FYHZDY.StringGrid1.Cells[2,a]+'''');
end;
Query2.SQL.Add('ORDER By 收費編號 ASC');
Query2.Open;
For b:=1 to FYHZDY.StringGrid1.Rowcount-1 do
begin
if Query2.Locate('收費編號',FYHZDY.StringGrid1.Cells[2,b],[loCaseInsensitive]) then
begin
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-3,b]:=Query2.FieldByName('應收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-2,b]:=Query2.FieldByName('實收金額').AsString;
FYHZDY.StringGrid1.Cells[FYHZDY.StringGrid1.ColCount-1,b]:=Query2.FieldByName('剩余金額').AsString;
end;
end;
end;//結束其它科目------------------------------------------------
end;
//--結束For循環----------------------------------------------------
end;//結束if 語句-------------------------------------------------------
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -