📄 f_dm.pas
字号:
unit F_DM;
interface
uses
SysUtils, Classes, DB, ADODB,windows,
Messages, Variants, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TDM = class(TDataModule)
ADOConn: TADOConnection;
ADOQuery: TADOQuery;
ADOTable: TADOTable;
ADOT_UManage: TADOTable;
ADOT_Print: TADOTable;
ADO: TADOQuery;
AD: TADOQuery;
ADOQuery1: TADOQuery;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.DataModuleCreate(Sender: TObject);
begin
ADOconn.ConnectionString:=ADOconn.ConnectionString+';Data Source='+extractfiledir(application.ExeName)+'\data\xiaoshou.mdb';
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -