udm1.pas

工廠倉庫管理系統

unit udm1;

interface

uses
  SysUtils, Classes, DB, ADODB,Forms,
  Dialogs;

type
  Tdm1 = class(TDataModule)
    nationlity: TADOTable;
    area_class: TADOTable;
    bb: TADOTable;
    development: TADOTable;
    unit_dw: TADOTable;
    payment: TADOTable;
    transport_fs: TADOTable;
    admin: TADOTable;
    ADOConnection1: TADOConnection;
    Dproduct_class: TDataSource;
    Dmaterial_class: TDataSource;
    Dnationlity: TDataSource;
    Darea_class: TDataSource;
    Dbb: TDataSource;
    Ddevelopment: TDataSource;
    Dunit_dw: TDataSource;
    Dpayment: TDataSource;
    Dtransport_fs: TDataSource;
    Dadmin: TDataSource;
    adomaterial: TADOQuery;
    adoproduct: TADOQuery;
    adotransport: TADOQuery;
    adowarehouse: TADOQuery;
    ADOmaterial_class: TADOQuery;
    ADOproduct_class: TADOQuery;
    ADOsmallclass: TADOQuery;
    smallclass: TDataSource;
    Datasupplier: TDataSource;
    Datacustomer: TDataSource;
    ADOsupplier: TADOTable;
    ADOcustomer: TADOTable;
    ADOCommand1: TADOCommand;
    PublicQuery: TADOQuery;
    ADOConnection2: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm1: Tdm1;

implementation
USES UCONST;
{$R *.dfm}

procedure Tdm1.DataModuleCreate(Sender: TObject);
begin
isclose:=false;
adoconnection1.ConnectionString:=connectionstring;
adoconnection2.ConnectionString:=connectionstring_1;
try
   adoconnection1.Open;
   adoconnection2.Open;
except
     showmessage('连接服务器失败,系统终止');
     isclose:=true;
     dm1.Free;
     exit;
end;
   if not adomaterial_class.Active then adomaterial_class.Open;
   if not adoproduct_class.Active then adoproduct_class.Open;
   if not adosmallclass.Active then adosmallclass.Open;
   if not adosupplier.Active then adosupplier.Open;
   if not adocustomer.Active then adocustomer.Open;
   if not area_class.Active then area_class.Open;
   if not nationlity.Active then nationlity.Open;
   if not bb.Active then bb.Open;
   if not payment.Active then payment.Open;
   nationlity.TableName:='country_class';
   nationlity.Open;
   area_class.TableName:='area_class';
   area_class.Open;
   bb.TableName:='bb_class';
   bb.Open;
   development.TableName:='department';
   development.Open;
   unit_dw.TableName:='unit_class';
   unit_dw.Open;
   payment.TableName:='payment_class';
   payment.Open;
   transport_fs.TableName:='transport_fs';
   transport_fs.Open;






 end;

end.