【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Fdm.pas”一文,供大家参考学习!
unit Fdm;
interface
uses
SysUtils, Classes, DB, ADODB,inifiles,forms,dialogs;
type
TF_dm = class(TDataModule)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
users: TADOQuery;
back: TADOCommand;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_dm: TF_dm;
dminifile:Tinifile;
implementation
uses Fdataset;
{$R *.dfm}
procedure TF_dm.DataModuleCreate(Sender: TObject);
var
filename:string;
server,database:string;
con:string;
begin
try
filename:=Extractfilepath(Application.ExeName)+'boot.ini';
dminifile:=Tinifile.Create(filename);
server:=dminifile.ReadString('EMS','server',''); //写server或写''
database:=dminifile.ReadString('EMS','database','');
con:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+database+';Data Source='+server;
Adoconnection1.ConnectionString:='';
Adoconnection1.ConnectionString:=con;
dminifile.Free;
with users do
begin
Close;
SQL.Clear;
SQL.Add('select * from tb_power');
users.Active:=True;
OPen;
end;
except
Application.CreateForm(TF_dataset, F_dataset);
F_dataset.ShowModal;
F_dataset.Free;
end;
end;
end.