unit_khtf.pas

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

unit Unit_khtf;

interface

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

type
  TForm_khtf = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    LabeledEdit8: TLabeledEdit;
    LabeledEdit9: TLabeledEdit;
    LabeledEdit10: TLabeledEdit;
    LabeledEdit11: TLabeledEdit;
    LabeledEdit12: TLabeledEdit;
    LabeledEdit13: TLabeledEdit;
    LabeledEdit14: TLabeledEdit;
    LabeledEdit15: TLabeledEdit;
    LabeledEdit16: TLabeledEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    ADOQuery2: TADOQuery;
    Button2: TButton;
    LabeledEdit17: TLabeledEdit;
    memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure LabeledEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_khtf: TForm_khtf;

implementation
   
{$R *.dfm}

procedure TForm_khtf.Button1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.add('select * from tuifang');
 adoquery1.Open;

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.Fields[11].AsString:=labelededit12.text;
adoquery1.Fields[12].AsString:=labelededit13.text;
adoquery1.Fields[13].AsString:=labelededit14.text;
adoquery1.Fields[14].AsString:=labelededit15.text;
adoquery1.Fields[15].AsString:=labelededit16.text;
adoquery1.Fields[16].AsString:=labelededit17.text;
adoquery1.Fields[17].AsString:=memo1.text;
adoquery1.Fields[19].AsString:=datetostr(date());

adoquery1.Post;
showmessage('申请已提交，等待审核!');
end;

procedure TForm_khtf.LabeledEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin

    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.add('select * from dinggou where hno='+char(39)+trim(labelededit7.text)+char(39));
    adoquery2.Open;
    labelededit1.text:=adoquery2.Fields[11].AsString;
    labelededit2.text:=adoquery2.Fields[12].AsString;
    labelededit3.text:=adoquery2.Fields[13].AsString;
    labelededit4.text:=adoquery2.Fields[14].AsString;
    labelededit5.text:=adoquery2.Fields[15].AsString;
    labelededit6.text:=adoquery2.Fields[16].AsString;
    labelededit7.text:=adoquery2.Fields[0].AsString;
    labelededit8.text:=adoquery2.Fields[1].AsString;
    labelededit9.text:=adoquery2.Fields[3].AsString;
    labelededit10.text:=adoquery2.Fields[9].AsString;
    labelededit11.text:=adoquery2.Fields[2].AsString;
    labelededit12.text:=adoquery2.Fields[8].AsString;
    labelededit13.text:=adoquery2.Fields[7].AsString;
    labelededit14.text:=adoquery2.Fields[5].AsString;
    labelededit15.text:=adoquery2.Fields[10].AsString;
    labelededit16.text:=adoquery2.Fields[4].AsString;
    labelededit17.text:=adoquery2.Fields[6].AsString;
   
  end;
end;

procedure TForm_khtf.Button2Click(Sender: TObject);
begin
  if messagedlg('你确定退出此窗口吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
  close;
end;

end.