This commit is contained in:
zastian00@gmail.com
2019-08-06 15:48:08 +02:00
parent b324fd8704
commit 9ac24e70c7
40 changed files with 6894 additions and 0 deletions

158
V-0.6/AdminAdd_u.dfm Normal file
View File

@@ -0,0 +1,158 @@
object FrmAdminAdd: TFrmAdminAdd
Left = 0
Top = 0
Caption = 'FrmAdminAdd'
ClientHeight = 420
ClientWidth = 770
Color = clDefault
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object edtUsername: TEdit
Left = 8
Top = 8
Width = 161
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Full Name/Username'
OnDblClick = edtUsernameDblClick
OnEnter = edtUsernameEnter
end
object edtPassword: TEdit
Left = 8
Top = 56
Width = 161
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
Text = 'Password'
end
object edtTital: TEdit
Left = 8
Top = 104
Width = 161
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'Tital'
OnDblClick = edtTitalDblClick
OnEnter = edtTitalEnter
end
object Panel1: TPanel
Left = 8
Top = 152
Width = 161
Height = 29
Color = clWhite
ParentBackground = False
TabOrder = 3
object chkAdmin: TCheckBox
Left = 0
Top = 8
Width = 97
Height = 17
Caption = 'Is User Admin'
TabOrder = 0
end
end
object btnGeneratePass: TButton
Left = 175
Top = 56
Width = 106
Height = 29
Caption = 'Generate Password'
TabOrder = 4
OnClick = btnGeneratePassClick
end
object btnAddUser: TButton
Left = 8
Top = 195
Width = 83
Height = 33
Caption = 'Add User'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btnAddUserClick
end
object redtGoles: TRichEdit
Left = 448
Top = 8
Width = 314
Height = 177
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
Zoom = 100
end
object caleAdmin: TCalendar
Left = 537
Top = 191
Width = 225
Height = 201
StartOfWeek = 0
TabOrder = 7
OnChange = caleAdminChange
end
object btnGole: TButton
Left = 448
Top = 191
Width = 75
Height = 25
Caption = 'Add Gole'
TabOrder = 8
OnClick = btnGoleClick
end
object cbxUsers: TComboBox
Left = 297
Top = 8
Width = 145
Height = 21
TabOrder = 9
Text = 'Usernames'
OnChange = cbxUsersChange
OnEnter = cbxUsersEnter
end
object MainMenu1: TMainMenu
Left = 8
Top = 240
object Logout1: TMenuItem
Caption = 'Logout'
OnClick = Logout1Click
end
end
end