unit3.~pas

这是一个小区物业管理系统

unit Unit3;

interface

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

type
  TfrmJbxx = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cbField: TComboBox;
    cbCondition: TComboBox;
    edtvalue: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn7: TBitBtn;
    Bevel3: TBevel;
    Panel5: TPanel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmJbxx: TfrmJbxx;

implementation

{$R *.dfm}

procedure TfrmJbxx.BitBtn1Click(Sender: TObject);
var
 str:string;
begin
if edtvalue.Text<>'' then
 begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  if cbcondition.Text='=' then
     str:='select * from jumintable where '+trim(cbfield.Text)+trim(cbcondition.Text)+''''+trim(edtvalue.Text)+''''
  else
     str:='select * from jumintable where '+trim(cbfield.Text)+' '+trim(cbcondition.Text)+' '+''''+trim(edtvalue.Text)+'%'+'''';
  ADOQuery1.SQL.Add(str);
  ADOQuery1.Prepared;
  ADOQuery1.Open;
 end
else
 showmessage('请输入查询值！');
end;

procedure TfrmJbxx.BitBtn7Click(Sender: TObject);
begin
 self.Close;
end;

procedure TfrmJbxx.BitBtn2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('select * from juminTable');
ADOQuery1.Prepared;
ADOQuery1.Open;
end;

end.