dataunit.pas

用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 调货计划

unit DataUnit;

interface

uses
  Windows, SysUtils, Classes, DB, ADODB,Messages,Dialogs;

type
  TDM = class(TDataModule)
    Conn_UF: TADOConnection;
    DataSet_LogDiary: TADODataSet;
    Conn_LS: TADOConnection;
    TmpDataSet: TADODataSet;
    SQL: TADOCommand;
    DataSet_User: TADODataSet;
    tbPower: TADOTable;
    Conn_PM: TADOConnection;
    SQL_PM: TADOCommand;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
  ComputerName :string;
//  Reg: TRegistry;
begin
{
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CURRENTCONTROLSET\CONTROL\COMPUTERNAME\COMPUTERNAME', True)
    then
    ComputerName := Reg.ReadString('computername');
  finally
    Reg.CloseKey;
    Reg.Free;
}

  try
    Conn_UF.Connected  :=True;
    DataSet_LogDiary.Open;
    DataSet_User.Open ;
    tbPower.Open ;
  except
    Showmessage('ERP 数据库连接失败! ');
    exit;
  end;

  try
    Conn_LS.Connected  :=True;
  except
    Showmessage('LS 数据库连接失败! ');
    exit;
  end;
end;

end.