527 lines
11 KiB
Plaintext
527 lines
11 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 207
|
|
Top = 192
|
|
BorderStyle = bsDialog
|
|
Caption = 'Controls example'
|
|
ClientHeight = 446
|
|
ClientWidth = 688
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label12: TLabel
|
|
Left = 306
|
|
Top = 3
|
|
Width = 48
|
|
Height = 13
|
|
Caption = 'Username'
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 688
|
|
Height = 46
|
|
Align = alTop
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 363
|
|
Top = 3
|
|
Width = 48
|
|
Height = 13
|
|
Caption = 'Username'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 6
|
|
Top = 3
|
|
Width = 39
|
|
Height = 13
|
|
Caption = 'Protocol'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 432
|
|
Top = 3
|
|
Width = 46
|
|
Height = 13
|
|
Caption = 'Password'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 126
|
|
Top = 3
|
|
Width = 46
|
|
Height = 13
|
|
Caption = 'Database'
|
|
end
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 222
|
|
Top = 18
|
|
Width = 23
|
|
Height = 22
|
|
Caption = '...'
|
|
Flat = True
|
|
OnClick = SpeedButton1Click
|
|
end
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 501
|
|
Top = 15
|
|
Width = 64
|
|
Height = 25
|
|
Caption = 'Connect'
|
|
Flat = True
|
|
OnClick = SpeedButton2Click
|
|
end
|
|
object Label13: TLabel
|
|
Left = 315
|
|
Top = 3
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'Port'
|
|
end
|
|
object Label14: TLabel
|
|
Left = 246
|
|
Top = 3
|
|
Width = 22
|
|
Height = 13
|
|
Caption = 'Host'
|
|
end
|
|
object SpeedButton3: TSpeedButton
|
|
Left = 567
|
|
Top = 15
|
|
Width = 67
|
|
Height = 25
|
|
Caption = 'Disconnect'
|
|
Flat = True
|
|
OnClick = SpeedButton3Click
|
|
end
|
|
object ZProtocol: TComboBox
|
|
Left = 6
|
|
Top = 18
|
|
Width = 118
|
|
Height = 21
|
|
ItemHeight = 13
|
|
TabOrder = 0
|
|
Text = 'mysql-3.23'
|
|
Items.Strings = (
|
|
'')
|
|
end
|
|
object ZPassword: TEdit
|
|
Left = 432
|
|
Top = 18
|
|
Width = 67
|
|
Height = 21
|
|
PasswordChar = '*'
|
|
TabOrder = 3
|
|
end
|
|
object ZDatabase: TEdit
|
|
Left = 126
|
|
Top = 18
|
|
Width = 94
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = 'zeoslib'
|
|
end
|
|
object ZUername: TEdit
|
|
Left = 363
|
|
Top = 18
|
|
Width = 67
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = 'root'
|
|
end
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Top = 46
|
|
Width = 688
|
|
Height = 400
|
|
ActivePage = TabSheet2
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Simple'
|
|
ImageIndex = 1
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Top = 30
|
|
Width = 680
|
|
Height = 342
|
|
Align = alBottom
|
|
DataSource = DSCargo
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object DBNavigator2: TDBNavigator
|
|
Left = 0
|
|
Top = 0
|
|
Width = 240
|
|
Height = 25
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Data Controls'
|
|
object Label5: TLabel
|
|
Left = 3
|
|
Top = 168
|
|
Width = 11
|
|
Height = 13
|
|
Caption = 'ID'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 57
|
|
Top = 168
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Name'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 3
|
|
Top = 210
|
|
Width = 87
|
|
Height = 13
|
|
Caption = 'Begin of work time'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 129
|
|
Top = 210
|
|
Width = 90
|
|
Height = 13
|
|
Caption = 'Finish of work time '
|
|
end
|
|
object Label9: TLabel
|
|
Left = 3
|
|
Top = 249
|
|
Width = 39
|
|
Height = 13
|
|
Caption = 'Resume'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 459
|
|
Top = 138
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Photo'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 258
|
|
Top = 165
|
|
Width = 55
|
|
Height = 13
|
|
Caption = 'Department'
|
|
end
|
|
object DBGrid: TDBGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 680
|
|
Height = 133
|
|
Align = alTop
|
|
DataSource = DSPeople
|
|
ReadOnly = True
|
|
TabOrder = 10
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 3
|
|
Top = 138
|
|
Width = 240
|
|
Height = 25
|
|
DataSource = DSPeople
|
|
TabOrder = 7
|
|
end
|
|
object DBId: TDBEdit
|
|
Left = 3
|
|
Top = 183
|
|
Width = 49
|
|
Height = 21
|
|
DataField = 'p_id'
|
|
DataSource = DSPeople
|
|
TabOrder = 0
|
|
end
|
|
object DBName: TDBEdit
|
|
Left = 57
|
|
Top = 183
|
|
Width = 196
|
|
Height = 21
|
|
DataField = 'p_name'
|
|
DataSource = DSPeople
|
|
TabOrder = 1
|
|
end
|
|
object DBBeginWorkTime: TDBEdit
|
|
Left = 3
|
|
Top = 225
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'p_begin_work'
|
|
DataSource = DSPeople
|
|
TabOrder = 3
|
|
end
|
|
object DBResume: TDBMemo
|
|
Left = 3
|
|
Top = 264
|
|
Width = 451
|
|
Height = 109
|
|
DataField = 'p_resume'
|
|
DataSource = DSPeople
|
|
TabOrder = 5
|
|
end
|
|
object DBPicture: TDBImage
|
|
Left = 459
|
|
Top = 153
|
|
Width = 220
|
|
Height = 219
|
|
DataField = 'p_picture'
|
|
DataSource = DSPeople
|
|
TabOrder = 6
|
|
end
|
|
object DBEndWorkTime: TDBEdit
|
|
Left = 129
|
|
Top = 225
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'p_end_work'
|
|
DataSource = DSPeople
|
|
TabOrder = 4
|
|
end
|
|
object LoadImageBtn: TButton
|
|
Left = 336
|
|
Top = 138
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Load Image'
|
|
TabOrder = 9
|
|
OnClick = LoadImageBtnClick
|
|
end
|
|
object LoadResumeBtn: TButton
|
|
Left = 249
|
|
Top = 138
|
|
Width = 82
|
|
Height = 25
|
|
Caption = 'Load Resume'
|
|
TabOrder = 8
|
|
OnClick = LoadResumeBtnClick
|
|
end
|
|
object DBDepartment: TDBLookupComboBox
|
|
Left = 258
|
|
Top = 183
|
|
Width = 145
|
|
Height = 21
|
|
DataField = 'p_dep_id'
|
|
DataSource = DSPeople
|
|
DropDownRows = 5
|
|
KeyField = 'dep_id'
|
|
ListField = 'dep_name'
|
|
ListSource = DSDepartment
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Info'
|
|
ImageIndex = 2
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 680
|
|
Height = 28
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object ZDBInfoType: TComboBox
|
|
Left = 3
|
|
Top = 3
|
|
Width = 145
|
|
Height = 21
|
|
ItemHeight = 13
|
|
TabOrder = 0
|
|
OnChange = ZDBInfoTypeChange
|
|
Items.Strings = (
|
|
'Procedures'
|
|
'ProcedureColumns'
|
|
'Tables'
|
|
'Schemas'
|
|
'Catalogs'
|
|
'TableTypes'
|
|
'Columns'
|
|
'ColumnPrivileges'
|
|
'TablePrivileges'
|
|
'BestRowIdentifier'
|
|
'VersionColumns'
|
|
'PrimaryKeys'
|
|
'ImportedKeys'
|
|
'ExportedKeys'
|
|
'CrossReference'
|
|
'TypeInfo'
|
|
'IndexInfo'
|
|
'UserDefinedTypes')
|
|
end
|
|
end
|
|
object DBGrid2: TDBGrid
|
|
Left = 0
|
|
Top = 28
|
|
Width = 680
|
|
Height = 344
|
|
Align = alClient
|
|
DataSource = DSSQLMetadata
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
end
|
|
object TabSheet4: TTabSheet
|
|
Caption = 'SQL Monitor'
|
|
ImageIndex = 3
|
|
object ZLogList: TMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 680
|
|
Height = 372
|
|
Align = alClient
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object ZHost: TEdit
|
|
Left = 246
|
|
Top = 18
|
|
Width = 67
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = 'localhost'
|
|
end
|
|
object ZPort: TEdit
|
|
Left = 315
|
|
Top = 18
|
|
Width = 46
|
|
Height = 21
|
|
TabOrder = 3
|
|
Text = '(default)'
|
|
end
|
|
object ZConnection: TZConnection
|
|
Protocol = 'mysql'
|
|
Database = 'zeoslib'
|
|
User = 'root'
|
|
AutoCommit = False
|
|
ReadOnly = True
|
|
Left = 30
|
|
Top = 120
|
|
end
|
|
object ZPeople: TZQuery
|
|
Connection = ZConnection
|
|
SQL.Strings = (
|
|
'select * from people')
|
|
Params = <>
|
|
Left = 477
|
|
Top = 87
|
|
object ZPeoplep_id: TSmallintField
|
|
DisplayLabel = 'ID'
|
|
FieldName = 'p_id'
|
|
Required = True
|
|
end
|
|
object ZPeopledeprtment: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'deprtment'
|
|
LookupDataSet = ZDepartment
|
|
LookupKeyFields = 'dep_id'
|
|
LookupResultField = 'dep_name'
|
|
KeyFields = 'p_dep_id'
|
|
Size = 32
|
|
Lookup = True
|
|
end
|
|
object ZPeoplep_name: TStringField
|
|
DisplayLabel = 'Name'
|
|
FieldName = 'p_name'
|
|
Size = 40
|
|
end
|
|
object ZPeoplep_begin_work: TTimeField
|
|
DisplayLabel = 'Begin work'
|
|
FieldName = 'p_begin_work'
|
|
end
|
|
object ZPeoplep_end_work: TTimeField
|
|
DisplayLabel = 'End work'
|
|
FieldName = 'p_end_work'
|
|
end
|
|
object ZPeoplep_picture: TBlobField
|
|
DisplayLabel = 'Picture'
|
|
FieldName = 'p_picture'
|
|
end
|
|
object ZPeoplep_resume: TMemoField
|
|
DisplayLabel = 'Resume'
|
|
FieldName = 'p_resume'
|
|
BlobType = ftMemo
|
|
end
|
|
object ZPeoplep_redundant: TSmallintField
|
|
DisplayLabel = 'Redundant'
|
|
FieldName = 'p_redundant'
|
|
end
|
|
object ZPeoplep_dep_id: TSmallintField
|
|
FieldName = 'p_dep_id'
|
|
Visible = False
|
|
end
|
|
end
|
|
object DSPeople: TDataSource
|
|
DataSet = ZPeople
|
|
Left = 543
|
|
Top = 87
|
|
end
|
|
object ZDepartment: TZReadOnlyQuery
|
|
Connection = ZConnection
|
|
SQL.Strings = (
|
|
'select * from department')
|
|
Params = <>
|
|
Left = 477
|
|
Top = 141
|
|
end
|
|
object DSDepartment: TDataSource
|
|
DataSet = ZDepartment
|
|
Left = 546
|
|
Top = 138
|
|
end
|
|
object ZCargo: TZQuery
|
|
Connection = ZConnection
|
|
SQL.Strings = (
|
|
'select * from cargo')
|
|
Params = <>
|
|
Left = 66
|
|
Top = 153
|
|
end
|
|
object DSCargo: TDataSource
|
|
DataSet = ZCargo
|
|
Left = 102
|
|
Top = 153
|
|
end
|
|
object ZSQLMetadata: TZSQLMetadata
|
|
Connection = ZConnection
|
|
MetadataType = mdProcedures
|
|
Left = 66
|
|
Top = 120
|
|
end
|
|
object DSSQLMetadata: TDataSource
|
|
DataSet = ZSQLMetadata
|
|
Left = 102
|
|
Top = 120
|
|
end
|
|
object ZSQLMonitor: TZSQLMonitor
|
|
Active = True
|
|
MaxTraceCount = 100
|
|
OnTrace = ZSQLMonitorTrace
|
|
Left = 66
|
|
Top = 186
|
|
end
|
|
end
|