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.