unit MC_DCBYSJ;

interface

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

type
  TDCBYSJ = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DCBYSJ: TDCBYSJ;

implementation

uses MC_MainForm;

{$R *.DFM}
procedure TDCBYSJ.FormShow(Sender: TObject); //啟動時判斷操作員的操作權限
begin
  if MainForm.Query1.Locate('使用選項','導出本月收費數據',[loCaseInsensitive]) then
  begin
    if MainForm.Query1.FieldByName('讀寫').AsString='讀' then
    begin
      BitBtn1.Enabled:=False;
      BitBtn2.Enabled:=False;
      BitBtn3.Enabled:=False;
      BitBtn4.Enabled:=False;
      BitBtn5.Enabled:=False;
    end;
  end;
end;
procedure TDCBYSJ.BitBtn1Click(Sender: TObject);   //初始化下月水表信息
begin
  if MessageDLG('是否導出本月水費信息？',mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Insert 歷史水費(水表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,上月讀數,使用數,應收金額,實收金額,剩余金額,本月余額)');
    SQL.Add('Select 水表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,上月讀數,使用數,應收金額,實收金額,剩余金額,本月余額 From 水費');
    ExecSQL;   //將本月水費導出到歷史水費表中
    Close;
    SQL.Clear;
    SQL.Add('Update 水費 Set 計費起始日期=計費終止日期,上月讀數=本月讀數,使用數=:B,應收金額=:A,實收金額=:B,剩余金額=剩余金額+本月余額,本月余額=:A');
    ParamByname('B').AsInteger:=0;
    ParamByname('A').AsFloat:=0;
    ExecSQL;  //初始化下月水表信息
  end;
  ShowMessage('操作完畢!!');
  end;
end;

procedure TDCBYSJ.BitBtn2Click(Sender: TObject);   //初始化下月電費信息
begin
  if MessageDLG('是否導出本月電費信息？',mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
    with Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Insert 歷史電費(電表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,上月讀數,使用數,應收金額,實收金額,剩余金額,本月余額)');
      SQL.Add('Select 電表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,上月讀數,使用數,應收金額,實收金額,剩余金額,本月余額 From 電費');
      ExecSQL;     //將本月電費導出到歷史電費表中
      Close;
      SQL.Clear;
      SQL.Add('Update 電費 Set 計費起始日期=計費終止日期,上月讀數=本月讀數,使用數=:B,應收金額=:A,實收金額=:B,剩余金額=剩余金額+本月余額,本月余額=:A');
      ParamByname('B').AsInteger:=0;
      ParamByname('A').AsFloat:=0;
      ExecSQL;     //初始化下月電費信息
    end;
    ShowMessage('操作完畢!!');
  end;
end;

procedure TDCBYSJ.BitBtn3Click(Sender: TObject);    //初始化下月煤氣費信息
begin
 if MessageDLG('是否導出本月煤氣費信息？',mtCustom,[mbYes,mbNO],0)=mrYes then
 begin
   with Query1 do
   begin
     Close;
     SQL.Clear;
     SQL.Add('Insert 歷史煤氣費(煤氣表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,上月讀數,使用數,應收金額,實收金額,剩余金額,本月余額)');
     SQL.Add('Select 煤氣表編號,戶主姓名,收費標準,收費金額,計費起始日期,計費終止日期,上月讀數,使用數,應收金額,實收金額,剩余金額,本月余額 From 煤氣費');
     ExecSQL;    //導出本月煤氣信息到歷史煤氣表中
     Close;
     SQL.Clear;
     SQL.Add('Update 煤氣費 Set 計費起始日期=計費終止日期,上月讀數=本月讀數,使用數=:B,應收金額=:A,實收金額=:B,剩余金額=剩余金額+本月余額,本月余額=:A');
     ParamByname('B').AsInteger:=0;
     ParamByname('A').AsFloat:=0;
     ExecSQL;     //初始化下月煤氣費信息
   end;
   ShowMessage('操作完畢!!');
 end;
end;

procedure TDCBYSJ.BitBtn4Click(Sender: TObject);  //初始化下月常用費用
begin
  if MessageDLG('是否導出常用費信息？',mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('insert 歷史常用費用(收費編號,戶主姓名,費用科目,收費金額,計費起始日期,計費終止日期,應收金額,實收金額,剩余金額,減免金額,原因,本次余額,本次補交)');
    SQL.Add('Select 收費編號,戶主姓名,費用科目,收費金額,計費起始日期,計費終止日期,應收金額,實收金額,剩余金額,減免金額,原因,本次余額,本次補交 From 常用費用');
    ExecSQL;  //將本月常用信息導出到歷史常用費用
    Close;
    SQL.Clear;
    SQL.Add('Update 常用費用 Set 計費起始日期=計費終止日期,實收金額=:A,減免金額=:A,原因=:B,剩余金額=剩余金額+本次余額,本次余額=:A,本次補交=:A');
    ParamByName('A').AsFloat:=0;
    ParamByName('B').AsString:='空';
    ExecSQL;  //初始化下月常用費用
  end;
  ShowMessage('操作完畢');
  end;
end;

procedure TDCBYSJ.BitBtn5Click(Sender: TObject);   //初始化下月其他費用
begin
  if MessageDLG('是否導出其它費信息？',mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Insert 歷史其它費用(收費編號,戶主姓名,建筑面積,使用面積,公有面積,私有面積');
    SQL.Add(',標準名稱,標準金額,費用科目,收費金額,計費起始日期,計費終止日期,應收金額,實收金額,剩余金額');
    SQL.Add(',減免金額,原因,本次余額,本次補交)');
    SQL.Add('Select 收費編號,戶主姓名,建筑面積,使用面積,公有面積,私有面積');
    SQL.Add(',標準名稱,標準金額,費用科目,收費金額,計費起始日期,計費終止日期,應收金額,實收金額,剩余金額');
    SQL.Add(',減免金額,原因,本次余額,本次補交 From 其它費用表');
    ExecSQL;    //將本月其他信息導出到歷史其他費用
    Close;
    SQL.Clear;
    SQL.Add('update 其它費用表 set 計費起始日期=計費終止日期,實收金額=:A,減免金額=:A,原因=:B,剩余金額=剩余金額+本次余額,本次余額=:A,本次補交=:A');
    ParamByName('A').AsFloat:=0;
    ParamByName('B').AsString:='空';
    ExecSQL;     //初始化下月其他費用
  end;
  ShowMessage('操作完畢');
  end;
end;

procedure TDCBYSJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DCBYSJ.release;
  DCBYSJ:=Nil;
end;
end.