?? unit3.pas
字號:
unit Unit3;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, DB, ADODB;
type
TCustomerData = class(TDataModule)
ADOConnection1: TADOConnection;
SaveTable: TADOTable;
FpXY: TADOTable;
FpLjXY: TDataSource;
FpReadXY: TADOTable;
UsePass: TADOTable;
FpZF: TADOQuery;
FPTJ: TADOQuery;
XY: TADOConnection;
ADOQuery1: TADOQuery;
ADOTable1: TADOTable;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CustomerData: TCustomerData;
implementation
{$R *.dfm}
procedure TCustomerData.DataModuleCreate(Sender: TObject);
begin
//ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + extractfilepath(application.exename) + '\Data\Sever.mdb;Persist Security Info=False';
//ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BF;Data Source=YangJun';
//XY.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + extractfilepath(application.exename) + '\Data\XY.mdb;Persist Security Info=False';
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -