This commit is contained in:
zastian00@gmail.com
2019-08-06 02:27:47 +02:00
parent 84991874cd
commit b324fd8704
33 changed files with 6759 additions and 0 deletions

150
V-0.5/AdminAdd_u.dfm Normal file
View File

@@ -0,0 +1,150 @@
object FrmAdminAdd: TFrmAdminAdd
Left = 0
Top = 0
Caption = 'FrmAdminAdd'
ClientHeight = 398
ClientWidth = 770
Color = clDefault
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
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 edtIDNum: TEdit
Left = 8
Top = 104
Width = 161
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
NumbersOnly = True
ParentFont = False
TabOrder = 2
Text = 'ID Number'
OnDblClick = edtIDNumDblClick
OnEnter = edtIDNumEnter
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
end