unit1.~pas

学习您上载的源码为何会被站长不采用或帐号被删除？

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWCompButton, DB, DBTables, IWCompListbox, IWDBStdCtrls;

type
  TIWForm1 = class(TIWAppForm)
    IWButton1: TIWButton;
    DataSource1: TDataSource;
    Table1: TTable;
    IWDBLookupComboBox1: TIWDBLookupComboBox;
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}


procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
if  not Table1.Active then
begin
Table1.Active:=true;
end;
//WebApplication.ShowMessage(IWDBLookupComboBox1.DataField);
WebApplication.ShowMessage(IWDBLookupComboBox1.Text);
end;

initialization
  TIWForm1.SetAsMainForm;

end.