unit14.pas

本系统是一个房屋出租方面的管理系统

unit Unit14;

interface

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

type
  TFormZHDJTJ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Edit3: TEdit;
    Edit1: TEdit;
    Label2: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Label4: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormZHDJTJ: TFormZHDJTJ;

implementation
uses unit3,unit10;
{$R *.dfm}

procedure TFormZHDJTJ.BitBtn1Click(Sender: TObject);
begin
   if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'')
      and (edit4.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') then
   begin
      database.ADO_ZHDJZ.Close;
      database.ADO_ZHDJZ.SQL.Clear;
      database.ADO_ZHDJZ.SQL.Add('insert 住户登记表 values (:a,:b,:c,:d,:e,:f)');
      database.ADO_ZHDJZ.Parameters.ParamByName('a').Value:=trim(edit1.Text);
      database.ADO_ZHDJZ.Parameters.ParamByName('b').Value:=trim(edit2.Text);
      database.ADO_ZHDJZ.Parameters.ParamByName('c').Value:=trim(edit3.Text);
      database.ADO_ZHDJZ.Parameters.ParamByName('d').Value:=strtoint(trim(edit4.Text));
      database.ADO_ZHDJZ.Parameters.ParamByName('e').Value:=trim(edit5.Text);
      database.ADO_ZHDJZ.Parameters.ParamByName('f').Value:=trim(edit6.Text);
      database.ADO_ZHDJZ.ExecSQL;
      application.MessageBox('添加成功','提示',64);

      database.ADO_ZHDJZ.Close;
      database.ADO_ZHDJZ.SQL.Clear;
      database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表');
      database.ADO_ZHDJZ.Open;

      FormZHDJTJ.Close;
      formZHDJZ.BitBtn10.Enabled:=true;
   end
   else
   begin
      application.MessageBox('不能添加空信息，请重新输入!','提示',64);
      edit1.SetFocus;
   end;
end;

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

procedure TFormZHDJTJ.FormShow(Sender: TObject);
begin
   edit1.SetFocus;
end;

end.