unit_set_sjhy.~pas

DELPHI 编写的绣花厂管理软件

unit Unit_set_sjhy;

interface

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

type
  Tform_set_sjhy = class(TForm_jc_child)
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button3: TButton;
    button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_set_sjhy: Tform_set_sjhy;

implementation
   uses unit_main;
{$R *.dfm}

procedure Tform_set_sjhy.FormCreate(Sender: TObject);
begin
   //窗体创建时将其名字加入主窗体的“已创建窗体数组”中
   form_main.p_add_form(self.Name);
end;

procedure Tform_set_sjhy.Button1Click(Sender: TObject);
var filename1:string;
begin
  inherited;
  // opendialog1.Execute;
   if OpenDialog1.Execute then
      filename1 :=OpenDialog1.FileName;
   edit1.Text:=filename1;
end;

procedure Tform_set_sjhy.button2Click(Sender: TObject);
var filename2:string;
begin
  inherited;
  form_main.ADOCn.Close;
  filename2:=edit1.Text;
  if messagedlg('警告：确定恢复吗？',mtWarning,[mbyes,mbno],0)=mryes then
   begin
         filename2:=Edit1.text;
         copyfile(PChar(filename2),
         PChar(ExtractFilePath(Application.exename)+'\xhxc.mdb'),false);
         messagebox(Handle,'数据库文件恢复成功','确定',mb_ok or MB_ICONWARNING);
         form_main.ADOCn.Open;
   end;
end;

procedure Tform_set_sjhy.Button3Click(Sender: TObject);
begin
  inherited;
  self.Close;
end;

end.