main.~pas

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

unit main;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'DBConfig.ini');
  try
    with IniFile do
    begin
      EdtSvr.Text:=ReadString('Server','Server','.');
      EdtDB.Text:=ReadString('DB','DB','Complior');
      EdtUser.Text:=ReadString('User','User','sa');
      EdtPass.Text:=ReadString('Pass','Pass','sa');
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'DBConfig.ini');
  try
    with IniFile do
    begin
      WriteString('Server','Server',EdtSvr.Text);
      WriteString('DB','DB',EdtDB.Text);
      WriteString('User','User',EdtUser.Text);
      WriteString('Pass','Pass',EdtPass.Text);
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var ADOCn:TADOConnection;
begin
  ADOCn:=TADOConnection.Create(nil);
  ADOCn.ConnectionString :='Provider=SQLOLEDB.1;Password='+EdtPass.Text+';Persist Security Info=True;User ID='+EdtUser.Text+';Initial Catalog='+EdtDB.Text+';Data Source='+EdtSvr.Text;
  try
    ADOCn.Open;
    application.MessageBox('数据库连接成功！','提示',mb_ok+mb_iconinformation);
    ADOCn.Close;
    ADOCn.Free;
  except
    on e:Exception do
    begin
      application.MessageBox('数据库连接失败，请重新配置！'+,'警告',mb_ok+mb_iconwarning);
      ADOCn.Close;
      ADOCn.Free;
    end;
  end
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Left:=(Screen.Width-width)div 2;
  Top:=(Screen.Height-height)div 2;
end;

end.