diff options
Diffstat (limited to 'examples/gui/interbasetest/mainform.frm')
-rw-r--r-- | examples/gui/interbasetest/mainform.frm | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/examples/gui/interbasetest/mainform.frm b/examples/gui/interbasetest/mainform.frm new file mode 100644 index 00000000..354c5b6e --- /dev/null +++ b/examples/gui/interbasetest/mainform.frm @@ -0,0 +1,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 |