dm_search.pas

公司内部监控员工上网记录的系统

unit dm_search;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, HTTPApp, HTTPProd, CompProd,
  PagItems, MidProd, MidItems, WebComp, XMLBrokr;

type
  TDataModule1 = class(TDataModule)
    DCOMConnection1: TDCOMConnection;
    ClientDataSet1: TClientDataSet;
    pp_page_pass: TPageProducer;
    pp_menu: TPageProducer;
    inetpc: TInetXPageProducer;
    ClientDataSet2: TClientDataSet;
    cds_adduser: TClientDataSet;
    cds_deluser: TClientDataSet;
    cds_deldata: TClientDataSet;
    cds_set_right: TClientDataSet;
    cds_operator: TClientDataSet;
    cds_deloperator: TClientDataSet;
    cds_general1: TClientDataSet;
    cds_general2: TClientDataSet;
    cdssearch_detail: TClientDataSet;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.