📄 frmclerk.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmSetClerk
Caption = "SetClerk"
ClientHeight = 5565
ClientLeft = 60
ClientTop = 345
ClientWidth = 9240
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5565
ScaleWidth = 9240
Begin PrjLDS.UserControl1 UserControl1
Height = 615
Left = 0
TabIndex = 13
Top = 0
Width = 9255
_ExtentX = 16510
_ExtentY = 1085
End
Begin VB.Frame frmClerkDetail
Height = 4575
Left = 3480
TabIndex = 2
Top = 600
Width = 5535
Begin VB.ComboBox cmbRole
Height = 300
Left = 3840
Style = 2 'Dropdown List
TabIndex = 15
Top = 1680
Width = 1575
End
Begin VB.TextBox txtRemarks
Height = 270
Left = 1200
TabIndex = 12
Top = 2400
Width = 4215
End
Begin VB.TextBox txtContack
Height = 270
Left = 1200
TabIndex = 10
Top = 960
Width = 4215
End
Begin VB.TextBox txtPass
Height = 270
IMEMode = 3 'DISABLE
Left = 1200
PasswordChar = "*"
TabIndex = 11
Top = 1680
Width = 1335
End
Begin VB.TextBox txtName
Height = 270
Left = 3840
TabIndex = 9
Top = 340
Width = 1575
End
Begin VB.TextBox txtCode
Height = 270
Left = 1200
TabIndex = 8
Top = 340
Width = 1500
End
Begin VB.Label Label6
Caption = "Role"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
TabIndex = 14
Top = 1680
Width = 495
End
Begin VB.Label Label5
Caption = "Remarks"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 7
Top = 2400
Width = 855
End
Begin VB.Label Label4
Caption = "Contact"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 6
Top = 1080
Width = 855
End
Begin VB.Label Label3
Caption = "PassWord"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 5
Top = 1680
Width = 975
End
Begin VB.Label Label2
Caption = "UserName"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2880
TabIndex = 4
Top = 360
Width = 975
End
Begin VB.Label Label1
Caption = "UserCode"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 3
Top = 360
Width = 1095
End
End
Begin VB.Frame frmClerk
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4575
Left = 120
TabIndex = 0
Top = 600
Width = 3255
Begin MSComctlLib.ListView lsvClerk
Height = 3975
Left = 120
TabIndex = 1
Top = 360
Width = 3015
_ExtentX = 5318
_ExtentY = 7011
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
End
Begin VB.Label lblStatus
Caption = "Status"
Height = 375
Left = 3000
TabIndex = 16
Top = 5160
Visible = 0 'False
Width = 855
End
End
Attribute VB_Name = "frmSetClerk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mkey As String
Private Sub Form_Load()
Dim ClerkCode As String
lblStatus.Caption = ""
Call InitToolBar
Call Initialize
Call SetRole
Call ShowClerks
ClerkCode = Right(lsvClerk.SelectedItem.Key, Len(lsvClerk.SelectedItem.Key) - 1)
Call ScanClerk(ClerkCode)
Me.Width = 9200
Me.Height = 6000
frmClerkDetail.Enabled = False
End Sub
Private Sub SetRole()
Dim rstRole As Recordset
Dim sSQL As String
Dim sUserCode As String
Dim sUserName As String
Dim iCount As Long
sSQL = "select * from sysrol order by rolcode"
Set rstRole = Acs_cnt.Execute(sSQL)
iCount = 0
With rstRole
Do While Not .EOF
cmbRole.AddItem rstRole!RolName, iCount
cmbRole.ItemData(iCount) = rstRole!RolCode
iCount = iCount + 1
.MoveNext
Loop
End With
rstRole.Close
Set rstRole = Nothing
End Sub
Private Sub InitToolBar()
With UserControl1
.DisplayButton "new", "new", True, , "new"
.DisplayButton "Save", "Save", True, , "Save"
' .DisplayButton "Open", "Open", True, , "Open"
' .DisplayButton "Find", "Find", True, , "Find"
.DisplayButton "Undo", "Undo", True, , "Undo"
' .DisplayButton "Redo", "Redo", True, , "Redo"
.DisplayButton "Modify", "Modify", True, , "Modify"
.DisplayButton "Delete", "Delete", True, , "Delete"
' .DisplayButton "Cut", "Cut", True, , "Cut"
' .DisplayButton "Print", "Print", True, , "Print"
.DisplayButton "Close", "Close", True, , "Close"
End With
End Sub
Private Sub ShowClerks()
Dim rstClerk As Recordset
Dim cListItem As ListItem
Dim sSQL As String
Dim sUserCode As String
Dim sUserName As String
Dim iCount As Long
sSQL = "select * from sysusr order by usrcode"
Set rstClerk = Acs_cnt.Execute(sSQL)
iCount = 1
With rstClerk
Do While Not .EOF
Set cListItem = lsvClerk.ListItems.Add(iCount, TREEKEY & rstClerk!UsrCode, rstClerk!UsrCode)
cListItem.SubItems(1) = rstClerk!UrsName
iCount = iCount + 1
.MoveNext
Loop
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -