unit Unit_set_sjbf;

interface

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

type
  Tform_set_sjbf = class(TForm_jc_child)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_set_sjbf: Tform_set_sjbf;

implementation

uses Unit_main;

{$R *.dfm}

procedure Tform_set_sjbf.FormShow(Sender: TObject);
begin
  inherited;
  // self.Width :=283;
 //  self.Height :=152;
end;

procedure Tform_set_sjbf.Button1Click(Sender: TObject);
var
  filename:string;
begin
if messagedlg('警告：備份前注意輸入新的文件名，確定備份嗎？',mtWarning,[mbyes,mbno],0)=mryes then
begin
         filename:=Edit1.text+'.mdb';
         if fileExists(ExtractFilePath(Application.exename)+'\backup\'+filename) then
         begin
         messagebox(Handle,'數據庫文件已經存在，'+#13#10+'不用建備份該文件。','確定',
           mb_ok or MB_ICONWARNING);
         exit;
         end
         else
         copyfile(PChar(ExtractFilePath(Application.exename)+'\xhxc.mdb'),
         PChar(ExtractFilePath(Application.exename)+'\backup\'+filename),true);
         messagebox(Handle,'數據庫文件備份成功','確定',mb_ok or MB_ICONWARNING);
end;
end;

procedure Tform_set_sjbf.FormCreate(Sender: TObject);
begin
    //inherited;
   //窗體創建時將其名字加入主窗體的“已創建窗體數組”中
   form_main.p_add_form(self.Name);
end;

procedure Tform_set_sjbf.Button2Click(Sender: TObject);
begin
  inherited;
   self.Close;
end;

end.