fmessa.pas

这个是我做的一个小程序

unit fmessa;

interface

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

type
  Tfmessa1 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmessa1: Tfmessa1;

implementation

{$R *.dfm}

procedure Tfmessa1.Button1Click(Sender: TObject);
var
strb,stra,str0,str1,str2,str3,str4,str5:String;
begin
str1:=ComboBox1.Text;
if str1='客户编号' then
str1:='id'
else
if str1='客户名' then
str1:='yonghu'
else
if str1='入库时间' then
str1:='time'
else
if str1='机器型号' then
str1:='weixiuwu'
else
if str1='处理信息' then
str1:='chulixinxi'
else
if str1='维修员' then
str1:='name';
str2:=ComboBox2.Text;
str3:=Edit1.Text;
str4:='''';
str0:='%'+str3+'%';
str5:=' ';
//if ComboBox2.Text='=' then
stra:=str5+'like'+str4+str0+str4;
//else
//stra:=str2+str3;
strb:='select * from weixiu where'+str5+str1+stra;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(strb);
try
ADOQuery1.Open;
except
end;


end;

procedure Tfmessa1.Button2Click(Sender: TObject);
var
strb,stra,str0,str1,str2,str3,str4,str5:String;
begin
str1:='id';
str2:=ComboBox2.Text;
str3:=Edit3.Text;
str4:='''';
str0:='%'+str3+'%';
str5:=' ';
if ComboBox2.Text='=' then
stra:=str5+'like'+str4+str0+str4
else
stra:=str2+str3;
strb:='select * from weixiu where'+str5+str1+stra;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(strb);
try
ADOQuery1.Open;
except
end;
end;

procedure Tfmessa1.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll;
end;

procedure Tfmessa1.Edit3Click(Sender: TObject);
begin
Edit3.SelectAll;
end;

end.