frmmain4.frm

教务管理系统,用VB 完成,以SQL SERVER 2000作为后台数据库

DANWEI = True
CITY = False
FRMDW.Show 1
FRMDW.Label1.Caption = "输入单位名称任意词汇"
End Sub

Private Sub MNUDANWEI2_Click()
On Error Resume Next
CITY = True
DANWEI = False
FRMDW.Show 1
FRMDW.Label1.Caption = "输入单位地址任意词汇"
End Sub

Private Sub MNUDW_Click()
On Error Resume Next
FRMDW.Show 1
FRMDW.Label1.Caption = "输入学号"
End Sub

Private Sub MNUDWDZ_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入单位所在地 如'上海':", "按单位所在地信息查询")
  SQL = "select * from danwxx where Danwdz like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_DW
  DBGridmain.Refresh
   T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUENG_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入外语等级如 '国家四级及格':", "外语水平查询")
  SQL = "select * from Xuesxx where Waiy like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
   T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MnuFExit_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub MNUNEXT_Click()
On Error Resume Next
If CITY Then FrmGrad.DataMain.Recordset.FindNext PUBCITY
If DANWEI Then FrmGrad.DataMain.Recordset.FindNext PUBDANWEI
If FrmGrad.DataMain.Recordset.NoMatch Then
MsgBox "已收索完毕!", vbInformation, "信息提示框"
End If
End Sub
Private Sub MNUMC_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入单位名称相关词如'计算机':", "按单位名称查询")
  SQL = "select * from danwxx where Danwmc like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_DW
  DBGridmain.Refresh
   T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUNOTE_Click()
Dim tt As String
Dim X
tt = App.Path + "\HELP\BYFP.TXT"
X = Shell("Notepad " + tt, 1)
End Sub

Private Sub MNUPD_Click()
Dim ex As Excel.Application
Dim exwbook As Excel.WorkBook
Dim exsheet As Excel.WorkSheet
Dim exchart As Excel.Chart
Dim I, J As Integer
If MsgBox("将要处理数据,可能花费较长时间,请稍候……", vbInformation + vbOKCancel, "提示框") = vbCancel Then
Exit Sub
Screen.MousePointer = 0
Else
Set ex = CreateObject("excel.application")
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
Dim rec As Recordset
Dim q As Integer
Screen.MousePointer = 11
Set rec = DataMain.Recordset

If rec.AbsolutePosition = -1 Then
MsgBox "无信息可供打印,退出!", vbExclamation, "错误信息"
GoTo 10
End If

rec.MoveLast
rec.MoveFirst
q = rec.RecordCount

ex.Caption = "用人单位信息一览"
ex.Cells(1, 5).Value = "用人单位信息报表"

ex.Cells(3, 1).Value = "单位名称"
ex.Cells(3, 2).Value = "单位地址"
ex.Cells(3, 3).Value = "联系人"
ex.Cells(3, 4).Value = "联系电话"
ex.Cells(3, 5).Value = "传真"
ex.Cells(3, 6).Value = "邮编"
ex.Cells(3, 7).Value = "招聘条件及需求"


For I = 4 To q + 3
For J = 1 To 7
ex.Cells(I, J).Value = rec(J - 1).Value
 Next J
 rec.MoveNext
  Next I
ex.Visible = True
exwbook.Saved = True
rec.MoveFirst
10:
Screen.MousePointer = vbArrow
Set exsheet = Nothing
Set exwbook = Nothing
Set ex = Nothing
End If
DataMain.Refresh
DBGridmain.Refresh
 T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUPS_Click()
Dim ex As Excel.Application
Dim exwbook As Excel.WorkBook
Dim exsheet As Excel.WorkSheet
Dim exchart As Excel.Chart
Dim I, J As Integer
If MsgBox("将要处理数据,可能花费较长时间,请稍候……", vbInformation + vbOKCancel, "提示框") = vbCancel Then
Exit Sub
Screen.MousePointer = 0
Else
Set ex = CreateObject("excel.application")
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
Dim rec As Recordset
Dim q As Integer
Screen.MousePointer = 11
Set rec = DataMain.Recordset

If rec.AbsolutePosition = -1 Then
MsgBox "无信息可供打印,退出!", vbExclamation, "错误信息"
GoTo 10
End If

rec.MoveLast
rec.MoveFirst
q = rec.RecordCount

ex.Caption = "毕业生信息一览"
ex.Cells(1, 5).Value = "毕业生信息报表"

ex.Cells(3, 1).Value = "学号"
ex.Cells(3, 2).Value = "姓名"
ex.Cells(3, 3).Value = "班级"
ex.Cells(3, 4).Value = "院系"
ex.Cells(3, 5).Value = "生源"
ex.Cells(3, 6).Value = "政治面貌"
ex.Cells(3, 7).Value = "外语等级"
ex.Cells(3, 8).Value = "计算机水平"
ex.Cells(3, 9).Value = "兴趣特长"
ex.Cells(3, 10).Value = "求职意向"
ex.Cells(3, 11).Value = "签约单位名称"

For I = 4 To q + 3
For J = 1 To 11
  ex.Cells(I, J).Value = rec(J - 1).Value
 Next J
 rec.MoveNext
  Next I
ex.Visible = True
exwbook.Saved = True
rec.MoveFirst
10:
Screen.MousePointer = vbArrow
Set exsheet = Nothing
Set exwbook = Nothing
Set ex = Nothing
End If
DataMain.Refresh
DBGridmain.Refresh
 T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUQY_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入签约单位如 '电梯厂':", "签约单位查询")
  SQL = "select * from Xuesxx where Qianydwmc like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
   T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUQZ_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入求职意向相关字 如 '三资企业':", "求职意向查询")
  SQL = "select * from Xuesxx where Qiuzyx like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
   T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUSTU_Click()

End Sub

Private Sub MNUSY_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入生源如 '广东':", "生源查询")
  SQL = "select * from Xuesxx where ShengY like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
   T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUTC_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入特长如 '足球':", "特长查询")
  SQL = "select * from Xuesxx where Tec like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
   T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUTJ_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入单位招聘条件及需求 如'外语六级':", "按单位招聘条件及需求进行查询")
  SQL = "select * from danwxx where Zhaoptjjxq like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_DW
  DBGridmain.Refresh
  T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUUP_Click()
On Error Resume Next
If CITY Then FrmGrad.DataMain.Recordset.FindPrevious PUBCITY
If DANWEI Then FrmGrad.DataMain.Recordset.FindPrevious PUBDANWEI
If FrmGrad.DataMain.Recordset.NoMatch Then
MsgBox "已收索完毕!", vbInformation, "信息提示框"
End If
End Sub

Private Sub MNUXING_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入姓氏如 '王语峰'或单输入姓'王':", "姓氏查询")
  SQL = "select * from Xuesxx where Xingm like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
  T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUXUEH_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入学号如 '6601003':", "学号查询")
  SQL = "select * from Xuesxx where Xueh like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
  T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUYX_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入院系信息如 '机械工程学院':", "院系查询")
  SQL = "select * from Xuesxx where Yuanx like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
  T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub MNUZZMM_Click()
Dim mess, SQL As String
  Dim rec As Recordset
  mess = InputBox("请输入政治面貌如 '中共党员':", "政治面貌查询")
  SQL = "select * from Xuesxx where Zhengzmm like '*" & mess & "*'"
  Set rec = DataMain.Database.OpenRecordset(SQL, dbOpenSnapshot)
  Set DataMain.Recordset = rec
  DataMain.Refresh
  AddDBGridName_XS
  DBGridmain.Refresh
  T14.Text = DataMain.Recordset.RecordCount
End Sub

Private Sub SSCommand1_Click()
Unload Me
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case "0"
    DataMain.DatabaseName = App.Path + "\database\Student.mdb"
    DataMain.RecordSource = "Danwxx"
    DataMain.Refresh
    
    DBGridmain.Columns(0).Width = 2100
    DBGridmain.Columns(1).Width = 2100
    DBGridmain.Columns(2).Width = 900
    DBGridmain.Columns(3).Width = 1500
    DBGridmain.Columns(4).Width = 1500
    DBGridmain.Columns(5).Width = 1000
    AddDBGridName_DW
    MNUDW.Enabled = False
    MNUDANWEI.Enabled = True
    MNUPD.Enabled = True
    MNUPS.Enabled = False
    MNUXUES.Enabled = False
    MNUDANW.Enabled = True
    DataMain.Caption = "单位信息库"
    XuehaoLD = False
    T14.Text = DataMain.Recordset.RecordCount
Case "1"
    DataMain.DatabaseName = App.Path + "\database\Student.mdb"
    DataMain.RecordSource = "Xuesxx"
    DataMain.Refresh
    DBGridmain.Columns(0).Width = 1300
    DBGridmain.Columns(1).Width = 1000
    DBGridmain.Columns(2).Width = 1200
    DBGridmain.Columns(3).Width = 2000
    DBGridmain.Columns(4).Width = 800
    DBGridmain.Columns(5).Width = 1000
    AddDBGridName_XS
    MNUPS.Enabled = True
    MNUPD.Enabled = False
    MNUDW.Enabled = True
    MNUDANWEI.Enabled = False
    MNUXUES.Enabled = True
    MNUDANW.Enabled = False
    DataMain.Caption = "学生信息库"
    T14.Text = DataMain.Recordset.RecordCount
End Select


End Sub