iwunit1.~pas

来自「一些关于电子邮件SMTP`POP3 MIME`的源码·个人感觉还不错」· ~PAS 代码 · 共 60 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompButton, IWCompEdit,
  IWDBStdCtrls, IWCompLabel, Classes, Controls, IWControl, IWExtCtrls,
  IWDBExtCtrls;

type
  TformMain = class(TIWAppForm)
    IWDBImage1: TIWDBImage;
    IWDBEdit1: TIWDBEdit;
    IWDBEdit2: TIWDBEdit;
    IWDBEdit3: TIWDBEdit;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController, DatamoduleUnit;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
  With DataModule1 do
    begin
    IWDBEdit1.DataSource:=DataSource1;
    IWDBEdit1.DataField:='NAME';
    IWDBEdit2.DataSource:=DataSource1;
    IWDBEdit2.DataField:='AREA';
    IWDBEdit3.DataSource:=DataSource1;
    IWDBEdit3.DataField:='SIZE';
    IWDBImage1.DataSource:=DataSource1;
    IWDBImage1.DataField:='BMP';
    Table1.Active:=True;
    end;
end;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
  With DataModule1 do
    begin
    Table1.First;
    end;
end;

end.