mc_zfdj.~pas

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

unit MC_ZFDJ;

interface

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

type
  TZFDJ = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit5Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZFDJ: TZFDJ;

implementation

uses MC_FWCZDJ, MC_FWXZGL;

{$R *.DFM}

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

procedure TZFDJ.Edit5Exit(Sender: TObject);
begin
     Edit6.Text:=IntToStr(StrToInt(Edit5.Text)-StrToInt(Edit4.Text));
end;

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

procedure TZFDJ.BitBtn1Click(Sender: TObject);
begin
     FWXZGL.Query2.CLose;
     FWXZGL.Query2.SQL.Clear;
     FWXZGL.Query2.SQL.Add('Insert 房租费用表(房间代号,姓名,性别,身份证号,联系方式,起租日期,截止日期,应收租金,实收租金,本次余额)');
     FWXZGL.Query2.SQL.Add('Values(:A,:B,:C,:D,:E,:F,:G,:H,:I,:J)');
     FWXZGL.Query2.ParamByName('A').AsString:=Label2.Caption;
     FWXZGL.Query2.ParamByName('B').AsString:=Edit1.Text;
     FWXZGL.Query2.ParamByName('C').AsString:=ComboBox1.Text;
     FWXZGL.Query2.ParamByName('D').AsString:=Edit3.Text;
     FWXZGL.Query2.ParamByName('E').AsString:=Edit4.Text;
     FWXZGL.Query2.ParamByName('F').AsDateTime:=DateTimePicker1.Date;
     FWXZGL.Query2.ParamByName('G').AsDateTime:=DateTimePicker2.Date;
     FWXZGL.Query2.ParamByName('H').AsFloat:=StrToFloat(Edit4.Text);
     FWXZGL.Query2.ParamByName('I').AsFloat:=StrToFloat(Edit5.Text);
     FWXZGL.Query2.ParamByName('J').AsFloat:=StrToFloat(Edit6.Text);
     FWXZGL.Query2.ExecSQL;
     FWXZGL.Table2.Edit;
     FWXZGL.Table2.FieldByName('是否空闲').AsString:='出租';
     FWXZGL.Table2.FieldByName('承租人姓名').AsString:=Edit1.Text;
     FWXZGL.Table2.Post;
     FWXZGL.Table2.RefResh;
     FWXZGL.Table3.RefResh;
     Close;                    
end;

end.