?? dm.pas
字號:
unit dm;
interface
uses
SysUtils, Classes, DB, ADODB, Forms;
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
ADOTableSet: TADOTable;
DataSourceSet: TDataSource;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
Currdir: string;
sTablename: TStringlist;
sSQL, sID: string;
implementation
{$R *.dfm}
procedure TDataModule2.DataModuleCreate(Sender: TObject);
var
MDBFILE: string;
const
SQLSERVERNAME: string = 'XVJIE';
SQLDBNAME: string = 'TD_DATA';
begin
sTablename := TStringlist.Create;
CURRDIR := ExtractFilePath(Application.ExeName);
ADOConnection1.Close;
MDBFILE := ExtractFilePath(Application.ExeName) + 'DATA.MDB';
ADOConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Data Source=' + MDBFILE + ';' +
'Mode=ReadWrite;Extended Properties="";' +
'Persist Security Info=False;Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";' +
'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;' +
'Jet OLEDB:Database Password="";' +
'Jet OLEDB:Global Partial Bulk Ops=2;' +
'Jet OLEDB:Global Bulk Transactions=1;' +
'Jet OLEDB:New Database Password="";' +
'Jet OLEDB:Create System Database=False;' +
'Jet OLEDB:Encrypt Database=False;' +
'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;' +
'Jet OLEDB:SFP=False';
{SQL
ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;'+
'Integrated Security=SSPI;Persist Security Info=False;'+
'Initial Catalog='+SQLDBNAME +';Data Source='+SQLSERVERNAME ;}
ADOConnection1.LoginPrompt := false;
ADOConnection1.open;
ADOConnection1.GetTableNames(sTablename, False);
end;
procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
sTablename.free;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -