mc_xzgl.pas

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

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.