home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Logiciels PC 26
/
LogicielsPC_26.iso
/
Accuses
/
Nouveau
/
PandaMoney
/
_SETUP.1
/
financing.exe
/
0
/
RCDATA
/
TSECUMAINFORM
/
TSECUMAINFORM.txt
< prev
Wrap
Text File
|
1999-09-06
|
23KB
|
932 lines
object SecuMainForm: TSecuMainForm
Left = 164
Top = 79
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'PandaMoney Security Manager'
ClientHeight = 319
ClientWidth = 477
Color = clBtnFace
Constraints.MaxHeight = 346
Constraints.MinHeight = 346
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Icon.Data = {<image000.ico>}
OldCreateOrder = True
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 15
object Splitter: TSplitter
Left = 477
Top = 0
Width = 0
Height = 319
Cursor = crHSplit
Align = alRight
end
object GroupBox: TGroupBox
Left = 245
Top = 0
Width = 232
Height = 319
Align = alClient
Caption = 'Users Avaliable'
Constraints.MaxWidth = 232
Constraints.MinWidth = 232
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object AddButton: TSpeedButton
Left = 31
Top = 278
Width = 87
Height = 19
Hint = 'Add a new user.'
Caption = 'Add'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = AddButtonClick
end
object ExitButton: TSpeedButton
Left = 118
Top = 297
Width = 86
Height = 19
Hint = 'Quit PMS.'
Caption = 'Exit'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExitButtonClick
end
object DeleteButton: TSpeedButton
Left = 31
Top = 297
Width = 87
Height = 19
Hint = 'Delete user profiles.'
Caption = 'Delete'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = DeleteButtonClick
end
object ModifyButton: TSpeedButton
Left = 118
Top = 278
Width = 86
Height = 19
Hint = 'Modify user profiles.'
Caption = 'Modify'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ModifyButtonClick
end
object UserNames: TListBox
Left = 2
Top = 17
Width = 228
Height = 258
Align = alTop
Color = 12579047
ItemHeight = 15
TabOrder = 0
OnClick = UserNamesClick
end
end
object UserPages: TPageControl
Left = 0
Top = 0
Width = 245
Height = 319
ActivePage = ActionSheet
Align = alLeft
HotTrack = True
MultiLine = True
TabOrder = 1
TabPosition = tpLeft
object UserInfoSheet: TTabSheet
Caption = 'User Details'
object Sp1: TBevel
Left = 12
Top = 140
Width = 197
Height = 2
Style = bsRaised
end
object UserRightsLabel: TLabel
Left = 6
Top = 146
Width = 72
Height = 15
Caption = 'User Rights :'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 10
Top = 232
Width = 113
Height = 2
Style = bsRaised
end
object Label13: TLabel
Left = 4
Top = 4
Width = 118
Height = 18
Caption = 'User Information'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object UserNameLabel: TLabel
Left = 6
Top = 27
Width = 69
Height = 15
Caption = 'User Name :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object UserPPLabel: TLabel
Left = 8
Top = 63
Width = 119
Height = 15
Caption = 'User Personal Pass :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object DatabasePathLabel: TLabel
Left = 10
Top = 101
Width = 117
Height = 15
Caption = 'User database path :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object UserNameDisplay: TPanel
Left = 36
Top = 45
Width = 169
Height = 15
BevelOuter = bvLowered
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object DeleteRecordLable: TPanel
Left = 14
Top = 168
Width = 95
Height = 18
Caption = 'Delete Record :'
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object ModifyRecordLable: TPanel
Left = 14
Top = 186
Width = 95
Height = 18
Caption = 'Modify Record :'
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object AddRecordLable: TPanel
Left = 14
Top = 204
Width = 95
Height = 18
Caption = 'Add Record :'
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object DeleteUserLable: TPanel
Left = 14
Top = 238
Width = 95
Height = 18
Caption = 'Delete User :'
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object ModifyUsersLable: TPanel
Left = 14
Top = 256
Width = 95
Height = 18
Caption = 'Modify Users :'
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object AddUserLable: TPanel
Left = 14
Top = 274
Width = 95
Height = 18
Caption = 'Add Users :'
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
object UserPPDisplay: TPanel
Left = 36
Top = 81
Width = 169
Height = 15
BevelOuter = bvLowered
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object DeleteRecordDisplay: TPanel
Left = 109
Top = 167
Width = 95
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
BevelOuter = bvNone
Color = 12579047
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 8
end
object ModifyRecordDisplay: TPanel
Left = 109
Top = 185
Width = 95
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
BevelOuter = bvNone
Color = 12579047
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 9
end
object AddRecordDisplay: TPanel
Left = 109
Top = 203
Width = 95
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
BevelOuter = bvNone
Color = 12579047
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 10
end
object DeleteUserDisplay: TPanel
Left = 109
Top = 237
Width = 95
Height = 18
Alignment = taRightJustify
BevelOuter = bvLowered
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
end
object ModifyUsersDisplay: TPanel
Left = 109
Top = 255
Width = 95
Height = 18
Alignment = taRightJustify
BevelOuter = bvLowered
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
end
object AddUsersDisplay: TPanel
Left = 109
Top = 273
Width = 95
Height = 18
Alignment = taRightJustify
BevelOuter = bvLowered
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
end
object DataPathLabel: TPanel
Left = 38
Top = 119
Width = 167
Height = 15
Alignment = taLeftJustify
BevelOuter = bvLowered
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 14
end
end
object ActionSheet: TTabSheet
Caption = 'User Editor'
object Label1: TLabel
Left = 4
Top = 35
Width = 70
Height = 15
Caption = 'User Name :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 4
Top = 61
Width = 118
Height = 15
Caption = 'User Personal Pass :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Bevel2: TBevel
Left = 4
Top = 138
Width = 207
Height = 2
Style = bsRaised
end
object Label5: TLabel
Left = 18
Top = 131
Width = 66
Height = 15
Alignment = taCenter
Caption = 'User Rights'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 9
Top = 189
Width = 86
Height = 15
AutoSize = False
Caption = 'Delete Record :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 9
Top = 229
Width = 86
Height = 15
AutoSize = False
Caption = 'Modify Record :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 10
Top = 149
Width = 86
Height = 15
AutoSize = False
Caption = 'Add Record :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 115
Top = 229
Width = 86
Height = 15
AutoSize = False
Caption = 'Delete User :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 116
Top = 189
Width = 86
Height = 15
AutoSize = False
Caption = 'Modify Users :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 116
Top = 149
Width = 86
Height = 15
AutoSize = False
Caption = 'Add Users :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Bevel3: TBevel
Left = 4
Top = 14
Width = 207
Height = 2
Style = bsRaised
end
object Label12: TLabel
Left = 16
Top = 7
Width = 57
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'User Info'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SaveChangeButton: TSpeedButton
Left = 12
Top = 275
Width = 93
Height = 19
Hint = 'Save the modified record.'
Caption = 'Save Changes'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SaveChangeButtonClick
end
object ExitButton2: TSpeedButton
Left = 111
Top = 275
Width = 94
Height = 19
Hint = 'Quit PMS'
Caption = 'Exit'
Flat = True
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = ExitButtonClick
end
object UserDataPathLabel: TLabel
Left = 4
Top = 87
Width = 121
Height = 15
Caption = 'User Database Path :'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object BrowseBtn: TSpeedButton
Left = 184
Top = 104
Width = 23
Height = 22
Hint = 'Browse...'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFF5555555000000005555555577777777FF555550999999900
55555575555555775F55509999999901055557F55555557F75F5001111111101
105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F
01105777F555557F75F75500FFFFFF0FF0105577F555FF7F57575550FF700008
8F0055575FF7777555775555000888888F005555777FFFFFFF77555550000000
0F055555577777777F7F555550FFFFFF0F05555557F5FFF57F7F555550F000FF
0005555557F777557775555550FFFFFF0555555557F555FF7F55555550FF7000
05555555575FF777755555555500055555555555557775555555}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BrowseBtnClick
end
object NameEdit: TEdit
Left = 126
Top = 31
Width = 81
Height = 22
AutoSize = False
Color = 12579047
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object PPEdit: TEdit
Left = 126
Top = 58
Width = 81
Height = 22
AutoSize = False
Color = 12579047
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 8
ParentCtl3D = False
ParentFont = False
TabOrder = 1
end
object DRCombo: TComboBox
Left = 8
Top = 205
Width = 93
Height = 23
Style = csDropDownList
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
Items.Strings = (
'True'
'False')
ParentFont = False
TabOrder = 4
end
object ARCombo: TComboBox
Left = 8
Top = 165
Width = 93
Height = 23
Style = csDropDownList
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
Items.Strings = (
'True'
'False')
ParentFont = False
TabOrder = 3
end
object MRCombo: TComboBox
Left = 8
Top = 245
Width = 93
Height = 23
Style = csDropDownList
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
Items.Strings = (
'True'
'False')
ParentFont = False
TabOrder = 5
end
object AUCombo: TComboBox
Left = 114
Top = 165
Width = 93
Height = 23
Style = csDropDownList
Color = 12579047
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
Items.Strings = (
'True'
'False')
ParentCtl3D = False
ParentFont = False
TabOrder = 6
end
object DUCombo: TComboBox
Left = 115
Top = 245
Width = 93
Height = 23
Style = csDropDownList
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
Items.Strings = (
'True'
'False')
ParentFont = False
TabOrder = 8
end
object MUCombo: TComboBox
Left = 114
Top = 205
Width = 93
Height = 23
Style = csDropDownList
Color = 12579047
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
Items.Strings = (
'True'
'False')
ParentFont = False
TabOrder = 7
end
object DPEdit: TEdit
Left = 6
Top = 104
Width = 178
Height = 22
AutoSize = False
Color = 12579047
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 2
end
end
object UserBankAccountInfoSheet: TTabSheet
Caption = 'Bank Accounts'
ImageIndex = 2
object Bevel4: TBevel
Left = 6
Top = 7
Width = 197
Height = 2
Style = bsRaised
end
object Label2: TLabel
Left = 14
Top = 0
Width = 92
Height = 15
Alignment = taCenter
Caption = 'User Account(s)'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object NewAccoBtn: TSpeedButton
Left = 8
Top = 164
Width = 62
Height = 22
Hint = 'Add a new bank account.'
Caption = 'New'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = NewAccoBtnClick
end
object DelAccoBtn: TSpeedButton
Left = 148
Top = 164
Width = 63
Height = 22
Hint = 'Delete an exist bank account'
Caption = 'Delete'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = DelAccoBtnClick
end
object ModifyAccoBtn: TSpeedButton
Left = 78
Top = 164
Width = 63
Height = 22
Hint = 'Modify an exist bank account.'
Caption = 'Modify'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ModifyAccoBtnClick
end
object AccoTypeListBox: TListBox
Left = 8
Top = 16
Width = 202
Height = 141
Color = 12579047
ItemHeight = 15
TabOrder = 0
OnClick = AccoTypeListBoxClick
end
object AccoDescriptionGroupBox: TGroupBox
Left = 10
Top = 194
Width = 199
Height = 113
Caption = 'Description'
Color = clSilver
ParentColor = False
TabOrder = 1
object DescriptionLabel: TMemo
Left = 6
Top = 14
Width = 189
Height = 95
Cursor = crArrow
BorderStyle = bsNone
Color = clSilver
Ctl3D = False
ParentCtl3D = False
ReadOnly = True
TabOrder = 0
end
end
end
end
end