📄 frm_hyic.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frm_hyic
BorderStyle = 3 'Fixed Dialog
Caption = "发售IC卡"
ClientHeight = 8190
ClientLeft = 30
ClientTop = 435
ClientWidth = 10950
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8190
ScaleWidth = 10950
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "坏卡退卡(&B)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 7080
TabIndex = 15
Top = 1680
Width = 1572
End
Begin VB.ComboBox cmbcardtype
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
TabIndex = 14
Top = 1680
Width = 4452
End
Begin VB.ComboBox cmbdept
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
TabIndex = 11
Top = 240
Width = 4452
End
Begin VB.CommandButton cmdicd
Caption = "退卡(&D)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 7080
TabIndex = 10
Top = 960
Width = 1572
End
Begin VB.CommandButton cmdicm
Caption = "验卡(&M)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 7080
TabIndex = 9
Top = 360
Width = 1572
End
Begin VB.CommandButton cmdicq
Caption = "退出(&Q)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 8880
TabIndex = 8
Top = 960
Width = 1572
End
Begin VB.CommandButton cmdici
Caption = "发卡(&I)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 8880
TabIndex = 7
Top = 360
Width = 1572
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
TabIndex = 3
Top = 1200
Width = 4452
End
Begin VB.TextBox txtEmpID
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 2
Top = 720
Width = 1932
End
Begin VB.TextBox txtIC
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 0
Top = 2160
Width = 1932
End
Begin MSComctlLib.ListView ListViewEmp
Height = 2535
Left = 240
TabIndex = 6
Top = 3120
Width = 10455
_ExtentX = 18441
_ExtentY = 4471
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSComctlLib.ListView ListView1
Height = 1935
Left = 240
TabIndex = 16
Top = 6000
Width = 10455
_ExtentX = 18441
_ExtentY = 3413
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Label Label7
Caption = "用户卡列表："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 18
Top = 2880
Width = 1695
End
Begin VB.Label Label5
Caption = "控制卡列表："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 17
Top = 5760
Width = 1695
End
Begin VB.Label Label4
Caption = "IC卡号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 13
Top = 2160
Width = 1215
End
Begin VB.Label Label3
Caption = "部门名称："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 12
Top = 240
Width = 1455
End
Begin VB.Label Label6
Caption = "人员名称："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 5
Top = 1200
Width = 1455
End
Begin VB.Label Label2
Caption = "人员编号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 4
Top = 720
Width = 1215
End
Begin VB.Label Label1
Caption = "IC卡类："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 1
Top = 1680
Width = 1215
End
End
Attribute VB_Name = "frm_hyic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim sHybh(1024) As String '会员编号数组
Dim sType(1024) As String
Dim sHybhLast As String '会员编号
Dim sTypeid As String
Dim sListNo As Integer
Dim pbOut(3) As Byte
Dim CardID As String '物理卡号
Dim sKeyLast As String '用户密码
Dim sKeyPin As String '用户密码因子 物理卡号+物理卡号
Dim skeyPI(8) As Byte
Dim skeyID(8) As Byte
Dim skeyLA(8) As Byte
Dim sN As Integer
Dim sCardid As Long
Dim sCardTYpe As Integer
Dim sDate As String
Dim sMonth As String
Dim sBalance As Currency
Dim stf As Boolean
Dim sEmpid As String
Private Sub listrecord()
Dim L As ListItem
Dim i As Integer
Dim rs As New ADODB.Recordset
Set rs = GetRecordset(maSys_db, sWhere)
ListViewEmp.ColumnHeaders.Clear
ListViewEmp.ListItems.Clear
ListViewEmp.View = lvwReport
ListViewEmp.ColumnHeaders.Add , , "ID", 800
ListViewEmp.ColumnHeaders.Add , , "人员名称", 1500
ListViewEmp.ColumnHeaders.Add , , "IC卡号", 1500
ListViewEmp.ColumnHeaders.Add , , "IC卡类", 1500
ListViewEmp.ColumnHeaders.Add , , "部门名称", 2500
ListViewEmp.ColumnHeaders.Add , , "证件编号", 2000
i = 1
If rs.EOF Then Exit Sub
rs.MoveFirst
Do While Not rs.EOF
Set L = ListViewEmp.ListItems.Add(, , i)
L.SubItems(1) = CStr(rs!员工姓名)
L.SubItems(2) = CStr(rs!IC卡号)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -