mrfluffy/Delphi-Projects
1
0
Fork 0
mirror of https://github.com/mrfluffy-dev/Delphi-Projects.git synced 2026-01-17 05:40:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

V-0.4

Browse Source
This commit is contained in:
zastian00@gmail.com
2019-08-01 21:34:54 +02:00
parent d1c48fe0ad
commit 84991874cd
32 changed files with 6560 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
V-0.4/AdminAdd_u.dfm Normal file
View File

@@ -0,0 +1,106 @@
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
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object edtUsername: TEdit
Left = 24
Top = 24
Width = 153
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Usen Name'
OnDblClick = edtUsernameDblClick
OnEnter = edtUsernameEnter
end
object edtPassword: TEdit
Left = 24
Top = 72
Width = 153
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 = 24
Top = 120
Width = 153
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 = 24
Top = 168
Width = 153
Height = 33
Color = clWhite
ParentBackground = False
TabOrder = 3
object chkAdmin: TCheckBox
Left = 8
Top = 8
Width = 97
Height = 17
Caption = 'Is User Admin'
TabOrder = 0
end
end
object btnGeneratePass: TButton
Left = 183
Top = 72
Width = 130
Height = 29
Caption = 'Generate Password'
TabOrder = 4
OnClick = btnGeneratePassClick
end
object btnAddUser: TButton
Left = 24
Top = 216
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
end