conndb.pas

老年人大学的学籍管理,主要是学费收取

unit conndb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, StdCtrls, SUIEdit, SUIComboBox, ExtCtrls, SUIForm, comobj;

type
  Tfrmconndb = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    cbxsrv: TsuiComboBox;
    Label2: TLabel;
    edtdb: TsuiEdit;
    Label3: TLabel;
    edtuser: TsuiEdit;
    Label4: TLabel;
    edtpsw: TsuiEdit;
    btnok: TsuiButton;
    btnclose: TsuiButton;
    procedure btncloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmconndb: Tfrmconndb;

implementation

uses inifiles;

{$R *.dfm}

procedure Tfrmconndb.btncloseClick(Sender: TObject);
begin
  close;
end;

procedure Tfrmconndb.FormCreate(Sender: TObject);
var iCount:integer;
    sqlserverobj,sqlserver:variant;
    sqlserverlist:tstringlist;
begin
  try
    SQLServerList := TStringList.Create;
    SQLServerObj := CreateOleObject('SQLDMO.Application');
    SQLServer := SQLServerObj.ListAvailableSQLServers;
    for iCount := 1 to SQLServer.Count do
      begin
      SQLServerList.Add(SQLServer.Item(iCount));
      cbxsrv.Items.Add(SQLServer.Item(iCount));
      end;
  finally
    SQLServerObj := Null;
    SQLServer := Null;
  end;
end;

procedure Tfrmconndb.btnokClick(Sender: TObject);
var inifile:tinifile;
begin
  if trim(cbxsrv.Text)='' then
    begin
    application.MessageBox('请选择数据服务器！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if trim(edtdb.Text)='' then
    begin
    application.MessageBox('请输入数据名称！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if trim(edtuser.Text)='' then
    begin
    application.MessageBox('请输入用户名！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  try
    inifile:=tinifile.Create(extractfilepath(paramstr(0))+'config.ini');
    inifile.WriteString('server','server',cbxsrv.Text);
    inifile.WriteString('data','data',edtdb.Text);
    inifile.WriteString('user','user',edtuser.Text);
    inifile.WriteString('password','password',edtpsw.Text);
    application.MessageBox('数据库配置成功！','提示',mb_ok+mb_iconinformation);
    application.Terminate;
    inifile.Free;
  except
    application.MessageBox('数据库配置失败！','警告',mb_ok+mb_iconwarning);
    inifile.Free;
  end;
end;

procedure Tfrmconndb.FormShow(Sender: TObject);
begin
  left:=(screen.Width-width)div 2;
  top:=(screen.Height-height)div 2;
end;

end.