datamodule.pas

本图书管理系统一sql server为数据库开发平台

unit DataModule;

interface

uses
  Windows,SysUtils, Classes, DB, ADODB,IniFiles, dialogs, ExtCtrls,forms,SetServer;

type
  TData = class(TDataModule)
    ADOConnection1: TADOConnection;
    SellQuery: TADOQuery;
    SellSource: TDataSource;
    LendSource: TDataSource;
    QuerySource: TDataSource;
    LendQuery: TADOQuery;
    Query: TADOQuery;
    PublicQuery: TADOQuery;
    backSource: TDataSource;
    backQuery: TADOQuery;
    Timer1: TTimer;
    Proc: TADOStoredProc;
    public1: TDataSource;
    ADOCommand1: TADOCommand;
    procedure DataModuleCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    dir,servername:string;
    { Public declarations }
  end;

var
  Data: TData;
  setini:Tinifile;


implementation

{$R *.dfm}

procedure TData.DataModuleCreate(Sender: TObject);
var
  ZAppName: array[0..127] of char;
  Hold: String;
  setstring:string;
  Found: HWND;
begin
  hold:=application.Title;
  Application.Title := 'OnlyOne'+ IntToStr(HInstance);
  strPcopy(ZAppName,Hold);
  Found:=Findwindow(nil, ZAppName);
  Application.Title := Hold;
  if Found <> 0 then
  begin
    ShowWindow(Found, SW_RESTORE);
    BringWindowToTop(Found);
    Application.Terminate;
  end;
  getdir(0,dir);
  try
    setini:=Tinifile.Create(dir+'\system.ini');
    servername:=setini.ReadString('server','string','Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=BookManager');
  except
    showmessage('配置文件不存在！！');
  end;
  try
    ADOConnection1.ConnectionString:=servername;
    adoconnection1.Open;
  except
    application.MessageBox('因服务器关闭或其他原因,无法连接到数据库！请从新设置连接','提示',64);
    setstring:=promptdatasource(application.Handle,'');
    if trim(setstring)<>'' then
      setini.WriteString('server','string',setstring);
    //setini.WriteString('server','string',promptdatasource(application.Handle,''));
    Application.Terminate;
  end;
end;

procedure TData.Timer1Timer(Sender: TObject);
begin
  if adoconnection1.Connected then
  begin
    proc.Close;
    proc.ProcedureName:='stopdatepass;1';
    proc.ExecProc;
    proc.Close;
    proc.ProcedureName:='passdate;1';
    proc.ExecProc;
  end;
end;

end.