unit_khdg.pas

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

unit Unit_khdg;

interface

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

type
  TForm_khdg = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    LabeledEdit8: TLabeledEdit;
    LabeledEdit9: TLabeledEdit;
    LabeledEdit10: TLabeledEdit;
    LabeledEdit11: TLabeledEdit;
    GroupBox2: TGroupBox;
    LabeledEdit12: TLabeledEdit;
    LabeledEdit13: TLabeledEdit;
    LabeledEdit14: TLabeledEdit;
    LabeledEdit15: TLabeledEdit;
    LabeledEdit16: TLabeledEdit;
    LabeledEdit17: TLabeledEdit;
    BitBtn1: TBitBtn;
    ADOQuery2: TADOQuery;
    BitBtn2: TBitBtn;
    ADOQuery3: TADOQuery;
    Button1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_khdg: TForm_khdg;

implementation

{$R *.dfm}

procedure TForm_khdg.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 TForm_khdg.BitBtn1Click(Sender: TObject);

begin

    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.add('select * from dinggou where (hno='''+trim(labelededit1.text)+''')');

    adoquery2.Open;
    if adoquery2.RecordCount>0 then
    showmessage('房屋已被购订！！！')
 else
   begin
      adoquery3.Close;
      adoquery3.SQL.Clear;
      adoquery3.SQL.add('select * from customer where (cno='''+trim(labelededit12.Text)+''')');
      adoquery3.Open;

      if adoquery3.RecordCount>0 then
        showmessage('该客户编号已存在！！！')
      else
      begin
      if (trim(labelededit12.text)='')or(trim(labelededit13.text)='')or(trim(labelededit14.text)='')or(trim(labelededit15.text)='')or(trim(labelededit16.text)='')or(trim(labelededit17.text)='') then
       begin
       showmessage('请填写你的完整信息！！！');
      end
      else
     begin
     if radiobutton1.Checked then
     begin
       labelededit7.Text:='1';


   adoquery2.Append;
   adoquery2.Fields[0].AsString:=labelededit1.text;
   adoquery2.Fields[1].AsString:=labelededit2.text;
   adoquery2.Fields[2].AsString:=labelededit3.text;
   adoquery2.Fields[3].AsString:=labelededit4.text;
   adoquery2.Fields[4].AsString:=labelededit5.text;
   adoquery2.Fields[5].AsString:=labelededit6.text;
   adoquery2.Fields[6].AsString:=labelededit7.text;
   adoquery2.Fields[7].AsString:=labelededit8.text;
   adoquery2.Fields[8].AsString:=labelededit9.text;
   adoquery2.Fields[9].AsString:=labelededit10.text;
   adoquery2.Fields[10].AsString:=labelededit11.text;
   adoquery2.Fields[11].AsString:=labelededit12.text;
   adoquery2.Fields[12].AsString:=labelededit13.text;
   adoquery2.Fields[13].AsString:=labelededit14.text;
   adoquery2.Fields[14].AsString:=labelededit15.text;
   adoquery2.Fields[15].AsString:=labelededit16.text;
   adoquery2.Fields[16].AsString:=labelededit17.text;
   adoquery2.Fields[17].AsString:=datetostr(date());
   adoquery2.Post;

   adoquery3.Close;
   adoquery3.SQL.Clear;
   adoquery3.SQL.add('select * from customer');
   adoquery3.Open;

   adoquery3.Append;
   adoquery3.Fields[0].AsString:=labelededit12.text;
   adoquery3.Fields[1].AsString:=labelededit13.text;
   adoquery3.Fields[2].AsString:=labelededit14.text;
   adoquery3.Fields[3].AsString:=labelededit15.text;
   adoquery3.Fields[4].AsString:=labelededit16.text;
   adoquery3.Fields[5].AsString:=labelededit17.text;

   adoquery3.Post;
    end
    else
      begin
        labelededit7.Text:='2';


   adoquery2.Append;
   adoquery2.Fields[0].AsString:=labelededit1.text;
   adoquery2.Fields[1].AsString:=labelededit2.text;
   adoquery2.Fields[2].AsString:=labelededit3.text;
   adoquery2.Fields[3].AsString:=labelededit4.text;
   adoquery2.Fields[4].AsString:=labelededit5.text;
   adoquery2.Fields[5].AsString:=labelededit6.text;
   adoquery2.Fields[6].AsString:=labelededit7.text;
   adoquery2.Fields[7].AsString:=labelededit8.text;
   adoquery2.Fields[8].AsString:=labelededit9.text;
   adoquery2.Fields[9].AsString:=labelededit10.text;
   adoquery2.Fields[10].AsString:=labelededit11.text;
   adoquery2.Fields[11].AsString:=labelededit12.text;
   adoquery2.Fields[12].AsString:=labelededit13.text;
   adoquery2.Fields[13].AsString:=labelededit14.text;
   adoquery2.Fields[14].AsString:=labelededit15.text;
   adoquery2.Fields[15].AsString:=labelededit16.text;
   adoquery2.Fields[16].AsString:=labelededit17.text;
   adoquery2.Fields[17].AsString:=datetostr(date());
   adoquery2.Post;

   adoquery3.Close;
   adoquery3.SQL.Clear;
   adoquery3.SQL.add('select * from customer');
   adoquery3.Open;

   adoquery3.Append;
   adoquery3.Fields[0].AsString:=labelededit12.text;
   adoquery3.Fields[1].AsString:=labelededit13.text;
   adoquery3.Fields[2].AsString:=labelededit14.text;
   adoquery3.Fields[3].AsString:=labelededit15.text;
   adoquery3.Fields[4].AsString:=labelededit16.text;
   adoquery3.Fields[5].AsString:=labelededit17.text;

   adoquery3.Post;
   end;


showmessage('购订成功！');

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

procedure TForm_khdg.Button1Click(Sender: TObject);
var
  sql:string;
begin
   sql:='select * from house where (statue='''+trim(combobox1.text)+''')';
   adoquery1.Close;
   adoquery1.SQL.clear;
   adoquery1.SQL.add(sql);
   adoquery1.Open;
end;

procedure TForm_khdg.RadioButton1Click(Sender: TObject);
begin
  labelededit7.Text:='1';
end;

procedure TForm_khdg.RadioButton2Click(Sender: TObject);
begin
  labelededit7.Text:='2';
end;

end.