-
Notifications
You must be signed in to change notification settings - Fork 4
/
QBDBFrm.pas
74 lines (60 loc) · 2 KB
/
QBDBFrm.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
{*******************************************************}
{ }
{ Delphi Visual Component Library }
{ QBuilder dialog component }
{ }
{ Copyright (c) 1996-2003 Sergey Orlik }
{ }
{ Written by: }
{ Sergey Orlik }
{ product manager }
{ Russia, C.I.S. and Baltic States (former USSR) }
{ Borland Moscow office }
{ Internet: support@fast-report.com, }
{ sorlik@borland.com }
{ http://www.fast-report.com }
{ }
{ Converted to Lazarus/Free Pascal by Jean Patrick }
{ Data: 14/02/2013 }
{ E-mail: jpsoft-sac-pa@hotmail.com }
{ }
{*******************************************************}
unit QBDBFrm;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
interface
uses
Controls, Forms,
StdCtrls, ExtCtrls;
type
TOQBDBForm = class(TForm)
BtnOk: TButton;
BtnCancel: TButton;
Bevel1: TBevel;
ComboDB: TComboBox;
CheckDB: TCheckBox;
EdtDir: TEdit;
btnDir: TButton;
Label1: TLabel;
Label2: TLabel;
procedure btnDirClick(Sender: TObject);
end;
implementation
{$R *.lfm}
uses
QBDirFrm;
procedure TOQBDBForm.btnDirClick(Sender: TObject);
var
QBDirForm: TOQBDirForm;
s: string;
begin
s := '';
QBDirForm := TOQBDirForm.Create(Application);
GetDir(0, s);
QBDirForm.Directory := s;
if QBDirForm.ShowModal = mrOk then
EdtDir.Text := QBDirForm.Directory;
QBDirForm.Free;
end;
end.