unit1.pas

来自「DELPHI下Intraweb技术写的客户端。」· PAS 代码 · 共 45 行

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWCompLabel, IWExtCtrls, DB, ADODB, IWWebGrid, IWDBAdvWebGrid,
  IWHTMLControls;

type
  TIWForm1 = class(TIWAppForm)
    ADOQuery1: TADOQuery;
    TIWDBAdvWebGrid1: TTIWDBAdvWebGrid;
    DataSource1: TDataSource;
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}
uses
  UserSessionUnit;

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
var
 SQLQ:string;
begin
  SQLQ:='Select * from Main where Delete<>1 order by LastTime Desc';


  ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(SQLQ);
  ADOQuery1.Active:=True;

end;


initialization
  TIWForm1.SetAsMainForm;

end.