udbn.~pas

用delphi实现的一个酒店管理系统框架

unit UDBN;

interface

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

type
  TDBNini = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn4: TBitBtn;
    CheckBox1: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DBNini: TDBNini;

implementation

uses Unit4, PubFun;

{$R *.dfm}

procedure TDBNini.FormShow(Sender: TObject);
begin
Edit1.Text:=DM.DBN;//写入库名
Edit2.Text:=DM.F1;//写入主文件名
Edit3.Text:=DM.F2;//写入日志文件名
Edit4.Text:=DM.Serv;//写入服务器名
Edit5.Text:=DM.sa;//写入用户名
Caption:='数据库参数文件('+Unit4.Fn+')内容';
end;

procedure TDBNini.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 action:=cafree;
end;

procedure TDBNini.BitBtn4Click(Sender: TObject);
begin
if Msg1('确实要修改数据库参数文件吗?','警告!',MB_YESNO)<>MrYes then exit;
DM.DBN:=Edit1.Text;//写入库名
DM.F1:=Edit2.Text;//写入主文件名
DM.F2:=Edit3.Text;//写入日志文件名
DM.Serv:=Edit4.Text;//写入服务器名
DM.sa:=Edit5.Text;//写入用户名
if DM.WriteDBN() then
 Begin
  Msg1('成功写到数据库参数文件('+Unit4.Fn+')中！');
  if CheckBox1.Checked then close;end
else Msg1('写数据库参数文件('+Unit4.Fn+')失败！');
end;

end.