unit MC_SDFSQ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ComCtrls;

type
  TSDFSQ = class(TForm)
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    Query2: TQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    BitBtn1: TBitBtn;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure StringGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure StringGrid3KeyPress(Sender: TObject; var Key: Char);
    procedure StringGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure StringGrid2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure StringGrid3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    X,Y:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SDFSQ: TSDFSQ;

implementation

uses MC_MainForm;

{$R *.DFM}



procedure TSDFSQ.FormShow(Sender: TObject);
begin
   //定義水費收取表
   StringGrid1.Cells[1,0]:='水表編號';
   StringGrid1.Cells[2,0]:='戶主姓名';
   StringGrid1.Cells[3,0]:='標準金額';
   StringGrid1.Cells[4,0]:='起始日期';
   StringGrid1.Cells[5,0]:='終止日期';
   StringGrid1.Cells[6,0]:='上月讀數';
   StringGrid1.Cells[7,0]:='本月讀數';
   StringGrid1.Cells[8,0]:='使用數';
   StringGrid1.Cells[9,0]:='應收金額';
   StringGrid1.Cells[10,0]:='實收金額';
   StringGrid1.Cells[11,0]:='本月余額';
   //定義電費收取表
   StringGrid2.Cells[1,0]:='電表編號';
   StringGrid2.Cells[2,0]:='戶主姓名';
   StringGrid2.Cells[3,0]:='標準金額';
   StringGrid2.Cells[4,0]:='起始日期';
   StringGrid2.Cells[5,0]:='終止日期';
   StringGrid2.Cells[6,0]:='上月讀數';
   StringGrid2.Cells[7,0]:='本月讀數';
   StringGrid2.Cells[8,0]:='使用數';
   StringGrid2.Cells[9,0]:='應收金額';
   StringGrid2.Cells[10,0]:='實收金額';
   StringGrid2.Cells[11,0]:='本月余額';
   //定義煤氣費費收取表
   StringGrid3.Cells[1,0]:='煤氣表編號';
   StringGrid3.Cells[2,0]:='戶主姓名';
   StringGrid3.Cells[3,0]:='標準金額';
   StringGrid3.Cells[4,0]:='起始日期';
   StringGrid3.Cells[5,0]:='終止日期';
   StringGrid3.Cells[6,0]:='上月讀數';
   StringGrid3.Cells[7,0]:='本月讀數';
   StringGrid3.Cells[8,0]:='使用數';
   StringGrid3.Cells[9,0]:='應收金額';
   StringGrid3.Cells[10,0]:='實收金額';
   StringGrid3.Cells[11,0]:='本月余額';
   if MainForm.Query1.Locate('使用選項','水電煤氣費收取',[loCaseInsensitive]) then
   begin
      if MainForm.Query1.FieldByName('讀寫').AsString='讀' then
      begin
         bitbtn1.Enabled:=False;
      end;
   end;
end;
procedure TSDFSQ.StringGrid1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
x:=StringGrid1.Row;
y:=StringGrid1.Col;
If y = 7 Then begin      //當輸入水費本月讀數時，自動計算本月使用數、應收金額
Try
   StringGrid1.Cells[8,x]:=IntToStr(StrToInt(StringGrid1.Cells[7,x])-StrToInt(StringGrid1.Cells[6,x]));
   StringGrid1.Cells[9,x]:=FloatToStr(StrToInt(StringGrid1.Cells[8,x])*StrToFloat(StringGrid1.Cells[3,x]));
Except
   begin
        Abort;
   end;
end;
end;
If y = 10 Then begin    //當輸入使用水費實收金額時，自動計算本月余額
 Try
    StringGrid1.Cells[11,x]:=FloatToStr(StrToInt(StringGrid1.Cells[10,x])-StrToFloat(StringGrid1.Cells[9,x]));
 Except
    Abort;
 end;
end;
end;

procedure TSDFSQ.StringGrid2KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
x:=StringGrid2.Row;
y:=StringGrid2.Col;
If y = 7 Then begin      //當輸入電費本月讀數時，自動計算電費使用數、應收金額
  Try
     StringGrid2.Cells[8,x]:=IntToStr(StrToInt(StringGrid2.Cells[7,x])-StrToInt(StringGrid2.Cells[6,x]));
     StringGrid2.Cells[9,x]:=FloatToStr(StrToInt(StringGrid2.Cells[8,x])*StrToFloat(StringGrid2.Cells[3,x]));
  Except
     begin
          Abort;
     end;
  end;
end;
If y = 10 Then begin      //當輸入電費實收金額時，自動計算本月余額
  Try
     StringGrid2.Cells[11,X]:=FloatToStr(StrToInt(StringGrid2.Cells[10,x])-StrToFloat(StringGrid2.Cells[9,x]));
  Except
     begin
          Abort;
     end;
  end;
end;
end;

