archives_config.pas

适合新手 绝对精品 档案管理系统 本人花钱购买来的源代

unit Archives_Config;   //数据库服务器配置窗体项目

interface

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

type
  TF_Config = class(TForm)
    Label1: TLabel;
    LEdit1: TLabeledEdit;
    LEdit2: TLabeledEdit;
    BB_Confirm: TBitBtn;
    BB_Cancel: TBitBtn;
    procedure BB_ConfirmClick(Sender: TObject);
    procedure BB_CancelClick(Sender: TObject);
    procedure LEdit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Config: TF_Config;

implementation
uses  IniFiles,Qt;
{$R *.dfm}

procedure TF_Config.BB_ConfirmClick(Sender: TObject);
var    {*****确定按钮单击事件*****}
    ini:TIniFile;
begin
    if (LEdit1.Text='')or(LEdit2.Text='') then
      begin
      ShowMessage('请输入数据库服务器名和数据库名');
      LEdit1.SetFocus;  //焦点在数据库服务器名输入框
      exit;
      end;
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
    ini.WriteString('Database','Initial Catalog',LEdit2.Text);  //将数据库名写入配置文件
    ini.WriteString('Database','Data Source',LEdit1.Text);      //将数据库服务器名写入配置文件
    F_Config.Close;  //关闭数据库服务器配置窗口
end;

procedure TF_Config.BB_CancelClick(Sender: TObject);
begin  {*****取消按钮单击事件*****}
    F_Config.Close;  //关闭数据库服务器配置窗口
end;

procedure TF_Config.LEdit2KeyPress(Sender: TObject; var Key: Char);
begin  {*****数据库名输入框键盘输入事件*****}
    if (Key = #13) then        //按下回车键执行
      BB_ConfirmClick(Sender); //调用确定按钮点击事件
end;

end.