dbset.pas

某疗养院动脉硬化管理系统

unit DBSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseUnit, StdCtrls, Buttons, ADODB, IniFiles;

type
  TFrmDBSet = class(TForm1)
    Label1: TLabel;
    EdtSvr: TEdit;
    Label2: TLabel;
    EdtUID: TEdit;
    Label3: TLabel;
    EdtPass: TEdit;
    Label4: TLabel;
    EdtView: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDBSet: TFrmDBSet;

implementation

uses PubFunction;

{$R *.dfm}

procedure TFrmDBSet.BitBtn2Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFrmDBSet.FormShow(Sender: TObject);
var IniFile:TIniFile;
begin
  Left:=(Screen.Width-width)div 2;
  Top:=(Screen.Height-height)div 2;
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'OracleSet.ini');
  try
    with IniFile do
    begin
      EdtUID.Text:=ReadString('User','User','Pacs');
      EdtPass.Text:=ReadString('PassWord','PassWord','1');
      EdtSvr.Text:=ReadString('Server','Server','hd');
      EdtView.Text:=ReadString('View','View','REDH.HVS_DMYHPATINFO');
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TFrmDBSet.BitBtn1Click(Sender: TObject);
var IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'OracleSet.ini');
  try
    with IniFile do
    begin
      WriteString('User','User',EdtUID.Text);
      WriteString('PassWord','PassWord','1');;
      WriteString('Server','Server',EdtSvr.Text);
      WriteString('View','View',EdtView.Text);
    end;
  finally
    IniFile.Free;
  end;
  close;
end;

procedure TFrmDBSet.BitBtn3Click(Sender: TObject);
var ADOCn:TADOConnection;
begin
  inherited;
  ADOCn:=TADOConnection.Create(nil);
  ADOCn.ConnectionString:='Provider=MSDAORA.1;Password='+EdtPass.Text+';User ID='+EdtUID.Text+';Data Source='+EdtSvr.Text;
  ADOCn.LoginPrompt:=False;
  try
    ADOCn.Open;
    application.MessageBox('HIS数据库连接成功！','提示',mb_ok+mb_iconinformation);
    ADOCn.Free;
  except
    on e:Exception do
    begin
      Application.MessageBox('HIS数据库连接失败，请重新设置数据库连接！','警告',mb_ok+mb_iconwarning);
      WriteLog('HIS数据库连接失败,'+e.Message);
      ADOCn.Free;
    end;
  end;
end;

end.