unit_khjb.pas

基本信息：房屋基本信息、客户基本信息、职工基本信息 房屋交易：客户订购、退房、购买 信息查询：销售、订购、结款、交易记录查询 报表查询：日报表、月报表

unit Unit_khjb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids;

type
  Tkhjb = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khjb: Tkhjb;

implementation

{$R *.dfm}

procedure Tkhjb.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.sql.Add('select * from customer where(cno='''+trim(labelededit1.text)+''')');
adoquery1.Open;

 if adoquery1.RecordCount>0 then
 begin
  showmessage('该房屋号已存在，请重新输入');

 end
 else

 begin
 adoquery1.Append;
  adoquery1.Fields[0].asstring:=labelededit1.Text;
  adoquery1.Fields[1].asstring:=labelededit2.Text;
  adoquery1.Fields[2].asstring:=labelededit3.Text;
  adoquery1.Fields[3].asstring:=labelededit4.Text;
  adoquery1.Fields[4].asstring:=labelededit5.Text;
  adoquery1.Fields[5].asstring:=labelededit6.Text;

  adoquery1.Post;
  adoquery1.ExecSQL;
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('select * from customer');
adoquery1.Open;
  showmessage('添加成功');
 end;

end;

procedure Tkhjb.Button3Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('delete from customer where(cno='''+trim(labelededit1.text)+''')');
adoquery1.ExecSQL;
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('select * from customer');
adoquery1.Open;
end;

procedure Tkhjb.Button4Click(Sender: TObject);
begin
if messagedlg('你确定要关闭窗口吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
 close
 else
 exit;
end;

procedure Tkhjb.Button2Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.add('select * from customer where (hno='''+trim(labelededit1.text)+''')');
 adoquery1.Open;

adoquery1.edit;
adoquery1.Fields[0].AsString:=labelededit1.text;
adoquery1.Fields[1].AsString:=labelededit2.text;
adoquery1.Fields[2].AsString:=labelededit3.text;
adoquery1.Fields[3].AsString:=labelededit4.text;
adoquery1.Fields[4].AsString:=labelededit5.text;
adoquery1.Fields[5].AsString:=labelededit6.text;

   adoquery1.Post;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.add('select * from customer');
   adoquery1.Open;
end;

procedure Tkhjb.DBGrid1CellClick(Column: TColumn);
begin
 labelededit1.Text:=adoquery1.Fields[0].asstring;
 labelededit2.Text:=adoquery1.Fields[1].asstring;
 labelededit3.Text:=adoquery1.Fields[2].asstring;
 labelededit4.Text:=adoquery1.Fields[3].asstring;
 labelededit5.Text:=adoquery1.Fields[4].asstring;
 labelededit6.Text:=adoquery1.Fields[5].asstring;
end;

end.