📄 frmmain4.frm
字号:
BackColor = &H00FFFFFF&
DataField = "Zhaoptjjxq"
DataSource = "DataMain"
ForeColor = &H00FF0000&
Height = 2175
Left = 5820
MultiLine = -1 'True
TabIndex = 6
Top = 480
Width = 3165
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单位名称"
ForeColor = &H00800000&
Height = 210
Left = 330
TabIndex = 36
Top = 240
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "单位地址"
ForeColor = &H00800000&
Height = 210
Left = 330
TabIndex = 35
Top = 864
Width = 840
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "联系人"
ForeColor = &H00800000&
Height = 210
Left = 330
TabIndex = 34
Top = 1488
Width = 630
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "招聘条件及需求"
ForeColor = &H00800000&
Height = 210
Left = 5820
TabIndex = 33
Top = 240
Width = 1470
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "联系电话"
ForeColor = &H00800000&
Height = 210
Left = 330
TabIndex = 32
Top = 2112
Width = 840
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "传真"
ForeColor = &H00800000&
Height = 210
Left = 2430
TabIndex = 31
Top = 1488
Width = 420
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "邮编"
ForeColor = &H00800000&
Height = 210
Left = 2430
TabIndex = 30
Top = 2112
Width = 420
End
Begin VB.Image Image1
Height = 480
Left = 5100
Picture = "Frmmain4.frx":4AAD
Top = 1920
Width = 480
End
End
End
Begin MSDBGrid.DBGrid DBGridmain
Bindings = "Frmmain4.frx":4DB7
Height = 2205
Left = 30
OleObjectBlob = "Frmmain4.frx":4DCA
TabIndex = 7
Top = 3540
Width = 9385
End
Begin VB.Line Line1
X1 = 30
X2 = 1080
Y1 = 0
Y2 = 0
End
Begin VB.Menu MnuFile
Caption = "【文件&F】"
Begin VB.Menu MnuFExit
Caption = "退出[&X]"
End
End
Begin VB.Menu MnuDay
Caption = "【打印&P】"
Begin VB.Menu MNUPS
Caption = "学生信息打印预览[&S]"
End
Begin VB.Menu MNU21
Caption = "-"
End
Begin VB.Menu MNUPD
Caption = "单位信息打印预览[&D]"
End
End
Begin VB.Menu MNUWING
Caption = "【定位&L】"
Begin VB.Menu MNUDW
Caption = "学号定位[&H]"
End
Begin VB.Menu MNU31
Caption = "-"
End
Begin VB.Menu MNUDANWEI
Caption = "单位定位[&U]"
Begin VB.Menu MNUDANWEI1
Caption = "依名称定位[&M]"
End
Begin VB.Menu MNUDANWEI2
Caption = "依省市定位[&S]"
End
End
Begin VB.Menu MNU39
Caption = "-"
End
Begin VB.Menu mnuposi
Caption = "定位方向[&P]"
Begin VB.Menu MNUUP
Caption = "上一条[&U]"
End
Begin VB.Menu MNUnext
Caption = "下一条[&N]"
End
End
End
Begin VB.Menu MNUSQUERY
Caption = "【查询&S】"
Begin VB.Menu MNUXUES
Caption = "学生信息查询"
Begin VB.Menu MNUBJ
Caption = "依班级查询[&B]"
End
Begin VB.Menu MNUYX
Caption = "依院系查询[&Y]"
End
Begin VB.Menu MNUENG
Caption = "依外语水平查询[&E]"
End
Begin VB.Menu MNUCOM
Caption = "依计算机水平查询[&C]"
End
Begin VB.Menu MNUXUEH
Caption = "依学号查询[&X]"
End
Begin VB.Menu MNUXING
Caption = "依姓氏查询[&S]"
End
Begin VB.Menu MNUSY
Caption = "依生源查询[&G]"
End
Begin VB.Menu MNUTC
Caption = "依特长查询[&T]"
End
Begin VB.Menu MNUZZMM
Caption = "依政治面貌查询[&H]"
End
Begin VB.Menu MNUQZ
Caption = "依求职意向查询[&Q]"
End
Begin VB.Menu MNUQY
Caption = "依签约单位查询[&D]"
End
End
Begin VB.Menu MNU41
Caption = "-"
End
Begin VB.Menu MNUDANW
Caption = "单位信息查询[&D]"
Begin VB.Menu MNUDWDZ
Caption = "依单位所在地查询[&D]"
End
Begin VB.Menu MNUMC
Caption = "依单位名称查询[&M]"
End
Begin VB.Menu MNUTJ
Caption = "依招聘条件查询[&T]"
End
End
End
Begin VB.Menu MNUHELP
Caption = "【帮助&H】"
Begin VB.Menu MNUNOTE
Caption = "使用说明[&N]"
End
End
End
Attribute VB_Name = "FrmGrad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DNEW As Boolean
Dim DEDIT As Boolean
Dim CITY As Boolean
Dim DANWEI As Boolean
Sub AddDBGridName_DW()
On Error Resume Next
DBGridmain.Columns(0).Caption = "单位名称"
DBGridmain.Columns(1).Caption = "单位地址"
DBGridmain.Columns(2).Caption = "联系人"
DBGridmain.Columns(3).Caption = "联系电话"
DBGridmain.Columns(4).Caption = "传真"
DBGridmain.Columns(5).Caption = "邮编"
DBGridmain.Columns(6).Caption = "招聘条件及需求"
End Sub
Sub AddDBGridName_XS()
On Error Resume Next
DBGridmain.Columns(0).Caption = "学号"
DBGridmain.Columns(1).Caption = "姓名"
DBGridmain.Columns(2).Caption = "班级"
DBGridmain.Columns(3).Caption = "院系"
DBGridmain.Columns(4).Caption = "生源"
DBGridmain.Columns(5).Caption = "政治面貌"
DBGridmain.Columns(6).Caption = "外语"
DBGridmain.Columns(7).Caption = "计算机"
DBGridmain.Columns(8).Caption = "特长"
DBGridmain.Columns(9).Caption = "求职意向"
DBGridmain.Columns(10).Caption = "签约单位名称"
End Sub
Private Sub cmdNext_Click()
If DataMain.Recordset.AbsolutePosition = DataMain.Recordset.RecordCount - 1 Then
MsgBox "这是最后一条记录!", vbInformation, "信息提示"
Exit Sub
Else
DataMain.Recordset.MoveNext
End If
End Sub
Private Sub cmdprior_Click()
If DataMain.Recordset.AbsolutePosition = 0 Then
MsgBox "这是首条记录!", vbInformation, "信息提示"
Exit Sub
Else
DataMain.Recordset.MovePrevious
End If
End Sub
Private Sub Cmdtop_Click()
DataMain.Recordset.MoveFirst
End Sub
Private Sub Command1_Click()
On Error Resume Next
If MsgBox("同意修改？", vbQuestion + vbYesNo) = vbNo Then
DataMain.Recordset.Edit
DataMain.Recordset.CancelUpdate
Exit Sub
Else
DataMain.Recordset.Edit
DataMain.Recordset.Update
End If
End Sub
Private Sub Command2_Click()
On Error Resume Next
DataMain.Recordset.Edit
DataMain.Recordset.CancelUpdate
End Sub
Private Sub Command3_Click()
On Error Resume Next
If MsgBox("确信要删除此条记录?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
DataMain.Recordset.Delete
DataMain.Recordset.MoveNext
If DataMain.Recordset.EOF = True Then DataMain.Recordset.MoveLast
End If
End Sub
Private Sub Command4_Click()
On Error Resume Next
Command7.Visible = True
Command1.Visible = False
Select Case SSTab1.Caption
Case "单位信息"
DataMain.Recordset.MoveLast
DataMain.Recordset.AddNew
DNEW = True
Text1.SetFocus
Case "毕业生信息"
WhoLdXuehao = 2
frmXueh.Show 1
End Select
End Sub
Private Sub Command7_Click()
On Error Resume Next
Command7.Visible = False
Command1.Visible = True
If DNEW = True Then
DNEW = False
Else
DataMain.Recordset.Edit
End If
DataMain.Recordset.Update
End Sub
Private Sub Form_Load()
On Error Resume Next
KBDH = 7
KBMC = "Xuesxx"
DataMain.DatabaseName = App.Path + "\database\student.mdb"
DataMain.RecordSource = "xuesxx"
DataMain.Refresh
DataMain.Visible = False
AddDBGridName_XS
Command1.Visible = True
Command7.Visible = False
MNUDANWEI.Enabled = True
MNUDW.Enabled = False
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
Line1.X1 = 0
Line1.X2 = FrmGrad.Width
CITY = False
DANWEI = False
MNUDANW.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Me
End Sub
Private Sub MNUBJ_Click()
Dim mess, SQL As String
Dim rec As Recordset
mess = InputBox("请输入班级代号 如 '60161':", "班级查询")
SQL = "select * from Xuesxx where Banj 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 MNUCOM_Click()
Dim mess, SQL As String
Dim rec As Recordset
mess = InputBox("请输入计算机水平等级如 '初级程序员':", "计算机水平查询")
SQL = "select * from Xuesxx where jisj 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 MNUDANWEI1_Click()
On Error Resume Next
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -