uupdate.~pas

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

unit UUpDate;

interface

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

type
  TFUpDateIni = 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;
    Label6: TLabel;
    Edit0: TEdit;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
   UpdateINI:string;HTTP,IP1,IP2,usr,Pwd,FileName:string;
  end;

var
  FUpDateIni: TFUpDateIni;

implementation

uses Unit4, PubFun;

{$R *.dfm}

procedure TFUpDateIni.FormShow(Sender: TObject);
begin
if not DM.UpDateC(HTTP,IP1,IP2,usr,Pwd,FileName) then
 Begin Msg1('读自动更新参数文件内容出错！');close;End;
UpdateINI:=ExtractFileName(Unit4.UpdateINI);
Edit0.Text:=HTTP;//写入库名
Edit1.Text:=IP1;//写入库名
Edit2.Text:=IP2;//写入主文件名
Edit3.Text:=usr;//写入日志文件名
Edit4.Text:=Pwd;//写入服务器名
Edit5.Text:=FileName;//写入用户名
Caption:='自动更新参数文件('+UpdateINI+')内容';
end;

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

procedure TFUpDateIni.BitBtn4Click(Sender: TObject);
begin
if Msg1('确实要修改自动更新参数文件吗?','警告!',MB_YESNO)<>MrYes then exit;
HTTP:=Edit0.Text;//写入库名
IP1:=Edit1.Text;//写入库名
IP2:=Edit2.Text;//写入主文件名
usr:=Edit3.Text;//写入日志文件名
pwd:=Edit4.Text;//写入服务器名
Filename:=Edit5.Text;//写入用户名
if DM.WriteUpDateC(HTTP,IP1,IP2,usr,Pwd,FileName) then
 Begin
  Msg1('成功写到自动更新参数文件('+UpdateINI+')中！');
  if CheckBox1.Checked then close;end
else Msg1('写自动更新参数文件('+UpdateINI+')失败！');
end;

end.