u_db_set.pas

学员管理的软件

unit U_db_set;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, StdCtrls, Buttons,shellapi,nb30;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
myfile:Tinifile;
begin
myfile:=Tinifile.Create(extractfilepath(application.ExeName)+'myfile.ini');
myfile.WriteString('db_set','ipaddress',trim(edit1.Text));
myfile.WriteString('db_set','db_name',trim(edit2.Text));
myfile.WriteString('db_set','name',trim(edit3.Text));
myfile.WriteString('db_set','pass',trim(edit4.Text));
myfile.Free;
if (Application.MessageBox(Pchar('数据库信息配置成功！'+chr(10)+chr(13)+'是否关闭当前窗口？'),
'成功信息提示※数据库配置',MB_YESNO+MB_ICONQUESTION))=ID_Yes then
close;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormShow(Sender: TObject);
var
myfile:Tinifile;
begin
myfile:=Tinifile.Create(extractfilepath(application.ExeName)+'myfile.ini');
edit1.Text:=myfile.ReadString('db_set','ipaddress','127.0.0.1');
edit2.Text:=myfile.ReadString('db_set','db_name','exam');
edit3.Text:=myfile.ReadString('db_set','name','sa');
edit4.Text:=myfile.ReadString('db_set','pass','');
myfile.Free;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
if (sender is Tedit) then
(sender as Tedit).Color:=clInactiveCaptionText;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if (sender is Tedit) then
(sender as Tedit).Color:=clwindow;
end;

end.