📄 frmgrkscj.frm
字号:
EndProperty
Height = 240
Index = 7
Left = 360
TabIndex = 10
Top = 2265
Width = 960
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "联系电话"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 6
Left = 360
TabIndex = 9
Top = 1372
Width = 960
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "车 型"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 5
Left = 4440
TabIndex = 8
Top = 1365
Width = 960
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "学习单位"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 4
Left = 360
TabIndex = 7
Top = 1818
Width = 960
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "性 别"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 4440
TabIndex = 6
Top = 930
Width = 960
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 2
Left = 4440
TabIndex = 5
Top = 480
Width = 960
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "身份证号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = 360
TabIndex = 4
Top = 480
Width = 960
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "考试证号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 1
Left = 360
TabIndex = 3
Top = 926
Width = 960
End
End
Begin VB.PictureBox PicTop
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 450
Left = 45
ScaleHeight = 30
ScaleMode = 3 'Pixel
ScaleWidth = 452
TabIndex = 1
TabStop = 0 'False
Top = 0
Width = 6780
Begin VB.Label Label4
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 = 2
Top = 120
Width = 1350
End
Begin VB.Image imgIcon
Height = 240
Left = 120
Picture = "frmgrkscj.frx":08CA
Top = 120
Width = 240
End
End
Begin vbpPreview.Preview pre
Left = 9720
Top = 720
_ExtentX = 741
_ExtentY = 741
Caption = "打印预览"
End
Begin VB.Label Label1
Caption = "查询方法： （1）从下拉框中选择“身份证号”或“姓名” （2）输入“身份证号”或姓名后回车。"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 2055
Left = 360
TabIndex = 0
Top = 1560
Width = 1815
End
End
Attribute VB_Name = "Frmgrkscj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Ssql As String
Private Sub cmbname_Click()
Ssql = ""
Sstr = "select * from cx1 where name='" & cmbname.Text & "' order by val(kscs) asc"
Set Res = New ADODB.Recordset
Res.Open Sstr, Conn
If Res.EOF And Res.BOF Then
MsgBox "没找到记录", vbOKOnly, "提示"
gd1.Rows = 1
Exit Sub
End If
Ssql = Sstr
Call tc_grxx
End Sub
Private Sub cmbname_KeyPress(KeyAscii As Integer)
Ssql = ""
If KeyAscii = 13 Then
Sstr = "select * from cx1 where name='" & cmbname.Text & "' order by val(kscs) asc"
Set Res = New ADODB.Recordset
Res.Open Sstr, Conn
If Res.EOF And Res.BOF Then
MsgBox "没找到记录", vbOKOnly, "提示"
gd1.Rows = 1
Exit Sub
End If
Ssql = Sstr
Call tc_grxx
End If
End Sub
Private Sub cmbsfzh_Click()
Ssql = ""
Sstr = "select * from cx1 where sfzh='" & cmbsfzh.Text & "' order by val(kscs) asc"
Set Res = New ADODB.Recordset
Res.Open Sstr, Conn
If Res.EOF And Res.BOF Then
MsgBox "没找到记录", vbOKOnly, "提示"
gd1.Rows = 1
Exit Sub
End If
Ssql = Sstr
Call tc_grxx
End Sub
Private Sub cmbsfzh_KeyPress(KeyAscii As Integer)
Ssql = ""
If KeyAscii = 13 Then
Sstr = "select * from cx1 where sfzh='" & cmbsfzh.Text & "' order by val(kscs) asc"
Set Res = New ADODB.Recordset
Res.Open Sstr, Conn
If Res.EOF And Res.BOF Then
MsgBox "没找到记录", vbOKOnly, "提示"
gd1.Rows = 1
Exit Sub
End If
Ssql = Sstr
Call tc_grxx
End If
End Sub
Private Sub Command1_Click()
Ssql = ""
Sstr = "select * from cx1 where sfzh='" & cmbsfzh & "' and name='" & cmbname.Text & "'and ksdate1>='" & dt1.Value & "' and ksdate1<='" & dt2.Value & "' order by val(kscs) asc"
Set Res = New ADODB.Recordset
Res.Open Sstr, Conn
If Res.EOF And Res.BOF Then
MsgBox "没找到记录", vbOKOnly, "提示"
gd1.Rows = 1
Exit Sub
End If
Ssql = Sstr
Call tc_grxx
End Sub
Private Sub Command2_Click()
If Ssql <> "" Then
Call grkscjdy(pre, Ssql)
Else
MsgBox "请先查找要打印的记录", vbOKOnly, "提示"
End If
End Sub
Private Sub Form_Load()
Ssql = ""
dt1.Value = Date
dt2.Value = Date
Set Res = New ADODB.Recordset
Sstr = "select distinct sfzh from cx1"
Res.Open Sstr, Conn
Do Until Res.EOF
cmbsfzh.AddItem Res!sfzh
Res.MoveNext
Loop
Set Res = New ADODB.Recordset
Sstr = "select distinct name from cx1"
Res.Open Sstr, Conn
Do Until Res.EOF
cmbname.AddItem Res!Name
Res.MoveNext
Loop
With gd1
.Rows = 1
.Row = 0
.Col = 0
.Text = "次数"
.CellAlignment = 4
.ColWidth(0) = 600
.Col = 1
.Text = "一次考试成绩"
.CellAlignment = 4
.ColWidth(1) = 2600
.Col = 2
.Text = "一次考试时间"
.CellAlignment = 4
.ColWidth(2) = 1800
.Col = 3
.Text = "二次考试成绩"
.CellAlignment = 4
.ColWidth(3) = 2600
.Col = 4
.Text = "二次考试时间"
.CellAlignment = 4
.ColWidth(4) = 1800
.Col = 5
.Text = "考官姓名"
.CellAlignment = 4
.ColWidth(5) = 930
End With
End Sub
Sub tc_grxx()
With Res
cmbsfzh.Text = !sfzh
cmbname.Text = !Name
txtkszh.Text = !kszh
txtxb.Text = !sex
txtdw.Text = !xxdw
txtcx.Text = !cx
txtaddress.Text = !address
txtphone.Text = !phone
End With
With gd1
.Rows = 1
Do Until Res.EOF
.Rows = .Rows + 1
.Row = .Rows - 1
.Col = 0
.CellAlignment = 4
.Text = IIf(IsNull(Res!ksCS), "", Res!ksCS)
.Col = 1
.CellAlignment = 4
.Text = IIf(IsNull(Res!kscj1), "", Res!kscj1)
.Col = 2
.CellAlignment = 4
.Text = IIf(IsNull(Res!ksdate1), "", Res!ksdate1)
.Col = 3
.CellAlignment = 4
.Text = IIf(IsNull(Res!kscj2), "", Res!kscj2)
.Col = 4
.CellAlignment = 4
.Text = IIf(IsNull(Res!ksdate2), "", Res!ksdate2)
.Col = 5
.CellAlignment = 4
.Text = IIf(IsNull(Res!kgname), "", Res!kgname)
Res.MoveNext
Loop
End With
End Sub
Private Sub Form_Resize()
PicTop.Width = Width / 15 - 16
Cls
Line (2, 2)-(Width / 15 - 14, Height / 15 - 29), 10921638, B
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -