unit_fwjb.pas

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

unit Unit_fwjb;

interface

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

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

var
  fwjb: Tfwjb;

implementation

{$R *.dfm}

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

procedure Tfwjb.Button1Click(Sender: TObject);
begin




adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.sql.Add('select * from house where(hno='''+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.Fields[6].asstring:=labelededit7.Text;
  adoquery1.Fields[7].asstring:=labelededit8.Text;
  adoquery1.Fields[8].asstring:=labelededit9.Text;
  adoquery1.Fields[9].asstring:=labelededit10.Text;
  adoquery1.Fields[10].asstring:=labelededit11.Text;
  adoquery1.Post;
  adoquery1.ExecSQL;
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('select * from house');
adoquery1.Open;
  showmessage('添加成功');
 end;

end;

procedure Tfwjb.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;
 labelededit7.Text:=adoquery1.Fields[6].asstring;
 labelededit8.Text:=adoquery1.Fields[7].asstring;
 labelededit9.Text:=adoquery1.Fields[8].asstring;
 labelededit10.Text:=adoquery1.Fields[9].asstring;
 labelededit11.Text:=adoquery1.Fields[10].asstring;
end;

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

end;

procedure Tfwjb.Button2Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.add('select * from house 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.Fields[6].AsString:=labelededit7.text;
adoquery1.Fields[7].AsString:=labelededit8.text;
adoquery1.Fields[8].AsString:=labelededit9.text;
adoquery1.Fields[9].AsString:=labelededit10.text;
adoquery1.Fields[10].AsString:=labelededit11.text;

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

procedure Tfwjb.LabeledEdit11KeyPress(Sender: TObject; var Key: Char);
var
   tprice:real;
begin
   if key=#13 then
    begin
      tprice:=strtofloat(labelededit6.Text)* strtofloat(labelededit11.Text);
      labelededit5.Text:=floattostr(tprice);
    end;   
end;

procedure Tfwjb.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
 var sql:string;
begin
if key=#13 then
  begin
sql:='select * from house where (hno='''+trim(labelededit1.text)+''') ';
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.sql.add(sql);
adoquery1.Open;

 if adoquery1.RecordCount=0 then
 begin
 showmessage('你要修改的房屋号暂不存在，请重新输入！！');
 end
 else begin
  showmessage('ok!');
       end;

  adoquery1.ExecSQL;
  adoquery1.close;
  adoquery1.sql.Clear;
  adoquery1.SQL.Add('select * from house');
  adoquery1.Open;
end;
end;
end.