unit_fwcx.pas

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

unit Unit_fwcx;

interface

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

type
  Tfwcx = class(TForm)
    GroupBox3: TGroupBox;
    LabeledEdit16: TLabeledEdit;
    LabeledEdit17: TLabeledEdit;
    LabeledEdit18: TLabeledEdit;
    LabeledEdit19: TLabeledEdit;
    LabeledEdit20: TLabeledEdit;
    LabeledEdit21: TLabeledEdit;
    LabeledEdit22: TLabeledEdit;
    LabeledEdit23: TLabeledEdit;
    LabeledEdit24: TLabeledEdit;
    LabeledEdit25: TLabeledEdit;
    LabeledEdit26: TLabeledEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Button1: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fwcx: Tfwcx;

implementation


   
{$R *.dfm}

procedure Tfwcx.Button1Click(Sender: TObject);
var sql:string;
var com:string;


begin
if trim(combobox1.Text)<>'' then
//只用房屋号查询
begin
sql:='select * from house where (hno='''+trim(combobox1.text)+''')';
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.add(sql);
adoquery1.Open;

if adoquery1.RecordCount=0 then
begin
 showmessage('你要找的房屋号不存在，请重新输入！！');
end;
end
//只用房屋号查询

//紧跟房屋状态查询
else
  begin
    com:='select * from house,zhuangtai where ';
    begin
     if trim(combobox2.text)<>'' then
     com:=com+'(zhuangtai.statue=house.statue)and(yiyi='''+trim(combobox2.text)+''')';
     if trim(combobox3.text)<>'' then
     com:=com+'and(address like '''+trim(combobox3.text)+''')';
     if trim(combobox4.text)<>'' then
    com:=com+'and(model='''+trim(combobox4.text)+''')';
     if ( trim(combobox5.Text)<>'')and(trim(combobox6.Text)<>'') then
    com:=com+'and(area>='+trim(combobox5.text)+')and(area<='+trim(combobox6.text)+')';
     if ( trim(combobox7.Text)<>'')and(trim(combobox8.Text)<>'') then
     com:=com+'and(tprice>='+trim(combobox7.text)+')and(tprice<='+trim(combobox8.text)+')';

     sql:=com;
     adoquery1.Close;
     adoquery1.sql.Clear;
     adoquery1.sql.add(sql);
     adoquery1.Open();
     if adoquery1.RecordCount=0 then
           begin
                showmessage('你要找的房屋号不存在，请重新输入！！');
           end;

    end;
  

 {   if trim(combobox2.Text)<>'' then
    begin
    sql:='select * from house,zhuangtai where (zhuangtai.statue=house.statue)and(yiyi='''+trim(combobox2.text)+''')';
    adoquery1.Close;
    adoquery1.SQL.clear;
    adoquery1.SQL.add(sql);
    adoquery1.Open;
    end //地理位置查询
    else
      begin
         if trim(combobox3.text)<> '' then
         begin
          sql:='select * from house where (address like '''+trim(combobox3.text)+''')';
          adoquery1.Close;
          adoquery1.SQL.Clear;
          adoquery1.SQL.add(sql);
          adoquery1.open;
          if adoquery1.RecordCount=0 then
           begin
                showmessage('你要找的房屋号不存在，请重新输入！！');
           end;
         end;
      end;//地理位置查询  }
end;
//房屋状态查询

end;

procedure Tfwcx.DBGrid1CellClick(Column: TColumn);
begin

labelededit16.text:=adoquery1.Fields[0].AsString;
labelededit17.text:=adoquery1.Fields[1].AsString;
labelededit18.text:=adoquery1.Fields[2].AsString;
labelededit19.text:=adoquery1.Fields[3].AsString;
labelededit20.text:=adoquery1.Fields[4].AsString;
labelededit21.text:=adoquery1.Fields[5].AsString;
labelededit22.text:=adoquery1.Fields[6].AsString;
labelededit23.text:=adoquery1.Fields[7].AsString;
labelededit24.text:=adoquery1.Fields[8].AsString;
labelededit25.text:=adoquery1.Fields[9].AsString;
labelededit26.text:=adoquery1.Fields[10].AsString;

end;

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

end.