u_datactrl.pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_DataCtrl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB , Registry;

type
  TfrmDataCtrl = class(TForm)
    ADOConn: TADOConnection;
    sp_GetSysDate: TADOStoredProc;
    procedure FormCreate(Sender: TObject);
    function Run_SQL( SQLSTR :String ):Boolean;
    function ReturnQuery(Temp_Sql: String): TADOQuery;
    procedure CheckODBC();
  private
    { Private declarations }
  public
    { Public declarations }
    ServerName,DBName,UserName,UserPass:string;
  end;


var
  frmDataCtrl: TfrmDataCtrl;

implementation

uses u_ODBCReg;

{$R *.dfm}

procedure TfrmDataCtrl.FormCreate(Sender: TObject);
var
     pathstr:string;
     ConnStr:String;
begin
    CheckODBC();
    ConnStr:='Provider=SQLOLEDB.1;Password='+UserPass+';Persist Security Info=True;' ;
    ConnStr:=ConnStr+' User ID='+UserName+';Initial Catalog='+DBName+';Data Source='+ServerName;
    frmDataCtrl.ADOConn.ConnectionString:=ConnStr ;
    try
      frmDataCtrl.ADOConn.Open;
    except
      begin
        MessageBox(getActiveWindow(),'数据库连接出错......','报错',mb_ok+mb_iconStop);
      end;
    end;
end;

function TfrmDataCtrl.Run_SQL( SQLSTR :String ):Boolean;
var
  Query :TADOQuery;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  Query.Connection := frmDataCtrl.ADOConn;
  Query.Close;
  Query.SQL.Text := SQLSTR;
  try
    Query.ExecSQL;
  except
    ShowMessage('数据库操作失败');
    Exit;
  end;
  Result := True;
end;

function TfrmDataCtrl.ReturnQuery(Temp_Sql: String): TADOQuery;
var
  Qry : TADOQuery;
begin
  Qry := TADOQuery.Create(nil);
  Qry.Connection := ADOConn;
  Qry.Close;
  Qry.SQL.Text := Temp_Sql;
  try
    Qry.Open;
  except
    ShowMessage('数据库操作失败');
  end;
  Result := Qry;
end;

procedure TfrmDataCtrl.CheckODBC();
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create();
  Reg.RootKey := HKEY_CURRENT_USER;
  if REG.OpenKey( '\SoftWare\Odbc\odbc.ini\JDMis',true) then
  begin
    ServerName:=Reg.ReadString('Server');
    DBName:=Reg.ReadString('DateBase');
    UserName:=Reg.ReadString('U_Name');
    UserPass:=Reg.ReadString('U_Pws');
  end;
end;

end.