u_odbcreg.~pas

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

unit u_ODBCReg;

interface

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

type
  TfrmODBCReg = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Btn_Close: TButton;
    Btn_Enter: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Btn_EnterClick(Sender: TObject);
    procedure Btn_CloseClick(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmODBCReg: TfrmODBCReg;
  //声明函数
  Procedure Check_Regedit( Temp_DateSource_Name,Temp_Server_Name,U_Name,U_Pws : String );

implementation

uses u_ShareFun;

{$R *.dfm}
Procedure Check_Regedit( Temp_DateSource_Name,Temp_Server_Name,U_Name,U_Pws : String ) ;
var
  REG : TRegistry;
  DateSource_Name : String;     //接收数据源的名称
  Server_Name : String;         //服务器名称
  User_Name : String;           //用于存储用户名称的变量
  User_Pws : String;            //用于存储用户秘码的变量
begin
  DateSource_Name := Temp_DateSource_Name;
  Server_Name := Temp_Server_Name;
  User_Name := U_Name;
  User_Pws := U_Pws;
try
  REG := TRegistry.Create;
  REG.RootKey := HKEY_CURRENT_USER;
  if REG.OpenKey( '\SoftWare\ODBC\ODBC.INI\ODBC Data Sources',True ) then
  begin
    REG.WriteString(DateSource_Name,'SQL Server');
  end;
  if REG.OpenKey( '\SoftWare\Odbc\odbc.ini\JDMis',true) then
  begin
    REG.WriteString('DateBase',DateSource_Name);
    REG.WriteString('Driver','C:\WINDOWS\System32\SQLSRV32.dll');
    REG.WriteString('LastUser','Administrator');
    REG.WriteString('Server',Server_Name);
    REG.WriteString('Trusted_Connection','Yes');
    REG.WriteString('U_Name',User_Name);
    REG.WriteString('U_Pws',User_Pws);
  end;
  showmessage('数据源注册成功！,请重新打开程序！');
  Application.Terminate;
finally
  REG.CloseKey;
  REG.Free;
end;
end;
procedure TfrmODBCReg.Btn_EnterClick(Sender: TObject);
begin
  Check_Regedit(Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text);   //调用函数
end;

procedure TfrmODBCReg.Btn_CloseClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmODBCReg.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=13) and (edit2.Text<>'') then
      edit1.SetFocus;
end;

procedure TfrmODBCReg.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=13) and (edit1.Text<>'') then
      edit3.SetFocus;
end;

procedure TfrmODBCReg.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=13) and (edit3.Text<>'') then
      edit4.SetFocus;
end;

procedure TfrmODBCReg.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=13) and (edit4.Text<>'') then
      Btn_Enter.SetFocus;
end;

end.