blob: 354c5b6e632f51524302f27134e5da5b478ba120 (
plain)
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
|
object MainForm: TMainForm
Text = 'Interbase test'
BorderWidth = 8
OnCreate = FormCreate
object Database: TIBDatabase
DatabaseName = 'test.gdb'
UserName = 'sysdba'
Password = 'masterkey'
end
object Transaction: TIBTransaction
end
object DataSource: TDataSource
end
object Box: TBoxLayout
Spacing = 8
Orientation = Vertical
object ConnectionBox: TBoxLayout
object ConnectionLabel: TLabel
Text = 'Connected to database? '
end
object ConnectionStateLabel: TLabel
Text = 'unknown'
end
end
object ListBox: TListBox
end
object CurDatasetLabel: TLabel
Text = 'Current dataset:'
end
object CurNameText: TDBText
Text = '<name>'
end
object CurEMailText: TDBText
Text = '<e-mail>'
end
object Navi: TBoxLayout
object FirstDataset: TButton
Text = 'First'
OnClick = FirstDatasetClick
end
object PrevDataset: TButton
Text = 'Previous'
OnClick = PrevDatasetClick
end
object NextDataset: TButton
Text = 'Next'
OnClick = NextDatasetClick
end
object LastDataset: TButton
Text = 'Last'
OnClick = LastDatasetClick
end
end
end
end
|
