📄 frmxxlr.frm
字号:
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 120
TabIndex = 11
Top = 480
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "考生信息查询"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Index = 0
Left = 0
TabIndex = 8
Top = 0
Width = 1575
End
Begin VB.Shape ShLeft
BackColor = &H00FFFFFF&
BorderColor = &H00A6A6A6&
Height = 1575
Left = 0
Top = 300
Width = 2640
End
Begin VB.Shape Shape1
BackColor = &H006A240A&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 270
Left = 0
Top = 0
Width = 2655
End
End
Begin MSComctlLib.ListView List1
Height = 7455
Left = 45
TabIndex = 6
Top = 1080
Width = 7215
_ExtentX = 12726
_ExtentY = 13150
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin XPButton.ccXPButton Command2
Height = 375
Left = 4620
TabIndex = 5
Top = 600
Width = 1095
_ExtentX = 1931
_ExtentY = 661
Caption = "刷新(&U)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPButton.ccXPButton cmdDel
Height = 375
Left = 3120
TabIndex = 4
Top = 600
Width = 1095
_ExtentX = 1931
_ExtentY = 661
Caption = "删除(&D)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPButton.ccXPButton cmdEdit
Height = 375
Left = 1620
TabIndex = 3
Top = 600
Width = 1095
_ExtentX = 1931
_ExtentY = 661
Caption = "修改(&E)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPButton.ccXPButton cmdAdd
Height = 375
Left = 120
TabIndex = 2
Top = 600
Width = 1095
_ExtentX = 1931
_ExtentY = 661
Caption = "添加(&A)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox PicTop
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 450
Left = 45
ScaleHeight = 30
ScaleMode = 3 'Pixel
ScaleWidth = 452
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 6780
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登记考生信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 600
TabIndex = 1
Top = 120
Width = 1350
End
Begin VB.Image imgIcon
Height = 240
Left = 120
Picture = "frmxxlr.frx":0000
Top = 120
Width = 240
End
End
End
Attribute VB_Name = "Frmxxlr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public xChangeItem As String
Private Sub cmdAdd_Click()
frmxxitem.Show 1
End Sub
Private Sub Form_Load()
Me.WindowState = 2
'高级
If GetINI("Main", "MerchBar") = "n" Then
cmdSearch.Enabled = True
picRight.Visible = False
End If
End Sub
Private Sub Form_Resize()
List1.Width = Width / 15 - IIf(picRight.Visible, 200, 20)
List1.Height = Height / 15 - 116
picRight.Left = Width / 15 - 193
picRight.Height = List1.Height + 5
PicTop.Width = Width / 15 - 16
Cls
Line (2, 2)-(Width / 15 - 14, Height / 15 - 29), 10921638, B
End Sub
Private Sub cmdClose_Click()
ShowRight False
End Sub
Public Sub ShowRight(ByVal b As Boolean)
picRight.Visible = b
cmdSearch.Enabled = Not b
SaveINI "Main", "MerchBar", IIf(b = True, "", "n")
Form_Resize
End Sub
Private Sub cmdSearch_Click()
ShowRight True
End Sub
Private Sub List1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
On Error Resume Next
With List1
If (ColumnHeader.Index - 1) = .SortKey Then
.SortOrder = 1 - .SortOrder
.Sorted = True
Else
.Sorted = False
.SortOrder = 0
.SortKey = ColumnHeader.Index - 1
.Sorted = True
End If
End With
End Sub
Private Sub List1_DblClick()
On Error GoTo aaaa
Dim j As Long
j = List1.SelectedItem.Index
cmdEdit_Click
aaaa:
End Sub
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo aaaa
If KeyCode = vbKeyDelete Then
j = List1.SelectedItem.Index
cmdDel_Click
End If
If KeyCode = vbKeyA And Shift = 2 Then
For j = 1 To List1.ListItems.Count
List1.ListItems(j).Selected = True
Next
End If
aaaa:
End Sub
Private Sub cmdEdit_Click()
On Error GoTo aaaa
Dim Item As ListItem
Set Item = List1.SelectedItem
xChangeItem = Item.SubItems(2)
frmxxitem.Show 1
aaaa:
End Sub
Private Sub cmdDel_Click()
On Error GoTo aaaa
Dim i As Long, j As Long
j = 0
For i = 1 To List1.ListItems.Count
If List1.ListItems(i).Selected = True Then j = j + 1
Next
If j = 0 Then
MsgBox "没有选中考生信息。", vbInformation
Exit Sub
End If
If MsgBox("注意：此操作会同时删除考生的所有记录。" & vbCrLf & vbCrLf & "确定删除选中的 " & j & " 个商品吗？", vbInformation + vbOKCancel + vbDefaultButton2) = vbCancel Then Exit Sub
For i = List1.ListItems.Count To 1 Step -1
If List1.ListItems(i).Selected = True Then
'cnMain.Execute "Delete From [MerchInfo] Where BarCode='" & List1.ListItems(i).SubItems(2) & "'"
List1.ListItems.Remove i
End If
Next
Exit Sub
aaaa:
MsgBox Err.Description, vbCritical
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -