tb_openfilepath.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit TB_OpenFilePath;

{
代码单元名称：通用库表备份工具路径确定窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

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

type
  TTB_DfmOpenFilePath = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    DestinationDatabaseNameEdit:TEdit;
    constructor Create(Owner:TComponent;ADestinationDatabaseNameEdit:TEdit);overload;
  end;

implementation

{$R *.DFM}

{ TDfmOpenFilePath }

//构造函数======================================================================
constructor TTB_DfmOpenFilePath.Create(Owner: TComponent;
  ADestinationDatabaseNameEdit:TEdit);
begin
  inherited Create(Owner);
  DestinationDatabaseNameEdit:=ADestinationDatabaseNameEdit;
end;

//关闭==========================================================================
procedure TTB_DfmOpenFilePath.Button2Click(Sender: TObject);
begin
  Close;
end;

//确定==========================================================================
procedure TTB_DfmOpenFilePath.Button1Click(Sender: TObject);
begin
  DestinationDatabaseNameEdit.Text:=DirectoryListBox1.Directory;
  Close;
end;

end.