iwunit1.~pas

来自「本程序利用了IntraWeb技术在网页中显示数据。 可以动态的显示数据」· ~PAS 代码 · 共 56 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompEdit, IWCompButton, Classes,
  Controls, IWControl, IWCompLabel, DB, DBTables, IWCompListbox, Grids,
  DBGrids, IWGrids, IWDBGrids;

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

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
 var sql:string;
begin
    query1.Close;
    query1.SQL.Clear;
    Case IWComboBox1.ItemIndex of
    0:sql:='select * from friend2.db where name like "%'+IWEdit1.Text+'%"';//检索姓名
    1:sql:='select * from friend2.db where career like "%'+IWEdit1.Text+'%"';//检索职业
    2:sql:='select * from friend2.db where salary '+IWEdit1.Text;//检索薪水
    end;
    query1.SQL.Add(sql);  //添加SQL语句
    query1.ExecSQL;      //执行
    query1.Active:=True;     //显示数据
end;


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