📄 login.dfm
字号:
F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
F5F5F5F5F5F5F5F5F5F5F5F5F5F5FFFFFFFFFFFFC581FFFFFFFFFFFF0100FFFF
FFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFF001FFFFF
FFFFFFFFFFFFFFFFFFFFFFFF3FFFFFF80FFFFFFF0FFFFFE003FFFFFF07FFFFC0
01FFFFFF1FFFFF8000FFFFFF7FFFFF80000003FFC681FF00000000FFC281FF00
0000007F3437FF000000007F0E00FF00008000FF6402FF00000001FF5901FF00
000003FF0600FF50007FFFFFC401FF8002FFFFFF6402FF8000FFFFFF6801FF90
007FFFFFC401FF80003FFFFF6402FFC0001FFFFF6D01FFE0000FFFFF0402FFF0
0007FFFF0400FFF00003FFFF0402FFF00003FFFF0200FFF00003FFFF6402FFF0
0007FFFF8D01FFF0020FFFFF0402FFF8001FFFFF0400FFFC003FFFFF0402FFFE
007FFFFF0200FFFF00FFFFFF6402FFFF81FFFFFFAA01FFFFC3FFFFFF0402FFFF
E7FFFFFF0400FFFFFFFFFFFFC401FFFFFFFFFFFF0200FFFFFFFFFFFF6402FFFF
FFFFFFFFC101FFFFFFFFFFFF6402FFFFFFFFFFFFC201FFFFFFFFFFFFC581FFFF
FFFFFFFFC981FFFFFFFFFFFF900146696C652063726561746564206279204B48
20536F66747761726520466163746F72792049636F6E20546F6F6C2053657269
65732E}
OldCreateOrder = False
Position = poScreenCenter
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label4: TLabel
Left = 113
Top = 76
Width = 52
Height = 12
Alignment = taRightJustify
Caption = #29992#25143#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 114
Top = 140
Width = 52
Height = 12
Alignment = taRightJustify
Caption = #23494#12288#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object lbTile: TLabel
Left = 79
Top = 12
Width = 264
Height = 33
Alignment = taCenter
Caption = #20135#21697#20449#24687#31649#29702#31995#32479
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -32
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Bevel1: TBevel
Left = 12
Top = 185
Width = 369
Height = 4
end
object Image1: TImage
Left = 31
Top = 53
Width = 51
Height = 119
Picture.Data = {
0A544A504547496D61676502040000FFD8FFE000104A46494600010101004800
480000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
3232323232323232323232323232323232323232323232323232323232323232
32323232323232323232323232FFC00011080078002F03012200021101031101
FFC4001B00010100030003000000000000000000000007040506010308FFC400
3510000103030104080502070000000000000100020304051106213146610712
1322417175B4518191A1B11415161723628292D1FFC400150101010000000000
0000000000000000000001FFC400141101000000000000000000000000000000
00FFDA000C03010002110311003F00BFA2220222202923AB2A9DAA6EED7544A5
B1DE5CC602F3DD6F60E381C956D4778B2F7EB67DBB9058911101111014778B2F
7EB67DBB95894778B2F7EB67DBB9058911101111014778B2F7EB67DBB9589477
8B2F7EB67DBB9058911101111014778B2F7EB67DBB95894778B2F7EB67DBB905
8911101111014778B2F7EB67DBB95894778B2F7EB67DBB90589703A97A4FA0B5
CD251DB1ADADAA6121EFEB62261F3F13E5F55A0E9735EC9432FF000CDB252C9E
460755CAD3B58D3B983E048DA7979AE7FA2FB04579D40C7D4B03E9A919DB3987
73DD9C341E59DBF241D5D2C1AE752C22A649E4A7A79065A0BFB10472036E3CD6
0565BAE16AAA8A2B94D554D2CCEEAC5319498E477C03C1D8791C156158774B65
25E6D9516FAD88494F3B0B1ED3F91F02378282651DFAFF0061943BF52FA9846F
8A73D60479EF0B576BADFDCAEF71AEEC8C627BBF5C30EDC669DCBDF699E5AAB5
D75B2BDFDA57DA6A1F492C877C8D07BAE3CC8FC2C7B155C74D7A869246E2374C
E94BC6F0446F18FBA223F597896F5A8EE1729DC5D254D43E4DBE009D83E43015
C7A1E95914B234E33510F74FC4B5DBBEEA1BAAACB3E93D6971B54CD2D6C73174
2E2363E371CB48F97E1513A2DBEC22ADB6F966114DD6EBD3BC9C64F8B515F45A
F04868249C01B492B4726A7A5A56E2A992070DE58320AE2F57EBA9AB6865A0B6
44F8239016C933F638B7C4003779A0E4A86E4D9B53EA8AE8CFF46AA7CB39F78E
0FD16C747DB9D7AD5AC183D8C2C7C923BE19040FB95CBDBE296491B434313A6A
899D80C60C9255C746E986E9BB5752521F5B390F9DE3767C1A39044616BDE8EA
D5AEE858DA9CD3D7C20F615718CB9BFDA478B792875C3A22D6B609F34F48DB8C
2D3DD9691FB7FD4E0844456EEDFF00CC731369A5B1D64E00C03510E08FF2C85B
FA0E8F355DEDED7DDA4A7B6C077B41EB3FE80E3EA511052B4E691B5699871471
17D43861F5126D7BBFE0E416F91107FFD9}
Stretch = True
end
object btbOk: TBitBtn
Left = 159
Top = 204
Width = 80
Height = 25
Caption = #30830#23450'[&O]'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = btbOkClick
end
object btbCancel: TBitBtn
Left = 258
Top = 203
Width = 80
Height = 25
Caption = #21462#28040'[&C]'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = btbCancelClick
end
object edtPassWord: TEdit
Left = 178
Top = 135
Width = 150
Height = 20
PasswordChar = '*'
TabOrder = 1
OnKeyPress = edtPassWordKeyPress
end
object wwDBlkcbUser: TDBLookupComboboxEh
Left = 179
Top = 68
Width = 150
Height = 20
Alignment = taLeftJustify
DropDownBox.Columns = <
item
FieldName = 'fName'
Title.Caption = #29992#25143#21517
end
item
FieldName = 'fCode'
Title.Caption = #29992#25143#20195#30721
end>
DropDownBox.ShowTitles = True
DropDownBox.Sizable = True
EditButtons = <>
KeyField = 'fCode'
ListField = 'fName'
ListFieldIndex = 5
ListSource = dmClient.ds_tuser
TabOrder = 0
Visible = True
end
object sp_logincheck: TADOStoredProc
Connection = dmClient.adocnequip_manage
ProcedureName = 'login_check;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@ProductName'
Attributes = [paNullable]
DataType = ftWideString
Size = 100
Value = Null
end
item
Name = '@DBName'
Attributes = [paNullable]
DataType = ftWideString
Size = 100
Value = Null
end
item
Name = '@code'
Attributes = [paNullable]
DataType = ftWideString
Size = 100
Value = Null
end
item
Name = '@ccode'
Attributes = [paNullable]
DataType = ftWideString
Direction = pdInputOutput
Size = 100
Value = Null
end>
Left = 67
Top = 183
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -