frmprojdev.frm

用ｖｂ编的一个软件项目开发系统

Private Sub Load_Mod1()
  '清除列表
  List1.Clear
  '调用函数把一级功能模块的名称装入到数组中
  Call MyMod.Load_by_Upper(0, CurProj.ProjId)
  i = 0
  '依次把数组Arr_Mod()中的值添加到List1中
  Do While Arr_Mod(i) <> ""
    List1.AddItem Arr_Mod(i)
    i = i + 1
  Loop
  If List1.ListCount > 0 Then
    List1.ListIndex = 0
  End If
End Sub

Private Sub Load_Mod2()
  List2.Clear
  Call MyMod.Load_by_Upper(ModId1, CurProj.ProjId)
  i = 0
  Do While Arr_Mod(i) <> ""
    List2.AddItem Arr_Mod(i)
    i = i + 1
  Loop
  If List2.ListCount > 0 Then
    List2.ListIndex = 0
  End If
End Sub

Private Sub Refresh_Report()
  '设置工作报告的记录源
  Adodc2.RecordSource = "SELECT ReportId As 编号, Title As 标题," _
        + " Author As 作者, CreateDate As 日期 FROM Report" _
        + " WHERE ProjId=" + Trim(CurProj.ProjId) + " ORDER BY ReportId DESC"
  Adodc2.Refresh
End Sub

Private Sub Refresh_Team()
  Adodc1.RecordSource = "SELECT * FROM Team WHERE ProjId=" + Trim(CurProj.ProjId)
  Adodc1.Refresh
  If CurProj.Status = 2 And Adodc1.Recordset.RecordCount > 0 Then
    CurProj.Status = 3
    CurProj.UpdateStatus (CurProj.ProjId)
  End If
End Sub

Private Sub Cmd_Addleader_Click()
  FrmAddteam.TmpType = 5
  FrmAddteam.lblTitle = "组长"
  FrmAddteam.Show 1
  Refresh_Team
End Sub

Private Sub Cmd_Addsoft_Click()
  FrmAddteam.TmpType = 5
  FrmAddteam.lblTitle = "开发工程师"
  FrmAddteam.Show 1
  Refresh_Team
End Sub

Private Sub Cmd_AddSQA_Click()
  FrmAddteam.TmpType = 7
  FrmAddteam.lblTitle = "质量工程师"
  FrmAddteam.Show 1
  Refresh_Team
End Sub

Private Sub Cmd_Addtester_Click()
  FrmAddteam.TmpType = 6
  FrmAddteam.lblTitle = "测试工程师"
  FrmAddteam.Show 1
  Refresh_Team
End Sub

Private Sub Cmd_Close_Click()
  Unload Me
End Sub

Private Sub Cmd_Delteam_Click()
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择项目组成员"
    Exit Sub
  End If
  
  If MsgBox("是否删除当前成员?", vbYesNo, "请确认") = vbYes Then
    Call MyTeam.Delete(Adodc1.Recordset.Fields(0), Trim(Adodc1.Recordset.Fields(1)))
    Refresh_Team
  End If
End Sub

Private Sub Cmd_Mod_Add_Click()
  If Option1.Value = False And List1.ListIndex < 0 Then
    MsgBox "请选择上级模块"
    Exit Sub
  End If
  
  If Option1.Value = True Then
    FrmModEdit.OriUpper = 0
    FrmModEdit.lblUpper = ""
  Else
    FrmModEdit.OriUpper = ModId1
    FrmModEdit.lblUpper = List1.Text
  End If
  
  FrmModEdit.Modify = False
  FrmModEdit.Show 1
  Load_Mod1
  Load_Mod2
End Sub

Private Sub Cmd_Mod_Del_Click()
  Dim TmpId As Long
  If (Option1.Value = True And List1.ListIndex < 0) _
     Or (Option2.Value = True And List2.ListIndex < 0) Then
    MsgBox "请选择要删除的模块"
    Exit Sub
  End If
  
  If Option1.Value = True Then
    TmpId = ModId1
  Else
    TmpId = ModId2
  End If
  '判断一级类目是否包含子类目
  If Option1.Value = True Then
    If MyMod.HaveSon(TmpId) = True Then
      MsgBox "此模块包含子模块，不能删除"
      Exit Sub
    End If
  End If
  '确认删除
  If MsgBox("是否删除此模块？", vbYesNo, "请确认") = vbYes Then
    MyMod.Delete (TmpId)
    Load_Mod1
    Load_Mod2
  End If
End Sub

Private Sub Cmd_Mod_Modi_Click()
  If (Option1.Value = True And List1.ListIndex < 0) _
     Or (Option2.Value = True And List2.ListIndex < 0) Then
    MsgBox "请选择要修改的模块"
    Exit Sub
  End If
  
  If Option1.Value = True Then
    MyMod.GetInfo (ModId1)
    FrmModEdit.OriEname = MyMod.Ename
    FrmModEdit.txtDescribe = MyMod.Describe
    FrmModEdit.OriUpper = 0
    FrmModEdit.lblUpper = ""
    FrmModEdit.OriId = ModId1
    FrmModEdit.OriName = List1.Text
    FrmModEdit.txtMod = List1.Text
  Else
    MyMod.GetInfo (ModId2)
    FrmModEdit.OriEname = MyMod.Ename
    FrmModEdit.txtDescribe = MyMod.Describe
    FrmModEdit.OriUpper = ModId1
    FrmModEdit.lblUpper = List1.Text
    FrmModEdit.OriId = ModId2
    FrmModEdit.OriName = List2.Text
    FrmModEdit.txtMod = List2.Text
  End If
  
  FrmModEdit.Modify = True
  FrmModEdit.Show 1
  Load_Mod1
  Load_Mod2
End Sub

Private Sub Cmd_Mod_View_Click()
  If (Option1.Value = True And List1.ListIndex < 0) _
     Or (Option2.Value = True And List2.ListIndex < 0) Then
    MsgBox "请选择要查看的模块"
    Exit Sub
  End If
  
  If Option1.Value = True Then
    MyMod.GetInfo (ModId1)
    FrmModEdit.OriEname = MyMod.Ename
    FrmModEdit.txtDescribe = MyMod.Describe
    FrmModEdit.OriUpper = 0
    FrmModEdit.lblUpper = ""
    FrmModEdit.OriId = ModId1
    FrmModEdit.OriName = List1.Text
    FrmModEdit.txtMod = List1.Text
  Else
    MyMod.GetInfo (ModId2)
    FrmModEdit.OriEname = MyMod.Ename
    FrmModEdit.txtDescribe = MyMod.Describe
    FrmModEdit.OriUpper = ModId1
    FrmModEdit.lblUpper = List1.Text
    FrmModEdit.OriId = ModId2
    FrmModEdit.OriName = List2.Text
    FrmModEdit.txtMod = List2.Text
  End If
  
  FrmModEdit.Cmd_Ok.Visible = False
  FrmModEdit.Cmd_Cancel.Caption = "返 回"
  FrmModEdit.Cmd_Cancel.Left = 2250
  FrmModEdit.Show 1
End Sub

Private Sub Cmd_Rep_Add_Click()
  FrmRepMan.Modify = False
  FrmRepMan.lblAuthor = CurUser.Ename
  FrmRepMan.lblCreateDate = Format(Now, "yyyy-mm-dd")
  FrmRepMan.Show 1
  Refresh_Report
End Sub

Private Sub Cmd_Rep_Del_Click()
  If Adodc2.Recordset.EOF = True Then
    MsgBox "请选择要删除的工作报告"
    Exit Sub
  End If
  If Trim(Adodc2.Recordset.Fields(2)) <> CurUser.Ename Then
    MsgBox "只有作者才能删除此报告"
    Exit Sub
  End If
  If MsgBox("是否删除此报告?", vbYesNo, "请确认") = vbYes Then
    MyRep.Delete (Adodc2.Recordset.Fields(0))
    Refresh_Report
  End If
End Sub

Private Sub Cmd_Rep_Modi_Click()
  If Adodc2.Recordset.EOF = True Then
    MsgBox "请选择要修改的工作报告"
    Exit Sub
  End If
  If Trim(Adodc2.Recordset.Fields(2)) <> CurUser.Ename Then
    MsgBox "只有作者才能修改此报告"
    Exit Sub
  End If
  
  FrmRepMan.Modify = True
  FrmRepMan.OriId = Adodc2.Recordset.Fields(0)
  FrmRepMan.OriTitle = Trim(Adodc2.Recordset.Fields(1))
  FrmRepMan.txtTitle = Trim(Adodc2.Recordset.Fields(1))
  MyRep.GetInfo (Adodc2.Recordset.Fields(0))
  FrmRepMan.txtBody = MyRep.Body
  FrmRepMan.lblAuthor = Trim(Adodc2.Recordset.Fields(2))
  FrmRepMan.lblCreateDate = Trim(Adodc2.Recordset.Fields(3))
  FrmRepMan.Show 1
  Refresh_Report
End Sub

Private Sub Cmd_Rep_View_Click()
  If Adodc2.Recordset.EOF = True Then
    MsgBox "请选择要查看的工作报告"
    Exit Sub
  End If
  
  FrmRepMan.txtTitle = Trim(Adodc2.Recordset.Fields(1))
  MyRep.GetInfo (Adodc2.Recordset.Fields(0))
  FrmRepMan.txtBody = MyRep.Body
  FrmRepMan.lblAuthor = Trim(Adodc2.Recordset.Fields(2))
  FrmRepMan.lblCreateDate = Trim(Adodc2.Recordset.Fields(3))
  FrmRepMan.Cmd_Ok.Visible = False
  FrmRepMan.Cmd_Cancel.Caption = "返 回"
  FrmRepMan.Cmd_Cancel.Left = 2200
  FrmRepMan.Show 1
End Sub

Private Sub Form_Load()
  '把当前工程项目（保存在CurProj对象中）的所有值赋值到显示控件中
  txtProj = CurProj.ProjName
  txtClient = CurProj.Client
  txtContact = CurProj.Contact
  txtTel = CurProj.Ctel
  txtAmount = CurProj.Amount0
  txtBenefit = CurProj.Benefit0
  txtFinishDate = CurProj.FinishDate0
  lblFillin = CurProj.ApplyEmp
  lblFilldate = CurProj.ApplyDate
  '装入项目组
  Refresh_Team
  '功能模块
  Option1.Value = True
  Load_Mod1
  '工作报告
  Refresh_Report
  
  '项目组管理权限控制
  If CurUser.UserType <> 4 Then
    Cmd_Addleader.Enabled = False
    Cmd_Addsoft.Enabled = False
    Cmd_Addtester.Enabled = False
    Cmd_AddSQA.Enabled = False
    Cmd_Delteam.Enabled = False
  End If
  '功能模块管理权限控制
  If MyTeam.GetTitle(CurProj.ProjId, CurUser.Ename) <> "组长" Then
    Cmd_Mod_Add.Enabled = False
    Cmd_Mod_Modi.Enabled = False
    Cmd_Mod_Del.Enabled = False
  End If
End Sub

Private Sub List1_Click()
  ModId1 = MyMod.GetId(CurProj.ProjId, MakeStr(List1.Text))
  Load_Mod2
End Sub

Private Sub List2_Click()
  ModId2 = MyMod.GetId(CurProj.ProjId, MakeStr(List2.Text))
End Sub

Private Sub Option1_Click()
  List2.Enabled = False
End Sub

Private Sub Option2_Click()
  List2.Enabled = True
End Sub