iwunit1.pas

Delphi7编程80例(完全版)

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWDBStdCtrls, IWCompLabel, Controls,
  IWControl, IWGrids, IWDBGrids, DB, Classes, DBTables, IWCompButton,
  IWCompEdit, IWExtCtrls;

type
  TformMain = class(TIWAppForm)
    DataSource1: TDataSource;
    IWDBGrid1: TIWDBGrid;
    IWLabel1: TIWLabel;
    Query1: TQuery;
    IWLabel2: TIWLabel;
    IWButton2: TIWButton;
    IWImage1: TIWImage;
    IWDBLabel1: TIWDBLabel;
    IWButton3: TIWButton;
    IWDBNavigator1: TIWDBNavigator;
    IWEdit1: TIWEdit;
    IWButton1: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
Begin
Query1.Close;
Query1.SQL.Clear;
   //下列语句实现模糊查询
Query1.SQL.Add('select * from picture where memos like "%'+IWEdit1.Text+'%"');
Query1.ExecSQL;
Query1.Active:=True;
end;

procedure TformMain.IWButton2Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from picture');  //显示所有数据记录
Query1.ExecSQL;
Query1.Active:=True;
end;

procedure TformMain.IWButton3Click(Sender: TObject);
begin
IWImage1.Picture.LoadFromFile(IWDBLabel1.Caption); //载入图像文件
end;

end.