?? u_dm.pas
字號:
unit U_DM;
interface
uses
SysUtils, forms, Classes, DB, ADODB;
type
TF_Dm = class(TDataModule)
DBcon: TADOConnection;
Temp: TADOQuery;
Ado_OperateLog: TADOQuery;
Ado_OperateLogUserid: TStringField;
Ado_OperateLogUsername: TStringField;
Ado_OperateLogFormname: TStringField;
Ado_OperateLogOperate: TStringField;
Ado_OperateLogOperateDate: TDateTimeField;
procedure DataModuleCreate(Sender: TObject);
procedure DBconAfterConnect(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_Dm: TF_Dm;
implementation
uses U_Function, U_Dbsetting, Dialogs, U_Login;
{$R *.dfm}
procedure TF_Dm.DataModuleCreate(Sender: TObject);
var F_login: TF_login;
begin
Readfromini(Dbserver, dbname, dbuserid, dbpassword);
if not Connectdb(dbcon, dbname) then
begin
MessageDlg('連接數據庫時出錯誤,請重新設定連接信息!', mtInformation, [mbOK], 0);
// Application.Terminate;
if not assigned(F_dbsetting) then
application.CreateForm(TF_dbSetting, F_dbsetting);
F_dbsetting.ShowModal;
end
else
GetCompanryName(Thecompanry);
F_login := TF_login.create(Self);
F_login.showmodal;
if not F_login.CanLogin then
Application.Terminate;
F_login.Free ;
end;
procedure TF_Dm.DBconAfterConnect(Sender: TObject);
begin
// else
// F_login.Free;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -