unit_set_sjbf.pas

DELPHI 编写的绣花厂管理软件

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.