unit MC_XZGL;

interface

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

type
  TXZGL = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit1: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit4Enter(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XZGL: TXZGL;

implementation

uses MC_FWXZGL;

{$R *.DFM}

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

procedure TXZGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     XZGL.Release;
     XZGL:=Nil;
end;

procedure TXZGL.Edit5Exit(Sender: TObject);
begin
     TEDit(Sender).Color:=ClWindow;
     Edit6.Text:=IntToStr(StrToInt(Edit5.Text)-StrToInt(Edit4.Text));
end;

procedure TXZGL.Edit4Enter(Sender: TObject);
begin
     TEDit(Sender).Color:=ClAqua;
end;

procedure TXZGL.Edit4Exit(Sender: TObject);
begin
     TEDit(Sender).Color:=ClWindow;
end;

procedure TXZGL.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
     if Key=#13 then perForm(WM_NEXTDLGCTL,0,0);
end;

procedure TXZGL.BitBtn1Click(Sender: TObject);
begin
if MessageDLG('是否存儲此次續租信息？系統將自動備份當前住戶的上次收費信息！！',mtCustom,[mbYes,mbNo],0)=mrYes then
   begin
   With FWXZGL do
   begin
        Query2.Close;
        Query2.SQL.Clear;
        Query2.SQL.Add('Insert 房租費費用歷史表(房間代號,姓名,性別,身份證號,聯系方式,起租日期,截止日期,應收租金,實收租金,余款金額,本次余額)');
        Query2.SQL.Add('Values(:A,:B,:C,:D,:E,:F,:G,:H,:J,:I,:K)');
        Query2.ParamByName('A').AsString:=Table3.FieldByName('房間代號').AsString;
        Query2.ParamByName('B').AsString:=Table3.FieldByName('姓名').AsString;
        Query2.ParamByName('C').AsString:=Table3.FieldByName('性別').AsString;
        Query2.ParamByName('D').AsString:=Table3.FieldByName('身份證號').AsString;
        Query2.ParamByName('E').AsString:=Table3.FieldByName('聯系方式').AsString;
        Query2.ParamByName('F').AsDateTime:=Table3.FieldByName('起租日期').AsDatetime;
        Query2.ParamByName('G').AsDateTime:=Table3.FieldByName('截止日期').AsDatetime;
        Query2.ParamByName('H').AsFloat:=Table3.FieldByName('應收租金').AsFloat;
        Query2.ParamByName('J').AsFloat:=Table3.FieldByName('實收租金').AsFloat;
        Query2.ParamByName('I').AsFloat:=Table3.FieldByName('余款金額').AsFloat;
        Query2.ParamByName('K').AsFloat:=Table3.FieldByName('本次余額').AsFloat;
        Query2.ExecSQL;
   end;
        {Query2.Close;
        Query2.SQL.Clear;
        Query2.SQL.Add('Update 房租費用表 Set 應收租金=0,實收租金=0,起租日期=截止日期,余款金額=余款金額+本次余額,本次余額=0');
        Query2.SQL.Add('where 房間編號=:A');
        Query2.ParamByName('房間編號').AsString:=FWXZGL.Table2.FieldByName('房間編號').AsString;
        Query2.ExecSQL;}
        //-------------------------------
        FWXZGL.Table3.Edit;
        FWXZGL.Table3.FieldByName('余款金額').AsFloat:=FWXZGL.Table3.FieldByName('余款金額').AsFloat
                     +FWXZGL.Table3.FieldByName('本次余額').AsFloat;
        FWXZGL.Table3.Post;
        //-------------------------------
        FWXZGL.Table3.Edit;
        FWXZGL.Table3.FieldByName('起租日期').AsDateTime:=DateTimePicker1.Date;
        FWXZGL.Table3.FieldByName('截止日期').AsDateTime:=DateTimePicker2.Date;
        FWXZGL.Table3.FieldByName('應收租金').AsFloat:=StrToFloat(Edit4.Text);
        FWXZGL.Table3.FieldByName('實收租金').AsFloat:=StrToFloat(Edit5.Text);
        FWXZGL.Table3.FieldByName('本次余額').AsFloat:=StrToFloat(Edit6.Text);
        FWXZGL.Table3.FieldByName('余款金額').AsFloat:=StrToFloat(Edit1.Text)+StrToFloat(Edit6.Text);
        FWXZGL.Table3.Post;
        Close;
   end;
end;

end.