dbset.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit dbset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ahmtlabel, ahmtbackground, ExtCtrls, ahmtpanel,
  Buttons,IniFiles;

type
  TF_DBSet = class(TForm)
    AHMPanel1: TAHMPanel;
    AHMBackground1: TAHMBackground;
    AHMLabel1: TAHMLabel;
    AHMLabel2: TAHMLabel;
    AHMLabel3: TAHMLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_DBSet: TF_DBSet;

implementation

uses dm;

{$R *.dfm}

procedure TF_DBSet.SpeedButton1Click(Sender: TObject);
var
   ini:TIniFile;
begin
   if (Edit1.Text='')or(Edit2.Text='') then
   begin
      ShowMessage('请输入数据库服务器名和数据库名');
      Edit1.SetFocus;  //焦点在数据库服务器名输入框
      exit;
   end;
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
   ini := TIniFile.Create(ChangeFileExt('limis','.INI'));
   ini.WriteString('Database','Initial Catalog',Edit2.Text);  //将数据库名写入配置文件
   ini.WriteString('Database','Data Source',Edit1.Text);      //将数据库服务器名写入配置文件
   F_DBSet.Close;  //关闭数据库服务器配置窗口
end;

procedure TF_DBSet.SpeedButton2Click(Sender: TObject);
begin
   F_DBSet.Close;
end;

procedure TF_DBSet.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if (Key = #13) then        //按下回车键执行
      SpeedButton1Click (Sender); //调用确定按钮点击事件

end;

end.