📄 frmscaeen.frm
字号:
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 8
Left = 210
OleObjectBlob = "FRMSCAEEN.frx":1129
TabIndex = 18
Top = 1320
Width = 885
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 9
Left = 210
OleObjectBlob = "FRMSCAEEN.frx":1186
TabIndex = 19
Top = 1830
Width = 885
End
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 8100
OleObjectBlob = "FRMSCAEEN.frx":11E3
Top = 5760
End
Begin VB.Frame Frame1
Caption = "班级数据搜索"
Height = 3285
Left = 120
TabIndex = 0
Top = 90
Width = 2985
Begin VB.TextBox Text1
ForeColor = &H000000FF&
Height = 315
Left = 1110
TabIndex = 34
Top = 1770
Width = 1665
End
Begin VB.ComboBox Combo5
ForeColor = &H000000FF&
Height = 300
ItemData = "FRMSCAEEN.frx":4B6D2
Left = 1110
List = "FRMSCAEEN.frx":4B6EB
Style = 2 'Dropdown List
TabIndex = 10
Top = 2250
Width = 1695
End
Begin VB.ComboBox Combo2
ForeColor = &H000000FF&
Height = 300
ItemData = "FRMSCAEEN.frx":4B729
Left = 1110
List = "FRMSCAEEN.frx":4B742
Style = 2 'Dropdown List
TabIndex = 6
Top = 810
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "开始搜索"
Height = 495
Left = 1680
TabIndex = 3
Top = 2670
Width = 1155
End
Begin VB.ComboBox Combo3
ForeColor = &H000000FF&
Height = 300
ItemData = "FRMSCAEEN.frx":4B780
Left = 1110
List = "FRMSCAEEN.frx":4B799
Style = 2 'Dropdown List
TabIndex = 2
Top = 1290
Width = 1695
End
Begin VB.ComboBox Combo1
ForeColor = &H000000FF&
Height = 300
Left = 1110
Style = 2 'Dropdown List
TabIndex = 1
Top = 330
Width = 1695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 0
Left = 210
OleObjectBlob = "FRMSCAEEN.frx":4B7B8
TabIndex = 4
Top = 390
Width = 885
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 1
Left = 210
OleObjectBlob = "FRMSCAEEN.frx":4B815
TabIndex = 5
Top = 840
Width = 885
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 2
Left = 210
OleObjectBlob = "FRMSCAEEN.frx":4B872
TabIndex = 7
Top = 1320
Width = 885
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 3
Left = 210
OleObjectBlob = "FRMSCAEEN.frx":4B8CF
TabIndex = 8
Top = 1800
Width = 885
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 4
Left = 210
OleObjectBlob = "FRMSCAEEN.frx":4B92C
TabIndex = 9
Top = 2310
Width = 885
End
End
Begin VSPrinter7LibCtl.VSPrinter VP
Align = 1 'Align Top
Height = 4350
Left = 0
TabIndex = 22
Top = 630
Visible = 0 'False
Width = 10635
_cx = 18759
_cy = 7673
Appearance = 1
BorderStyle = 0
Enabled = -1 'True
MousePointer = 0
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 5.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_ConvInfo = 1
AutoRTF = -1 'True
Preview = -1 'True
DefaultDevice = 0 'False
PhysicalPage = -1 'True
AbortWindow = -1 'True
AbortWindowPos = 0
AbortCaption = "NHB软件工作室"
AbortTextButton = "取消"
AbortTextDevice = "正在 %s on %s"
AbortTextPage = "进行打印%d "
FileName = ""
MarginLeft = 1440
MarginTop = 1440
MarginRight = 1440
MarginBottom = 1440
MarginHeader = 0
MarginFooter = 0
IndentLeft = 0
IndentRight = 0
IndentFirst = 0
IndentTab = 720
SpaceBefore = 0
SpaceAfter = 0
LineSpacing = 100
Columns = 1
ColumnSpacing = 180
ShowGuides = 2
LargeChangeHorz = 300
LargeChangeVert = 300
SmallChangeHorz = 30
SmallChangeVert = 30
Track = 0 'False
ProportionalBars= -1 'True
Zoom = 25.3189401373896
ZoomMode = 3
ZoomMax = 400
ZoomMin = 10
ZoomStep = 25
EmptyColor = 0
TextColor = 0
HdrColor = 12582912
BrushColor = 16711680
BrushStyle = 0
PenColor = 0
PenStyle = 0
PenWidth = 0
PageBorder = 0
Header = ""
Footer = ""
TableSep = "|;"
TableBorder = 7
TablePen = 0
TablePenLR = 0
TablePenTB = 0
NavBar = 0
NavBarColor = -2147483633
ExportFormat = 0
URL = ""
Navigation = 3
NavBarMenuText = "Whole &Page|Page &Width|&Two Pages|Thumb&nail"
Begin MSComDlg.CommonDialog CommonDialog2
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 870
Top = 60
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
End
Attribute VB_Name = "FRMSCAEEN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim s As String
Dim nmc As String
Dim db As Database
Dim rs As Recordset
Dim STR As String
Dim intRecCount As Long
Dim intCounter As Long
Dim XSA As String
Dim astr As String
Private Sub Combo10_Click()
On Error Resume Next
VP.Columns = Combo10.Text
cmbSource
End Sub
Private Sub Command1_Click()
On Error Resume Next
Text2.Text = ""
astr = ""
Dim i As Long
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
astr = astr + List1.List(i) + ","
End If
Next i
If Combo2.Text = "姓名" Then
s = "SELECT 学号,班级,姓名," & astr & " 学籍 FROM 学生 WHERE 班级=" & Combo1.Text & " and " & Combo2.Text & "" & Combo3.Text & "'" & Text1.Text & "' ORDER BY " & "" & Combo5.Text & ""
Text2 = s
cmbSource
Else
s = "SELECT 学号,班级,姓名," & astr & " 学籍 FROM 学生 WHERE 班级=" & Combo1.Text & " and " & Combo2.Text & "" & Combo3.Text & "" & Text1.Text & " ORDER BY " & "" & Combo5.Text & ""
Text2 = s
cmbSource
End If
Dim QQ As Long
For QQ = 0 To Vf.Cols - 1
Vf.ColAlignment(QQ) = flexAlignCenterCenter
' VSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next QQ
Dim III As Long
For III = 1 To Vf.Rows - 1
Vf.TextMatrix(III, 0) = III
Next
End Sub
Private Sub Command2_Click()
On Error Resume Next
astr = ""
Dim i As Long
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
astr = astr + List1.List(i) + ","
End If
Next i
If Combo7.Text = "姓名" Then
s = "SELECT 学号,班级,姓名," & astr & " 学籍 FROM 学生 WHERE " & Combo7.Text & "" & Combo9.Text & "'" & Text3.Text & "' ORDER BY " & "" & Combo6.Text & ""
Text2 = s
cmbSource
Else
s = "SELECT 学号,班级,姓名," & astr & " 学籍 FROM 学生 WHERE " & Combo7.Text & "" & Combo9.Text & "" & Text3.Text & " ORDER BY " & "" & Combo6.Text & ""
Text2 = s
cmbSource
End If
Dim QQ As Long
For QQ = 0 To Vf.Cols - 1
Vf.ColAlignment(QQ) = flexAlignCenterCenter
' VSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next QQ
Dim III As Long
For III = 1 To Vf.Rows - 1
Vf.TextMatrix(III, 0) = III
Next
End Sub
Private Sub Command3_Click()
On Error Resume Next
' Skin1.LoadSkin App.Path & "\SKIN\6.sk"
Skin1.ApplySkinByName hwnd, "Form"
Skin1.ApplySkin Me.hwnd
Vf.Visible = True
Toolbar1.Visible = False
VP.Visible = False
Frame1.Visible = True
Frame2.Visible = True
Frame3.Visible = True
Command4.Visible = True
End Sub
Private Sub Command4_Click()
On Error Resume Next
' Skin1.LoadSkin App.Path & "\SKIN\0.sk"
Skin1.ApplySkinByName hwnd, "Form"
Skin1.ApplySkin Me.hwnd
Vf.Visible = False
VP.Visible = True
Toolbar1.Visible = True
Frame1.Visible = False
Frame2.Visible = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -