mc_xztjkm.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

             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.