setpath.pas

delphi编写的图书管理系统,一般的管理系统

unit setpath;

interface

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

type
  Tsetpathfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setpathfrm: Tsetpathfrm;

implementation
   uses global;
{$R *.dfm}

procedure Tsetpathfrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tsetpathfrm.BitBtn1Click(Sender: TObject);
var s:string;
begin
s:=edit2.Text ;
if not directoryexists(s) then
  begin
  messagedlg('路径不存在！',mtError,[mbYes],0);
  exit;
  end;
if s[length(s)]<>'\' then  s:=s+'\';
edit2.Text :=s ;
edit1.Text :=s ;
dbname:=s ;
close;
end;

procedure Tsetpathfrm.FormCreate(Sender: TObject);
begin
edit1.Text :=extractfilepath(application.ExeName)+'data\';
edit2.Text :=edit1.Text ;
dbname:=edit1.Text ;
end;

end.