datamodule.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit DataModule;

interface

uses
  Forms, SysUtils, Classes, DB, ADODB, Dialogs, ScktComp, IniFiles, Controls, Registry,
  Windows;

type
  TdmClient = class(TDataModule)
    adocnequip_manage: TADOConnection;
    QCompanyInfo: TADOQuery;
    spUserRight: TADOStoredProc;
    tGroup: TADOTable;
    DataSource1: TDataSource;
    ADOStoredProc1: TADOStoredProc;
    ds_tuser: TDataSource;
    tUser: TADOQuery;
    spUserRightfFunctionID: TIntegerField;
    spUserRightfModuleID: TIntegerField;
    spUserRightfActionName: TWideStringField;
    spUserRightfRun: TBooleanField;
    spUserRightfInsert: TBooleanField;
    spUserRightfEdit: TBooleanField;
    spUserRightfDelete: TBooleanField;
    spUserRightfPrint: TBooleanField;
    spUserRightfConfirm: TBooleanField;
    spUserRightfCancel: TBooleanField;
    spUserRightfFind: TBooleanField;
    spUserRightfFilter: TBooleanField;
    spUserRightfExport: TBooleanField;
    ds_cx2: TDataSource;
    qrycx2: TADOQuery;
    ds_cx4: TDataSource;
    qry_pc: TADOQuery;
    qrycx4: TADOQuery;
    qrycx3: TADOQuery;
    ds_pc: TDataSource;
    ds_cx3: TDataSource;
    ds_cx1: TDataSource;
    ds_cx5: TDataSource;
    dsallcx: TDataSource;
    qry_cx: TADOQuery;
    ds_order_technics_date: TDataSource;
    qry_order_technics_date: TADOQuery;
    qry_formjlh: TADOQuery;
    ds_formjlh: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    qry1: TADOQuery;
    ds1: TDataSource;
    qry_sequ: TADOQuery;
    UpdateDate: TADOQuery;
    qrycx5: TADOQuery;
    ADOQuery3: TADOQuery;
    qrycx1jlh: TBCDField;
    qrycx1form_jlh: TBCDField;
    qrycx1cno: TStringField;
    qrycx1ORDERNO: TStringField;
    qrycx1hth: TStringField;
    qrycx1style: TStringField;
    qrycx1xh: TStringField;
    qrycx1buyer_xh: TStringField;
    qrycx1sizes: TStringField;
    qrycx1buyer_sizes: TStringField;
    qrycx1KIND: TStringField;
    qrycx1sh: TStringField;
    qrycx1sh_remark: TStringField;
    qrycx1buyer_sh: TStringField;
    qrycx1sh_dye: TStringField;
    qrycx1order_amount: TBCDField;
    qrycx1price_unit: TStringField;
    qrycx1add_price: TBCDField;
    qrycx1one_off_money: TBCDField;
    qrycx1smooth: TStringField;
    qrycx1quality: TStringField;
    qrycx1added: TBCDField;
    qrycx1sell_mark: TBooleanField;
    qrycx1tracker: TStringField;
    qrycx1print_out: TBooleanField;
    qrycx1print_date: TDateTimeField;
    qrycx1saverq: TDateTimeField;
    qrycx1injlh: TIntegerField;
    qrycx1finish_date: TDateTimeField;
    qrycx1finish_remark: TStringField;
    qrycx1finish_sign: TStringField;
    qrycx1one_off_money_date: TDateTimeField;
    qrycx1: TADOQuery;
    qry2: TADOQuery;
    qry_formjlh2: TADOQuery;
    ds_formjlh2: TDataSource;
    qryOut: TADOQuery;
    tUserfID: TAutoIncField;
    tUserfCode: TWideStringField;
    tUserfName: TWideStringField;
    tUserused: TBooleanField;
    tUserfdepartment: TWideStringField;
    tUserfPWD: TWideStringField;
    tUserfGroupID: TIntegerField;
    tUserfStatus: TBooleanField;
    tUserfNotes: TWideStringField;
    tUserfFlag: TBooleanField;
    tUserfgroupId_1: TIntegerField;
    tUserfdepotname: TWideStringField;
    tUserfdeprotcode: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmClient          : TdmClient;
  // sCAddress,sCPort,sCHost :String;

implementation

uses Login, Main, Global, Loading;
//uses Login, Main, Global, Loading, ProductFilter, CustomerFilter;
{$R *.dfm}
procedure TdmClient.DataModuleCreate(Sender: TObject); //读取配置表文件打开连接
begin
    self.adocnequip_manage.Close;
    self.adocnequip_manage.ConnectionString:='FILE NAME='+Trim(ExtractFilePath(paramstr(0)))+'public_dbcon.udl';
    self.adocnequip_manage.Open;

   tUser.Open;
   spUserRight.Open;
end;

end.