unit_tfsh.pas

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

unit Unit_tfsh;

interface

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

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

var
  Form_tfsh: TForm_tfsh;

implementation

{$R *.dfm}

procedure TForm_tfsh.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;
  labelededit12.Text:=adoquery1.Fields[11].AsString;
  labelededit13.Text:=adoquery1.Fields[12].AsString;
  labelededit14.Text:=adoquery1.Fields[13].AsString;
  labelededit15.Text:=adoquery1.Fields[14].AsString;
  labelededit16.Text:=adoquery1.Fields[15].AsString;
  labelededit17.Text:=adoquery1.Fields[16].AsString;
  memo1.Text:=adoquery1.Fields[17].AsString;



  labelededit18.Text:=adoquery1.Fields[20].AsString;

   //memo1.Lines.Add(adoquery1.Fields[18].asstring);



end;

procedure TForm_tfsh.BitBtn1Click(Sender: TObject);
begin
 if radiobutton2.Checked then
   begin
    labelededit18.text:='已审核';
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.add('select * from tuifang where (hno='''+trim(labelededit1.Text)+''')');
    adoquery1.Open;

    adoquery1.edit;
    adoquery1.Fields[16].AsString:=labelededit17.text;
    adoquery1.Fields[18].AsString:=memo2.text;
    adoquery1.Fields[20].AsString:=labelededit18.text;
    adoquery1.Post;

    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.add('select * from house');
    adoquery2.Open;

    adoquery2.edit;
    adoquery2.Fields[6].AsString:=labelededit17.text;
    adoquery2.Post;
   end
 else labelededit17.Text:='0';
      labelededit18.text:='已审核';
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.add('select * from tuifang where (hno='''+trim(labelededit1.Text)+''')');
      adoquery1.Open;

      adoquery1.edit;
      adoquery1.Fields[16].AsString:=labelededit17.text;
      adoquery1.Fields[18].AsString:=memo2.text;
      adoquery1.Fields[20].AsString:=labelededit18.text;

      adoquery1.Post;

      labelededit17.Text:='0';
      adoquery2.Close;
      adoquery2.SQL.Clear;
      adoquery2.SQL.add('select * from house');
      adoquery2.Open;

      adoquery2.edit;
      adoquery2.Fields[6].AsString:=labelededit17.text;
      adoquery2.Post;

      adoquery3.close;
      adoquery3.sql.Clear;
      adoquery3.SQL.Add('delete from dinggou where(hno='''+trim(labelededit1.text)+''')');
      adoquery3.ExecSQL;
      adoquery3.close;
      adoquery3.sql.Clear;
      adoquery3.SQL.Add('select * from dinggou');
      adoquery3.Open;
showmessage('操作成功!');
end;

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

procedure TForm_tfsh.RadioButton1Click(Sender: TObject);
begin
  //labelededit17.text:='0';
end;

procedure TForm_tfsh.Button1Click(Sender: TObject);

var sql,com1,com2:string;
begin
   com1:=datetostr(datetimepicker1.Date);
   com2:=datetostr(datetimepicker2.Date);

 if trim(combobox1.text)='未审核' then
  begin
   sql:='select * from tuifang where (beizhu is null)and(data >='''+trim(com1)+''')and(data <='''+trim(com2)+''')';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.add(sql);
   adoquery1.Open;
  end
  else if trim(combobox1.text)='已审核' then
  begin
   sql:='select * from tuifang where (data >='''+trim(com1)+''')and(data <='''+trim(com2)+''')and(beizhu='''+trim(combobox1.text)+''')';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.add(sql);
   adoquery1.Open;
   end
   else
   begin
   sql:='select * from tuifang where (data >='''+trim(com1)+''')and(data <='''+trim(com2)+''')and(data >='''+trim(com1)+''')';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.add(sql);
   adoquery1.Open;
   end;
   end;
end.