unit1.pas

学费管理系统,学校使用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, DB, ADODB,  StdCtrls, cxButtons,
  cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls,registry, WinSkinData;

type
  TInitdb_form = class(TForm)
    Panel1: TPanel;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    pass_Edit: TEdit;
    dbname_edit: TEdit;
    servername_Edit: TEdit;
    account_edit: TEdit;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    SkinData1: TSkinData;
    procedure cxButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Initdb_form: TInitdb_form;

implementation

{$R *.dfm}

procedure TInitdb_form.cxButton3Click(Sender: TObject);
var
  wpath:string;
  Registry: TRegistry;
begin
  WPath := ExtractFilePath(Application.ExeName);
  if trim(servername_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('服务器名称没有填写!'),'错误',MB_OK);
    servername_Edit.SetFocus;
    exit;
  end;
  if trim(account_edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('登录帐户没有填写!'),'错误',MB_OK);
    account_edit.SetFocus ;
    exit;
  end;
  if trim(dbname_edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('数据库名没有填写!'),'错误',MB_OK);
    dbname_edit.SetFocus ;
    exit;
  end;
  ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+trim(pass_edit.Text )+';Persist Security Info=True;User ID='+trim(account_edit.Text )+';Data Source='+trim(servername_edit.Text )+';Initial Catalog='+trim(dbname_edit.Text );
  try
    aDOConnection1.Open;
  except
    MessageBox(application.handle,pchar('无法登录指定数据库,请检查登录信息'),'错误',MB_OK);
    exit;
  end;
  Registry := TRegistry.Create();
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    Registry.OpenKey('software\Manage', true);
    registry.WriteString('servername',trim(servername_Edit.Text ));
    registry.WriteString('accountname',trim(account_edit.Text ));
    registry.WriteString('passname',trim(pass_edit.Text ));
    registry.WriteString('dbname',trim(dbname_edit.Text ));
  finally
     freeandnil(registry);
  end;
  MessageBox(application.handle,pchar('数据库连接保存成功!'),'信息',MB_OK);
  self.Close;
end;

procedure TInitdb_form.FormCreate(Sender: TObject);
var
  Registry: TRegistry;
  server,account,pass,db:String;                
begin
  Registry := TRegistry.Create();
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    if Registry.OpenKey('software\Manage', False) then
    begin
      server:=registry.ReadString('servername');
      account:=registry.ReadString('accountname');
      pass:=registry.ReadString('passname');
      db:=registry.ReadString('dbname');
      servername_edit.Text :=server;
      account_Edit.Text :=account;
      pass_edit.Text :=pass;
      dbname_Edit.Text :=db;
    end ;
  finally
    freeandnil(registry);
  end;

end;

procedure TInitdb_form.cxButton2Click(Sender: TObject);
begin
  self.Close;
end;

end.