common_unit.pas

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

unit Common_Unit;

interface

uses
  SysUtils, Classes, DB, ADODB, Windows, Dialogs, Forms, IniFiles;

  procedure WriteIni(FileName,Main,Key,Values: string);
  function ReadIni(FileName,Main,Key: string): string;
  function FileName: string;

  procedure OpenDataSQL(qryOpen: TADOQuery; OpenStr: string);
  function FindSQL(FindStr: string): Boolean;
  procedure ExecSQL(qryExec: TADOQuery;ExecStr: string);
var
  LoginID: string;

implementation

uses LeechdomMain_Unit;

function FileName: string;                   //搜索执行文件下的INI文件读取数据库的连接路径
begin
  Result :=ExtractFilePath(Application.ExeName) + 'ConfigDB.ini';
end;

procedure WriteIni(FileName,Main,Key,Values: string);   //写入INI文件
var
  WIni: TINIFile;
begin
  WIni := TINIFile.Create(FileName);
  try
    WIni.WriteString(Main,Key,Values);
  except
    ShowMessage('写入配置文件错误!');
  end;
  WIni.Destroy;
end;

function ReadIni(FileName,Main,Key: string): string;    //读取INI文件
var
  RIni: TINIFile;
begin
  RIni := TINIFile.Create(FileName);
  try
    Result := RIni.ReadString(Main,Key,'');
  except
    ShowMessage('读取配置文件出错!');
  end;
  RIni.Destroy;
end;

procedure OpenDataSQL(qryOpen: TADOQuery; OpenStr: string);    //执行SQL语句返回数据集
begin
  with qryOpen do
  begin
    Close;
    SQL.Clear;
    SQL.Add(OpenStr);
    Open;
  end;
end;

function FindSQL(FindStr: string): Boolean;
var
  qryFind: TADOQuery;
begin
  try
    qryFind := TADOQuery.Create(Application);
    with qryFind do
    begin
      Connection := frmLeechdomMain.ADOConn;
      Close;
      SQL.Clear;
      SQL.Add(FindStr);
      Open;
      if not Eof then
        Result := True
      else
        Result := False;
    end;
  finally
    qryFind.Free;
  end;
end;

procedure ExecSQL(qryExec: TADOQuery;ExecStr: string);
begin
  with qryExec do
  begin
    Close;
    SQL.Clear;
    SQL.Add(ExecStr);
    ExecSQL;
  end;
end;

end.