unit_khfk.pas

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

unit Unit_khfk;

interface

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

type
  TForm_khfk = class(TForm)
    DBGrid1: TDBGrid;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    LabeledEdit8: TLabeledEdit;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    LabeledEdit9: TLabeledEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure LabeledEdit7KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_khfk: TForm_khfk;

implementation

{$R *.dfm}

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

procedure TForm_khfk.BitBtn2Click(Sender: TObject);

begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.add('select * from zhanghu where (hno='''+trim(labelededit1.Text)+''')');
 adoquery1.Open;
 if adoquery1.RecordCount>0 then
    showmessage('该帐户已存在！！！')
 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:=datetostr(date());


 adoquery1.Post;
 end
end;

procedure TForm_khfk.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;

end;

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

adoquery1.edit;
adoquery1.Fields[6].AsString:=labelededit7.text;
adoquery1.Fields[7].AsString:=labelededit8.text;
adoquery1.Fields[8].AsString:=datetostr(date());

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

end;

procedure TForm_khfk.LabeledEdit1KeyPress(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(labelededit1.text)+char(39));
    adoquery2.Open;
    labelededit1.text:=adoquery2.Fields[0].AsString;
    labelededit2.text:=adoquery2.Fields[1].AsString;
    labelededit3.text:=adoquery2.Fields[11].AsString;
    labelededit4.text:=adoquery2.Fields[12].AsString;
    labelededit5.text:=adoquery2.Fields[14].AsString;
    labelededit6.text:=adoquery2.Fields[4].AsString;
  end;
end;

procedure TForm_khfk.LabeledEdit7KeyPress(Sender: TObject; var Key: Char);
var leftmon:real;
begin
if key=#13 then
  begin
    leftmon:=StrToFloat(labelededit6.Text)-StrToFloat(labelededit7.Text);
    labelededit8.Text:=floattostr(leftmon);
  end;
end;

end.