iwunit1.pas

来自「Delphi7编程80例(完全版)」· PAS 代码 · 共 59 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, DB, DBTables, IWCompListbox,
  IWDBStdCtrls, IWGrids, IWDBGrids, IWCompLabel, IWCompEdit, Classes,
  Controls, IWControl, IWCompButton,SysUtils; //加入这个单元

type
  TformMain = class(TIWAppForm)
    IWButton1: TIWButton;
    IWEdit1: TIWEdit;
    IWLabel1: TIWLabel;
    IWDBGrid1: TIWDBGrid;
    IWLabel2: TIWLabel;
    IWButton2: TIWButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    IWComboBox1: TIWComboBox;
    IWLabel3: TIWLabel;
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton2Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from friends.db');
 Query1.ExecSQL;
 Query1.Active:=True;
end;

procedure TformMain.IWButton1Click(Sender: TObject);
var sql:string;
begin
 Query1.Close;
 Query1.SQL.Clear;
 Case IWComboBox1.ItemIndex of
  0:sql:='select * from friends.db where name like "%'+IWEdit1.Text+'%"';
  1:sql:='select * from friends.db where career like "%'+IWEdit1.Text+'%"';
  2:sql:='select * from friends.db where salary '+IWEdit1.Text;
 end;
 Query1.SQL.Add(sql);
 Query1.ExecSQL;
 Query1.Active:=True;
end;

end.