procedure TSDFSQ.StringGrid3KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  x:=StringGrid3.Row;
  y:=StringGrid3.Col;
  If y = 7 Then begin       //當輸入煤氣費本月讀數時，自動計算煤氣費使用數、應收金額
    Try
    StringGrid3.Cells[8,x]:=IntToStr(StrToInt(StringGrid3.Cells[7,x])-StrToInt(StringGrid3.Cells[6,x]));
    StringGrid3.Cells[9,x]:=FloatToStr(StrToInt(StringGrid3.Cells[8,x])*StrToFloat(StringGrid3.Cells[3,x]));
    Except
    begin
      Abort;
    end;
  end;
  end;
  If y = 10 Then begin        //當輸入實收煤氣費時，自動計算本月余額
    Try
    StringGrid3.Cells[11,x]:=FloatToStr(StrToInt(StringGrid3.Cells[10,x])-StrToFloat(StringGrid3.Cells[9,x]));
    Except
    begin
      Abort;
    end;
  end;
  end;
end;

procedure TSDFSQ.BitBtn1Click(Sender: TObject);var a:integer;   //將以上費用信息處理后依次返回表中
begin
   if MessageDlg('是否更新水費信息？',mtCustom,[mbYes,mbNo],0)=mrYes then
   begin
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Update 水費 Set 計費終止日期=:A,本月讀數=:B,使用數=:C,應收金額=:D,實收金額=:E,本月余額=:G');
   Query2.SQL.Add('Where 水表編號=:F');
   For a:=1 to StringGrid1.RowCount-1 do
   begin
    Query2.Close;
    Try   //更新水費
    Query2.ParamByName('F').AsString:=StringGrid1.Cells[1,a];
    Query2.ParamByName('A').AsDateTime:=StrToDate(StringGrid1.Cells[5,a]);
    Query2.ParamByName('B').AsInteger:=StrToInt(StringGrid1.Cells[7,a]);
    Query2.ParamByName('C').AsInteger:=StrToInt(StringGrid1.Cells[8,a]);
    Query2.ParamByName('D').AsFloat:=StrToFloat(StringGrid1.Cells[9,a]);
    Query2.ParamByName('E').AsFloat:=StrToFloat(StringGrid1.Cells[10,a]);
    Query2.ParamByName('G').AsFloat:=StrToFloat(StringGrid1.Cells[11,a]);
    Query2.ExecSQL;
    Except
         ShowMessage('編號為['+StringGrid1.Cells[1,a]+']的費用信息數據有誤，沒有保存！');
         Abort;
    End;
   end;
   end;
   if MessageDlg('是否更新電費信息？',mtCustom,[mbyes,mbNo],0)=mrYes then
   begin
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Update 電費 Set 計費終止日期=:A,本月讀數=:B,使用數=:C,應收金額=:D,實收金額=:E,本月余額=G');
   Query2.SQL.Add('Where 電表編號=:F');
   For a:=1 to StringGrid2.RowCount-1 do
   begin
    Query2.Close;
    Try   //更新電費
    Query2.ParamByName('F').AsString:=StringGrid2.Cells[1,a];
    Query2.ParamByName('A').AsDateTime:=StrToDate(StringGrid2.Cells[5,a]);
    Query2.ParamByName('B').AsInteger:=StrToInt(StringGrid2.Cells[7,a]);
    Query2.ParamByName('C').AsInteger:=StrToInt(StringGrid2.Cells[8,a]);
    Query2.ParamByName('D').AsFloat:=StrToFloat(StringGrid2.Cells[9,a]);
    Query2.ParamByName('E').AsFloat:=StrToFloat(StringGrid2.Cells[10,a]);
    Query2.ParamByName('G').AsFloat:=StrToFloat(StringGrid2.Cells[11,a]);
    Query2.ExecSQL;
    Except
         ShowMessage('編號為['+StringGrid2.Cells[1,a]+']的費用信息數據有誤，沒有保存！');
         Abort;
    End;
   end;
   end;
   if MessageDlg('是否更新氣費信息？',mtCustom,[mbYes,mbNo],0)=mryes then
   begin
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Update 煤氣費 Set 計費終止日期=:A,本月讀數=:B,使用數=:C,應收金額=:D,實收金額=:E,本月余額=:G');
   Query2.SQL.Add('Where 煤氣表編號=:F');
   For a:=1 to StringGrid1.RowCount-1 do
   begin
    Query2.Close;
    Try     //更新煤氣費
    Query2.ParamByName('F').AsString:=StringGrid3.Cells[1,a];
    Query2.ParamByName('A').AsDateTime:=StrToDate(StringGrid3.Cells[5,a]);
    Query2.ParamByName('B').AsInteger:=StrToInt(StringGrid3.Cells[7,a]);
    Query2.ParamByName('C').AsInteger:=StrToInt(StringGrid3.Cells[8,a]);
    Query2.ParamByName('D').AsFloat:=StrToFloat(StringGrid3.Cells[9,a]);
    Query2.ParamByName('E').AsFloat:=StrToFloat(StringGrid3.Cells[10,a]);
    Query2.ParamByName('G').AsFloat:=StrToFloat(StringGrid3.Cells[11,a]);
    Query2.ExecSQL;
    Except
         ShowMessage('編號為['+StringGrid1.Cells[1,a]+']的費用信息數據有誤，沒有保存！');
         Abort;
    End;
   end;
   end;
   ShowMessage('更新完畢!!');
end;
procedure TSDFSQ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   SDFSQ.Release;
   SDFSQ:=Nil;
end;

procedure TSDFSQ.BitBtn2Click(Sender: TObject);
begin
  Close;
end;
end.