【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供dbset.pas参考,解决您在dbset.pas学习中工作中的难题,参考学习。
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.
上一篇:
DBServerClientUnit.pas
下一篇:
中小学生社会教育市场调查综述