📄 dbdata.pas
字号:
unit DBData;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
Dialogs, DB, dxCntner, ADODB, ImgList, KsSkinEngine;
type
TfrmData = class(TDataModule)
StyleController: TdxEditStyleController;
ADOConnet: TADOConnection;
ADOConnetLogin: TADOConnection;
ImageList: TImageList;
SeSkinEngine: TSeSkinEngine;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmData: TfrmData;
implementation
uses SysPublic, TableCreate;
{$R *.DFM}
procedure TfrmData.DataModuleCreate(Sender: TObject);
begin
//打开数据库
with frmData.ADOConnetLogin do
begin
if Connected = True then Close;
ConnectionString := GetConnectionString(GetExePath + FILE_LOGIN_DATA);
LoginPrompt := False;
Open('Admin', '');
end;
ControlInitialize;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -