📄 frmdycx.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmDYCX
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
Caption = "单一查询信息输入窗口"
ClientHeight = 2085
ClientLeft = 30
ClientTop = 315
ClientWidth = 3900
Icon = "frmDYCX.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2085
ScaleWidth = 3900
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame FrameDYCX_Text
BackColor = &H00C0C0C0&
Height = 2052
Left = 30
TabIndex = 4
Top = 0
Width = 3852
Begin VB.CommandButton cmdQux_Text
Caption = "取消"
Height = 372
Left = 2130
TabIndex = 7
Top = 1560
Width = 972
End
Begin VB.CommandButton cmdQued_Text
Caption = "确定"
Height = 372
Left = 810
TabIndex = 6
Top = 1560
Width = 972
End
Begin MSMask.MaskEdBox MEdBDYCX
Height = 450
Left = 840
TabIndex = 8
Top = 930
Width = 2265
_ExtentX = 3995
_ExtentY = 794
_Version = 327680
BackColor = 16777215
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = "dddddd"
PromptChar = "_"
End
Begin VB.TextBox txtDYCX_Text
Height = 372
Left = 1320
TabIndex = 5
Top = 990
Width = 1212
End
Begin VB.Label lblDYCX_Text
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 345
Left = 210
TabIndex = 9
Top = 270
Width = 3375
End
End
Begin VB.Frame FrameDYCX_Lst
Height = 2052
Left = 30
TabIndex = 0
Top = 0
Width = 3852
Begin VB.ListBox LstDYCX
Height = 1320
Left = 2040
TabIndex = 1
Top = 240
Width = 1692
End
Begin VB.CommandButton cmdQux_Lst
Caption = "取消"
Height = 372
Left = 480
TabIndex = 3
Top = 1200
Width = 972
End
Begin VB.CommandButton cmdQued_Lst
Caption = "确定"
Height = 372
Left = 480
TabIndex = 2
Top = 480
Width = 972
End
End
End
Attribute VB_Name = "frmDYCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Sub AddListItem(I As Integer)
Dim J As Integer
On Error Resume Next
Select Case I
Case 3: AddYXItem
Case 4: AddXLItem
Case 5: AddJLLYItem
Case 7: AddJLLBItem
Case 8: For J = 0 To frmMain.ComboChufnr.ListCount - 1
LstDYCX.AddItem frmMain.ComboChufnr.List(J), J
Next J
Case 10: For J = 0 To frmMain.ComboNianj.ListCount - 1
LstDYCX.AddItem frmMain.ComboNianj.List(J), J
Next J
Case 17: For J = 0 To frmMain.ComboDKYT.ListCount - 1
LstDYCX.AddItem frmMain.ComboDKYT.List(J), J
Next J
Case 19: LstDYCX.AddItem "男", 0: LstDYCX.AddItem "女", 1
Case 20: LstDYCX.AddItem "农村", 0: LstDYCX.AddItem "城镇", 1
Case 21: For J = 0 To frmMain.ComboZXXM.ListCount - 1
LstDYCX.AddItem frmMain.ComboZXXM.List(J), J
Next J
Case 23: LstDYCX.AddItem "学校", 0: LstDYCX.AddItem "社会", 1
End Select
End Sub
Sub AddYXItem()
Dim I As Integer
On Error Resume Next
For I = 1 To 12
LstDYCX.AddItem ReadYXItem(I), I - 1
Next I
LstDYCX.AddItem ReadYXItem(14), 12
LstDYCX.AddItem ReadYXItem(15), 13
LstDYCX.AddItem ReadYXItem(29), 14
End Sub
Sub AddXLItem()
On Error Resume Next
LstDYCX.AddItem "博士", 0
LstDYCX.AddItem "硕士", 1
LstDYCX.AddItem "本科", 2
LstDYCX.AddItem "双学士", 3
LstDYCX.AddItem "大专", 4
LstDYCX.AddItem "夜大生", 5
LstDYCX.AddItem "进修生", 6
End Sub
Sub AddJLLYItem()
On Error Resume Next
LstDYCX.AddItem "国家", 0
LstDYCX.AddItem "部委", 1
LstDYCX.AddItem "省市", 2
LstDYCX.AddItem "社会团体", 3
LstDYCX.AddItem "学校", 4
LstDYCX.AddItem "国外", 5
LstDYCX.AddItem "其它", 6
End Sub
Sub AddJLLBItem()
On Error Resume Next
LstDYCX.AddItem "人民奖学金", 0
LstDYCX.AddItem "专项奖学金", 1
LstDYCX.AddItem "三好学生", 2
LstDYCX.AddItem "优干", 3
LstDYCX.AddItem "特种比赛", 4
LstDYCX.AddItem "其它", 5
End Sub
Function ReadYXItem(Z As Integer) As String
On Error Resume Next
Select Case Z
Case 1: ReadYXItem = "船舶与海洋工程学院"
Case 2: ReadYXItem = "动力与能源工程学院"
Case 3: ReadYXItem = "电子信息学院"
Case 4: ReadYXItem = "电力学院"
Case 5: ReadYXItem = "材料科学与工程学院"
Case 6: ReadYXItem = "机械工程学院"
Case 7: ReadYXItem = "理学院"
Case 8: ReadYXItem = "生命科学技术学院"
Case 9: ReadYXItem = "人文社会科学学院"
Case 10: ReadYXItem = "建筑工程与力学学院"
Case 11: ReadYXItem = "化学化工学院"
Case 12: ReadYXItem = "管理学院"
Case 14: ReadYXItem = "外语学院"
Case 15: ReadYXItem = "体育系"
Case 29: ReadYXItem = "塑性成形系"
End Select
End Function
Function DimSQL() As String
On Error Resume Next
Select Case ZDDH
Case 0: DimSQL = "select * from " & KBMC & " where Xueh='" & Zifu & "'" '学号text.int0
Case 1: DimSQL = "select * from " & KBMC & " where Xingm='" & Zifu & "'" '姓名text1
Case 2: DimSQL = "select * from " & KBMC & " where Banj='" & Zifu & "'" '班级text2
Case 3: DimSQL = "select * from " & KBMC & " where Yuanx='" & Zifu & "'" '院系comb3
Case 4: DimSQL = "select * from " & KBMC & " where Xuel='" & Zifu & "'" '学历comb4
Case 5: DimSQL = "select * from " & KBMC & " where Jianglly='" & Zifu & "'" '奖励来源comb5
Case 6: DimSQL = "select * from " & KBMC & " where Jianglny=#" & Riqi & "#" '奖励年月mktext6
Case 7: DimSQL = "select * from " & KBMC & " where Jiangllb='" & Zifu & "'" '奖励类别comb7
Case 8: DimSQL = "select * from " & KBMC & " where Chufnr='" & Zifu & "'" '处罚内容comb8
Case 9: DimSQL = "select * from " & KBMC & " where Chufrq=#" & Riqi & "#" '处分日期mktext9
Case 10: DimSQL = "select * from " & KBMC & " where Nianj='" & Zifu & "'" '年级comb10
Case 11: DimSQL = "select * from " & KBMC & " where Shengy='" & Zifu & "'" '生源comb11
Case 12: DimSQL = "select * from " & KBMC & " where Lingtkh='" & Shuzi & "'" '灵通卡号text.int12
Case 13: DimSQL = "select * from " & KBMC & " where Shenfzh='" & Shuzi & "'" '身份证号text.int13
Case 14: DimSQL = "select * from " & KBMC & " where Daixjqr=#" & Riqi & "#" '贷学金起日mktext14
Case 15: DimSQL = "select * from " & KBMC & " where Daixjzr=#" & Riqi & "#" '贷学金止日mktext15
Case 16: DimSQL = "select * from " & KBMC & " where Huandrq=#" & Riqi & "#" '还贷金日期mktext16
Case 17: DimSQL = "select * from " & KBMC & " where Daikyt='" & Zifu & "'" '贷款用途comb17
Case 18: DimSQL = "select * from " & KBMC & " where Kunbnyr=#" & Riqi & "#" '困补年月日mktext18
Case 19: DimSQL = "select * from " & KBMC & " where Xingb='" & Zifu & "'" '性别comb19
Case 20: DimSQL = "select * from " & KBMC & " where Huksx='" & Zifu & "'" '户口属性comb20
Case 21: DimSQL = "select * from " & KBMC & " where Zhuxxm='" & Zifu & "'" '助学项目comb21
Case 22: DimSQL = "select * from " & KBMC & " where Zhuxsjq=#" & Riqi & "#" '助学时间起mktext22
Case 23: DimSQL = "select * from " & KBMC & " where Zhuxxly='" & Zifu & "'" '助学项来源comb23
Case 24: DimSQL = "select * from " & KBMC & " where Shenqsj=#" & Riqi & "#"
Case 25: DimSQL = "select * from " & KBMC & " where Fafsj=#" & Riqi & "#"
End Select
End Function
Function ReadDYCX_ZDM(I As Integer) As String
On Error Resume Next
Select Case I
Case 0: ReadDYCX_ZDM = "学号"
Case 1: ReadDYCX_ZDM = "姓名"
Case 2: ReadDYCX_ZDM = "班级"
Case 3: ReadDYCX_ZDM = "院系"
Case 4: ReadDYCX_ZDM = "学历"
Case 5: ReadDYCX_ZDM = "奖励来源"
Case 6: ReadDYCX_ZDM = "奖励年月"
Case 7: ReadDYCX_ZDM = "奖励类别"
Case 8: ReadDYCX_ZDM = "处罚内容"
Case 9: ReadDYCX_ZDM = "处分日期"
Case 10: ReadDYCX_ZDM = "年级"
Case 11: ReadDYCX_ZDM = "生源"
Case 12: ReadDYCX_ZDM = "灵通卡号"
Case 13: ReadDYCX_ZDM = "身份证号"
Case 14: ReadDYCX_ZDM = "贷学金起日"
Case 15: ReadDYCX_ZDM = "贷学金止日"
Case 16: ReadDYCX_ZDM = "还贷金日期"
Case 17: ReadDYCX_ZDM = "贷款用途"
Case 18: ReadDYCX_ZDM = "困补年月日"
Case 19: ReadDYCX_ZDM = "性别"
Case 20: ReadDYCX_ZDM = "户口属性"
Case 21: ReadDYCX_ZDM = "助学项目"
Case 22: ReadDYCX_ZDM = "助学时间起"
Case 23: ReadDYCX_ZDM = "助学项来源"
Case 24: ReadDYCX_ZDM = "申请时间"
Case 25: ReadDYCX_ZDM = "发放时间"
End Select
End Function
Sub Zddh_ZuanH()
On Error Resume Next
If KBDH = 1 Then
If ZDDH > 5 Then ZDDH = ZDDH - 1
End If
If KBDH = 2 Then
If ZDDH = 6 Then ZDDH = 8
If ZDDH = 7 Then ZDDH = 9
End If
If KBDH = 3 Then
If ZDDH = 3 Then ZDDH = 24
If ZDDH = 4 Then ZDDH = 25
End If
If KBDH = 4 Then
Select Case ZDDH
Case 2: ZDDH = 13
Case 4: ZDDH = 14
Case 5: ZDDH = 15
Case 6: ZDDH = 16
Case 7: ZDDH = 17
End Select
End If
If KBDH = 5 Then
If ZDDH = 4 Then ZDDH = 10
If ZDDH = 5 Then ZDDH = 11
If ZDDH = 6 Then ZDDH = 12
If ZDDH = 8 Then ZDDH = 18
End If
If KBDH = 6 Then
If ZDDH = 2 Then ZDDH = 19
If ZDDH = 4 Then ZDDH = 20
If ZDDH = 6 Then ZDDH = 21
If ZDDH = 7 Then ZDDH = 22
If ZDDH = 8 Then ZDDH = 23
End If
End Sub
Sub Ld_Xunwen()
On Error Resume Next
lblDYCX_Text.Caption = "请输入选择的" & ReadDYCX_ZDM(ZDDH) & ":"
FrameDYCX_Text.Visible = True
FrameDYCX_Lst.Visible = False
If ZDDH = 0 Or ZDDH = 1 Or ZDDH = 2 Or ZDDH = 11 _
Or ZDDH = 12 Or ZDDH = 13 Then
txtDYCX_Text.Visible = True: MEdBDYCX.Visible = False
ElseIf ZDDH = 6 Or ZDDH = 9 Or ZDDH = 14 _
Or ZDDH = 15 Or ZDDH = 16 Or ZDDH = 18 _
Or ZDDH = 22 Or ZDDH = 24 Or ZDDH = 25 Then
txtDYCX_Text.Visible = False: MEdBDYCX.Visible = True
Else
FrameDYCX_Text.Visible = False
FrameDYCX_Lst.Visible = True
AddListItem (ZDDH)
End If
End Sub
Sub ZiXingDYCX()
On Error Resume Next
Dim DB As Database
Dim mySql As String
Dim rec As Recordset
mySql = DimSQL()
Set DB = OpenDatabase(App.Path + "\database\student.mdb", False, False)
Set rec = DB.OpenRecordset(mySql, 4)
Set frmMain.Datamain.Recordset = rec
frmMain.Datamain.Refresh
frmMain.AddDBGridColN
Unload Me
End Sub
Private Sub cmdQued_Lst_Click()
On Error GoTo Errout
Zifu = LstDYCX.List(LstDYCX.ListIndex)
ZiXingDYCX
Exit Sub
Errout:
MsgBox "出错，请重新输入", vbOKOnly, "错误！！！"
End Sub
Private Sub cmdQued_Text_Click()
On Error GoTo Errout
Select Case ZDDH
Case 12: Shuzi = CInt(txtDYCX_Text.Text)
Case 0, 1, 2, 11: Zifu = txtDYCX_Text.Text
Case Else: Riqi = MEdBDYCX.Text
End Select
ZiXingDYCX
Exit Sub
Errout:
MsgBox "出错，请重新输入", vbOKOnly, "错误！！！"
End Sub
Private Sub cmdQux_Lst_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub cmdQux_Text_Click()
On Error Resume Next
Unload Me
'frmMain.Show
End Sub
Private Sub Form_Load()
On Error Resume Next
Zddh_ZuanH
Ld_Xunwen
'frmMain.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmMain.Enabled = True
On Error Resume Next
'frmDYCX.Picture = LoadPicture(App.Path + "\picture\bakgrd.bmp")
End Sub
Private Sub MEdBDYCX_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdQued_Text_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -