📄 ulogin.~dfm
字号:
object frmlogin: Tfrmlogin
Left = 238
Top = 118
BorderIcons = []
BorderStyle = bsSingle
Caption = '登录'
ClientHeight = 224
ClientWidth = 381
Color = clBtnFace
DefaultMonitor = dmDesktop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
FormStyle = fsStayOnTop
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
Scaled = False
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 5
Top = 11
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
07544269746D6170360C0000424D360C00000000000036000000280000002000
0000200000000100180000000000000C0000CE0E0000D80E0000000000000000
0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0000000C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0
C0C0C0000000FFFFFFC0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0000000
000000808080000000C0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080808080C0C0C0C0C0C0C0C0C0
000000000000808080C0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0808080C0C0C0
808080FFFFFFC0C0C0C0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080000000000000C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0808080C0C0C0
000000808080FFFFFFC0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C080808000FFFF00808000808000
0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0808080C0C0C0
000000C0C0C0000000C0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C080808000000000000000FFFF00FFFF80808000
0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000808080C0C0C0808080C0C0C0
000000000000808080C0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C080808000808000808000FFFF00FFFF80808000000000
0000C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0C0C0C0808080C0C0C0
808080FFFFFFC0C0C0C0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C080808000FFFF00FFFF00FFFF80808000000000808000
0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0808080C0C0C0
808080C0C0C0C0C0C0C0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C080808000000000000000FFFF00FFFF808080000000008080000000C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0808080C0C0C0
000000808080FFFFFFC0C0C0808080C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
C080808000808000808000FFFF00FFFF808080000000008080000000C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000808080C0C0C0808080C0C0C0
000000808080FFFFFFC0C0C0808080808080000000C0C0C0C0C0C0C0C0C08080
8000FFFF00FFFF00FFFF00FFFF808080000000008080000000C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0C0C0C0808080C0C0C0
808080FFFFFFC0C0C0C0C0C0FFFFFF808080000000C0C0C0C0C0C0C0C0C08080
8000FFFF00FFFF00FFFF808080000000008080000000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0C0C0C0808080808080
FFFFFFC0C0C0C0C0C0FFFFFFC0C0C0C0C0C0808080000000C0C0C000000000FF
FF00FFFF00FFFF808080000000008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0808080FFFFFF
C0C0C0C0C0C0FFFFFF00000000000000000000000000000000000000FFFF00FF
FF00FFFF808080000000008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFF808080FFFFFFC0C0C0
C0C0C000000000000080808080808080808080808080808080808000FFFF00FF
FF808080000000008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFF808080FFFFFFC0C0C0C0C0C0
00000080808080808000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF8080
80000000008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0808080FFFFFFC0C0C0000000
80808000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFFC0C0C000FF
FF008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0C0C0C0808080FFFFFFC0C0C0000000
00FFFF00FFFF00FFFF00FFFFC0C0C000FFFFC0C0C000FFFFC0C0C000FFFFC0C0
C0008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0808080FFFFFFC0C0C0C0C0C0FFFFFF808080FFFFFF00000000FFFF
00FFFF00FFFF00FFFF00000000FFFF00000000FFFFC0C0C000FFFFC0C0C000FF
FF008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0808080C0C0C0C0C0C0C0C0C0FFFFFFC0C0C0808080FFFFFF80808000FFFF
00FFFF00FFFF00FFFF00FFFF00000000FFFF00000000FFFFC0C0C000FFFFC0C0
C0008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0808080C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFC0C0C080808080808000FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF00000000FFFFC0C0C000FF
FF008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0808080C0C0C0C0C0C0C0C0C0FFFFFFC0C0C000000000000080808000FFFF
00FFFF00FFFF80808080808000000000FFFF00000000FFFF00000000FFFFC0C0
C0008080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0808080C0C0C0C0C0C0C0C0C0C0C0C0000000808080FFFFFF80808000FFFF
00FFFF000000FFFFFFC0C0C0C0C0C000000000FFFF00000000FFFFC0C0C00080
80000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0808080C0C0C0C0C0C0C0C0C0FFFFFF000000808080C0C0C080808000FFFF
00FFFF000000000000FFFFFFC0C0C000000000FFFF00FFFF00FFFFC0C0C00080
80000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0808080FFFFFFC0C0C0C0C0C0000000808080808080000000808080
00FFFF000000000000808080FFFFFF00000000FFFF00FFFFC0C0C00080800000
00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0808080FFFFFFC0C0C0C0C0C0000000000000000000C0C0C0
80808080808000000000000000000000FFFF00FFFF008080008080000000C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0808080FFFFFFFFFFFFFFFFFF000000808080C0C0C0
808080000000C0C0C0C0C0C0C0C0C0C0C0C0008080000000000000C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080808080808080000000808080808080
808080C0C0C0808080808080808080808080000000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000808080C0C0C0
C0C0C0C0C0C0808080000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000
000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0}
Transparent = True
end
object BitBtn1: TBitBtn
Left = 81
Top = 190
Width = 81
Height = 26
Caption = '确 认'
Default = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 213
Top = 190
Width = 81
Height = 26
Cancel = True
Caption = '退 出'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn2Click
end
object Panel2: TPanel
Left = 46
Top = 24
Width = 294
Height = 158
BevelOuter = bvLowered
TabOrder = 2
object Label2: TLabel
Left = 19
Top = 21
Width = 59
Height = 13
Caption = '帐套编码:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 152
Top = 21
Width = 65
Height = 13
Caption = '帐套年度：'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 19
Top = 49
Width = 59
Height = 13
Caption = '帐套名称:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 19
Top = 76
Width = 59
Height = 13
Caption = '操作日期:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 19
Top = 104
Width = 54
Height = 13
Caption = '用 户:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 19
Top = 131
Width = 54
Height = 13
Caption = '口 令:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 85
Top = 15
Width = 61
Height = 21
Color = clInfoBk
KeyField = 'ztcode'
ListField = 'ztcode'
ListFieldIndex = 1
ListSource = DSztcode
TabOrder = 0
OnCloseUp = DBLookupComboBox1CloseUp
end
object DateTimePicker1: TDateTimePicker
Left = 85
Top = 70
Width = 187
Height = 21
CalAlignment = dtaLeft
Date = 37084.8401216435
Time = 37084.8401216435
Color = clInfoBk
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object Edit1: TMaskEdit
Left = 85
Top = 124
Width = 187
Height = 21
Color = clInfoBk
ImeName = '中文 (简体) - 微软拼音'
PasswordChar = '*'
TabOrder = 2
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 212
Top = 15
Width = 60
Height = 21
Color = clInfoBk
KeyField = 'Ztyear'
ListField = 'Ztyear'
ListFieldIndex = 1
ListSource = DSztyear
TabOrder = 3
OnCloseUp = DBLookupComboBox2CloseUp
end
object Edit2: TEdit
Left = 85
Top = 43
Width = 187
Height = 21
Color = clInfoBk
Enabled = False
ReadOnly = True
TabOrder = 4
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 85
Top = 97
Width = 187
Height = 21
Color = clInfoBk
KeyField = 'UserName'
ListField = 'UserName'
ListFieldIndex = 1
ListSource = DSuser
TabOrder = 5
OnCloseUp = DBLookupComboBox3CloseUp
end
end
object ADOQpass: TADOQuery
Connection = DM1.ADOCon1
CursorType = ctStatic
Parameters = <
item
Name = 'pm'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 3
Value = Null
end>
SQL.Strings = (
'select * from s_users where userid = :pm ')
Left = 8
Top = 136
end
object ADOQusers: TADOQuery
Connection = DM1.ADOCon1
CursorType = ctStatic
Parameters = <
item
Name = 'pm1'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = '000'
end>
SQL.Strings = (
'select * from s_right where ztcode =:pm1')
Left = 8
Top = 56
end
object ADOQztcode: TADOQuery
Connection = DM1.ADOCon1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select distinct ztcode,ztname from s_ztgl')
Left = 344
Top = 8
end
object DSztcode: TDataSource
DataSet = ADOQztcode
Left = 344
Top = 40
end
object ADOQztyear: TADOQuery
Connection = DM1.ADOCon1
CursorType = ctStatic
Parameters = <
item
Name = 'pma'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 3
Value = '000'
end>
SQL.Strings = (
'select * from s_ztgl where ztcode =:pma')
Left = 344
Top = 72
end
object DSztyear: TDataSource
DataSet = ADOQztyear
Left = 344
Top = 104
end
object DSuser: TDataSource
DataSet = ADOQusers
Left = 8
Top = 96
end
object ADOQright: TADOQuery
Connection = DM1.ADOCon1
Parameters = <
item
Name = 'pma'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 3
Value = Null
end
item
Name = 'pmb'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 3
Value = Null
end
item
Name = 'pmc'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end>
SQL.Strings = (
'select * from S_SetRight where userid =:pma and ztcode =:pmb and' +
' mcode =:pmc')
Left = 8
Top = 187
end
object ADOQztright: TADOQuery
Connection = DM1.ADOCon1
Parameters = <
item
Name = 'pm1'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 3
Value = Null
end
item
Name = 'pm2'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 3
Value = Null
end>
SQL.Strings = (
'select * from s_right where ztcode =:pm1 and userid = :pm2')
Left = 352
Top = 192
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -