unit16.pas

本系统是一个房屋出租方面的管理系统

unit Unit16;

interface

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

type
  TFormFWXXCX = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormFWXXCX: TFormFWXXCX;

implementation
uses unit3,unit4;
{$R *.dfm}

procedure TFormFWXXCX.BitBtn1Click(Sender: TObject);
begin
   if (trim(edit1.Text) <> '') and (combobox1.Text <> '')  then
   begin
      try
      database.ADO_FWXX.Close;
      database.ADO_FWXX.SQL.Clear;
      database.ADO_FWXX.SQL.Add('select * from 房屋信息表');
      database.ADO_FWXX.SQL.Add('where');
      database.ADO_FWXX.SQL.Add(combobox1.Text);
      database.ADO_FWXX.SQL.Add('=');
      database.ADO_FWXX.SQL.Add(':a');
      database.ADO_FWXX.Parameters.ParamByName('a').Value:=trim(edit1.Text);
      database.ADO_FWXX.Open;

      FormFWXXCX.Close;
      if database.ADO_FWXX.RecordCount > 0 then
      begin
         application.MessageBox('查询成功!','提示',64);
         FormFWXXZ.edit1.Text:=database.ADO_FWXX.Fields[0].Value;
         FormFWXXZ.edit2.Text:=database.ADO_FWXX.Fields[1].Value;
         FormFWXXZ.edit3.Text:=database.ADO_FWXX.Fields[2].Value;
         FormFWXXZ.edit4.Text:=database.ADO_FWXX.Fields[3].Value;
         FormFWXXZ.edit5.Text:=datetimetostr(database.ADO_FWXX.Fields[4].Value);
         FormFWXXZ.edit6.Text:=database.ADO_FWXX.Fields[5].Value;
         FormFWXXZ.edit7.Text:=database.ADO_FWXX.Fields[6].Value;
         FormFWXXZ.memo1.Text:=database.ADO_FWXX.Fields[7].Value;
      end
      else
      begin
         application.MessageBox('数据库中没有相关记录!','提示',64);
         with database.ADO_FWXX do
         begin
            close;
            sql.Clear;
            sql.Add('select * from 房屋信息表');
           open;
         end;
         FormFWXXZ.edit1.Text:=database.ADO_FWXX.Fields[0].Value;
         FormFWXXZ.edit2.Text:=database.ADO_FWXX.Fields[1].Value;
         FormFWXXZ.edit3.Text:=database.ADO_FWXX.Fields[2].Value;
         FormFWXXZ.edit4.Text:=database.ADO_FWXX.Fields[3].Value;
         FormFWXXZ.edit5.Text:=database.ADO_FWXX.Fields[4].Value;
         FormFWXXZ.edit6.Text:=database.ADO_FWXX.Fields[5].Value;
         FormFWXXZ.edit7.Text:=database.ADO_FWXX.Fields[6].Value;
         FormFWXXZ.memo1.Text:=database.ADO_FWXX.Fields[7].Value;
      end;
      except
      application.MessageBox('系统出错!','提示',64);
      FormFWXXCX.Close;
      end;
   end
   else
   begin
      MessageDlg('查询条件不能为空!',mtWarning,[MbOK],0);
      edit1.SetFocus;
   end;
end;

procedure TFormFWXXCX.FormShow(Sender: TObject);
begin
   edit1.Clear;
   combobox1.ItemIndex:=0;
   edit1.SetFocus;
end;

procedure TFormFWXXCX.BitBtn2Click(Sender: TObject);
begin
   FormFWXXCX.Close;
end;

end.