⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 iwunit1.pas

📁 Delphi7编程80例(完全版)
💻 PAS
字号:
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.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -