iwunit1.pas

Delphi下IntraWeb应用开发详解 中的Delphi编写的简单的聊天程序

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, DB, IWClientSideDatasetBase,
  IWClientSideDatasetDBLink, IWCompDynamicChartLegend, Controls, IWControl,
  IWCompDynamicChart, Classes, ADODB, DBTables, IWDynGrid, IWGrids,
  IWDBGrids, IWCompMemo, IWCompLabel;

type
  TformMain = class(TIWAppForm)
    DataSource1: TDataSource;
    IWDynamicChart1: TIWDynamicChart;
    IWDynamicChartLegend1: TIWDynamicChartLegend;
    IWClientSideDatasetDBLink1: TIWClientSideDatasetDBLink;
    Table1: TTable;
    Table1NAME: TStringField;
    Table1WEIGHT: TSmallintField;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TSmallintField;
    IWClientSideDatasetDBLink2: TIWClientSideDatasetDBLink;
    DataSource2: TDataSource;
    IWDynamicChart2: TIWDynamicChart;
    IWDynamicChartLegend2: TIWDynamicChartLegend;
    IWMemo1: TIWMemo;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

end.