jvcl driver development envionment

源代码在线查看: main.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				object MainForm: TMainForm
				  Left = 321
				  Top = 293
				  Width = 688
				  Height = 442
				  Caption = 'Metadata explorer'
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  Menu = MainMenu
				  OldCreateOrder = False
				  OnCreate = FormCreate
				  OnDestroy = FormDestroy
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Splitter: TSplitter
				    Left = 225
				    Top = 0
				    Width = 3
				    Height = 393
				    Cursor = crHSplit
				  end
				  object TreeView: TTreeView
				    Left = 0
				    Top = 0
				    Width = 225
				    Height = 393
				    Align = alLeft
				    Indent = 23
				    ReadOnly = True
				    TabOrder = 0
				    OnChange = TreeViewChange
				  end
				  object Memo: TMemo
				    Left = 228
				    Top = 0
				    Width = 452
				    Height = 393
				    Align = alClient
				    ScrollBars = ssVertical
				    TabOrder = 1
				  end
				  object DataBase: TJvUIBDataBase
				    Params.Strings = (
				      'sql_dialect=1'
				      'lc_ctype=NONE'
				      'password=masterkey'
				      'user_name=SYSDBA')
				    DatabaseName = 'D:\EMPLOYEE.DB'
				    SQLDialect = 1
				    UserName = 'SYSDBA'
				    PassWord = 'masterkey'
				    LibraryName = 'gds32.dll'
				    Left = 16
				    Top = 8
				  end
				  object Transaction: TJvUIBTransaction
				    DataBase = DataBase
				    Left = 48
				    Top = 8
				  end
				  object MainMenu: TMainMenu
				    Left = 144
				    Top = 8
				    object mFile: TMenuItem
				      Caption = 'File'
				      object Open: TMenuItem
				        Caption = 'Open Database'
				        OnClick = OpenClick
				      end
				      object SaveToFile1: TMenuItem
				        Caption = 'SaveTo File'
				        OnClick = SaveToFile1Click
				      end
				      object LoadFromFile1: TMenuItem
				        Caption = 'Load From File'
				        OnClick = LoadFromFile1Click
				      end
				    end
				  end
				  object OpenDialog: TOpenDialog
				    Left = 80
				    Top = 8
				  end
				  object SaveDialog: TSaveDialog
				    Left = 112
				    Top = 8
				  end
				end
							

相关资源