VB毕业生就业管理系统 第5页

VB毕业生就业管理系统 第5页
 Adodc1.RecordSource = "select * from students where student_id=" + Trim(txtstuid)
  Adodc1.Refresh
  Call ShowImage(Image1, Adodc1)
CurStu.GetInfo (Val(txtstuid.Text))
学科成绩.RecordSource = "select * from scores where student_id=" + Trim(txtstuid)
学科成绩.Refresh
DataGrid4.Refresh
奖励.RecordSource = "select * ,description from reward,rewarddescription where  reward.type=rewarddescription.type and  reward.student_id=" + Trim(txtstuid)
奖励.Refresh
DataGrid1.Refresh
四辣级.RecordSource = "select * ,description from cet,cetdescription where  cet.type=cetdescription.type and cet.student_id=" + Trim(txtstuid)
四辣级.Refresh
DataGrid3.Refresh
处罚.RecordSource = "select * ,description from punish,punishdescription where punish.type=punishdescription.type and punish.student_id=" + Trim(txtstuid)
处罚.Refresh
DataGrid2.Refresh
End Sub
3.4.4添加院系的信息和上下级关系
Private Sub cmd_ok_Click()
  '检查用户录入数据的有效性
  If Trim(txtClass) = "" Then
    MsgBox "请输入院系班级名称"
    Exit Sub
  End If
  '将新输入的数据保存到类变量中
  With MyClass
  .Class_Name = MakeStr(txtClass)
  .Describe = MakeStr(txtDescribe)
  '根据变量Modify决定是插入新数据，还是修改已有的数据
  If Modify = False Then '插入
    '调用In_DB()函数判断用户输入的名称是否已经存在
    If .In_DB(.Class_Name) = True Then
      MsgBox Trim(txtClass) + " 已经存在"
      Exit Sub
    End If
    'CurClass中保存在院系班级管理窗体中选中的院系班级信息
    '当插入新记录时，新记录将做为当前院系班级的下级院系班级
    .UpperId = CurClass.Class_Id
    Bh = .insert
    '生成TreeView中一个结点的关键字
    Tmp_Key = "a" + Trim(str(Bh))
    '设置结点的图像
   院系管理.TreeView1.SelectedItem.Image = 1
     院系管理.TreeView1.SelectedItem.ExpandedImage = 2
    院系管理.TreeView1.SelectedItem.SelectedImage = 3
    '在树中添加一个结点
    Set TmpNode = 院系管理.TreeView1.Nodes.add(院系管理.TreeView1.SelectedItem.Key, _
          tvwChild, Tmp_Key, .Class_Name, 4, 5)
    TmpNode.Selected = True
  Else '修改
    If CurClass.Class_Name <> Trim(txtClass) Then
      If .In_DB(Trim(txtClass)) = True Then
        MsgBox Trim(txtClass) + " 已经存在"
        Exit Sub
      End If
    End If
    '当修改记录时，不能改变上下级之间的关系
    .UpperId = CurClass.UpperId
    .update (CurClass.Class_Id)
    If CurClass.Class_Name <> Trim(txtClass) Then
      FrmClassMan.TreeView1.SelectedItem.Text = Trim(txtClass)
    End If
    '设置CurClass变量
    CurClass.Class_Name = Trim(txtClass)
  End If
  End With
  '关闭窗口
  Unload MeEnd Sub

上一页  [1] [2] [3] [4] [5] [6] 下一页

VB毕业生就业管理系统 第5页下载如图片无法显示或论文不完整，请联系qq752018766