data_un.pas

来自「手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能」· PAS 代码 · 共 44 行

unit data_un;

interface

uses
  SysUtils, Classes, DB, ADODB,forms,Dialogs, ImgList, Controls;

type
  Tdm = class(TDataModule)
    ADOConnection1: TADOConnection;
    ToolButtonImages: TImageList;
    ImageList1: TImageList;
    ToolImageList: TImageList;
    LargeImageList: TImageList;
    SmallImageList: TImageList;
    ilVoucherSmall: TImageList;
    ilToolBtn: TImageList;
    ImageList2: TImageList;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
ADOConnection1.Connected:=false;
//ADOConnection1.ConnectionString:='FILE NAME='+ExtractFilePath(application.ExeName)+'jxc.udl' ;
ADOConnection1.ConnectionString:='FILE NAME=.\jxc.udl' ;
ADOConnection1.Connected:=true;
// ADOConnection1.Connected then
//owmessage('0');
end;

end.