frmwxgl.frm

在重庆大学为毕业设计做的维修管理系统 为了赶时间做得不是很好

      FormatLocked    =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   10
      BeginProperty Column00 
         DataField       =   "编号"
         Caption         =   "编号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   "报修部门"
         Caption         =   "报修部门"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "报修地点"
         Caption         =   "报修地点"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "报修类别"
         Caption         =   "报修类别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "报修项目"
         Caption         =   "报修项目"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "报修日期"
         Caption         =   "报修日期"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "受理人"
         Caption         =   "受理人"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "接修部门"
         Caption         =   "接修部门"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "接修人"
         Caption         =   "接修人"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "修理状态"
         Caption         =   "修理状态"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   599.811
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1200.189
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1170.142
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1065.26
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1964.976
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   1425.26
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   945.071
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   1500.095
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   1094.74
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   1365.165
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmwxgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub TabStrip1_Click()

End Sub

Private Sub cmbbxlb_Change()
    cmbbxxm.Clear
    Adodc2.RecordSource = "select 设备名称 from 设备表 where 设备类别='" & cmbbxlb.Text & "'"
    Adodc2.Refresh
    Do While Not Adodc2.Recordset.EOF
        cmbbxxm.AddItem Adodc2.Recordset.Fields("设备名称")
        Adodc2.Recordset.MoveNext
    Loop
    cmbbxxm.Text = cmbbxxm.List(0)
    
End Sub

Private Sub cmbjxbm_Change()
    cmbjxr.Clear
    Adodc2.RecordSource = "select 姓名 from 员工表 where 部门='" & cmbjxbm.Text & "'"
    Adodc2.Refresh
    Do While Not Adodc2.Recordset.EOF
        cmbjxr.AddItem Adodc2.Recordset.Fields("姓名")
        Adodc2.Recordset.MoveNext
    Loop
    cmbjxr.Text = cmbjxr.List(0)
End Sub

Private Sub cmbljlb_Change()
    cmbljmc.Clear
    Adodc4.RecordSource = "select 名称 from 零件表 where 类别='" & cmbljlb.Text & "'"
    Adodc4.Refresh
    Do While Not Adodc4.Recordset.EOF
        cmbljmc.AddItem Adodc4.Recordset.Fields("名称")
        Adodc4.Recordset.MoveNext
    Loop
    cmbljmc.Text = cmbljmc.List(0)
End Sub

Private Sub cmdadd_Click()
    Adodc1.RecordSource = "select * from 维修记录表 order by 编号"
    Adodc1.Refresh
    
    Adodc1.Recordset.AddNew
    cmbbxbm.SetFocus
    cmdadd.Enabled = False
    cmdupdate.Enabled = False
    
    cmdsave.Enabled = True
    cmdexit.Enabled = False
End Sub

Private Sub cmdaddlj_Click()
    Adodc3.RecordSource = "select 维修编号,零件名称,零件类别,零件数量,编号 from 使用零件表 where 维修编号=" + Label11.Caption
    Adodc3.Recordset.AddNew
    cmbljlb.SetFocus
    cmdaddlj.Enabled = False
    cmddeletelj.Enabled = False
    cmdsavelj.Enabled = True
   
End Sub



Private Sub cmddel_Click()
    a = MsgBox("你真的要删除编号为" + CStr(Adodc1.Recordset.Fields("编号")) + "维修记录吗", vbQuestion + vbYesNo, "维修管理")
    If a = vbYes Then
        Dim cnn As New ADODB.Connection
        cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=wx;Initial Catalog=wxdb"
        cnn.Execute ("delete from 维修记录表 where 编号=" + CStr(Adodc1.Recordset.Fields("编号")))
        cnn.Close
        Adodc1.Refresh
        Adodc1.Recordset.MoveLast
    End If
End Sub

Private Sub cmddeletelj_Click()
    a = MsgBox("你真的要删除" + Adodc3.Recordset.Fields("零件名称") + "吗", vbQuestion + vbYesNo, "维修管理")
    If a = vbYes Then
        Dim cnn As New ADODB.Connection
        cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=wx;Initial Catalog=wxdb"
        cnn.Execute ("delete from 使用零件表 where 编号=" + CStr(Adodc3.Recordset.Fields("编号")))
        cnn.Close
        Adodc3.Refresh
    End If
End Sub

Private Sub cmdexit_Click()
    Unload Me
End Sub


Private Sub cmdsave_Click()
    If cmbbxdd.Text = "" Then
        MsgBox "报修地点不能为空", vbCritical, "维修管理"
        cmbbxdd.SetFocus
    ElseIf cmbbxxm = "" Then
        MsgBox "报修项目不能为空", vbCritical, "维修管理"
        cmbbxxm.SetFocus
    Else
        Adodc1.Recordset.Fields("报修部门") = cmbbxbm.Text
        Adodc1.Recordset.Fields("报修地点") = cmbbxdd.Text
        Adodc1.Recordset.Fields("报修日期") = dtpbxrq.Value
        Adodc1.Recordset.Fields("报修类别") = cmbbxlb.Text
        Adodc1.Recordset.Fields("报修项目") = cmbbxxm.Text
        Adodc1.Recordset.Fields("受理人") = cmbslr.Text
        Adodc1.Recordset.Fields("报修部门") = cmbbxbm.Text
        Adodc1.Recordset.Fields("接修人") = cmbjxr.Text
        Adodc1.Recordset.Fields("修理状态") = cmbxlzt.Text
        
        Adodc1.Recordset.Update
        Adodc1.RecordSource = "select * from 维修记录表 order by 编号"
        Adodc1.Refresh
        Adodc1.Recordset.MoveLast
        
        cmdadd.Enabled = True
        cmdupdate.Enabled = True
     
        cmdsave.Enabled = False
        cmdexit.Enabled = True
    End If
End Sub

Private Sub cmdsavelj_Click()
    If cmbljmc.Text = "" Then
        MsgBox "零件名称不能为空", vbCritical, "维修管理"
        cmbljmc.SetFocus
    ElseIf cmbljlb = "" Then
        MsgBox "零件类别不能为空", vbCritical, "维修管理"
        cmbljlb.SetFocus
    Else
        Adodc3.Recordset.Fields("零件类别") = cmbljlb.Text
        Adodc3.Recordset.Fields("零件名称") = cmbljmc.Text
        Adodc3.Recordset.Fields("零件数量") = cmbljsl.Text
        Adodc3.Recordset.Fields("维修编号") = Adodc1.Recordset.Fields("编号")
            
        Adodc3.Recordset.Update
        Adodc3.RecordSource = "select 维修编号,零件名称,零件类别,零件数量,编号 from 使用零件表 where 维修编号=" + Label11.Caption
        Adodc3.Refresh
        Adodc3.Recordset.MoveLast
        
        cmdaddlj.Enabled = True
        cmddeletelj.Enabled = True
        cmdsavelj.Enabled = False
       
    End If
End Sub

Private Sub cmdupdate_Click()
        If cmbbxdd.Text = "" Then
        MsgBox "报修地点不能为空", vbCritical, "维修管理"
        cmbbxdd.SetFocus
    ElseIf cmbbxxm = "" Then
        MsgBox "报修项目不能为空", vbCritical, "维修管理"
        cmbbxxm.SetFocus
    Else
        Adodc1.Recordset.Fields("报修部门") = cmbbxbm.Text
        Adodc1.Recordset.Fields("报修地点") = cmbbxdd.Text
        Adodc1.Recordset.Fields("报修日期") = dtpbxrq.Value
        Adodc1.Recordset.Fields("报修类别") = cmbbxlb.Text
        Adodc1.Recordset.Fields("报修项目") = cmbbxxm.Text
        Adodc1.Recordset.Fields("受理人") = cmbslr.Text
        Adodc1.Recordset.Fields("报修部门") = cmbbxbm.Text
        Adodc1.Recordset.Fields("接修人") = cmbjxr.Text
        Adodc1.Recordset.Fields("修理状态") = cmbxlzt.Text
        
        Adodc1.Recordset.Update
        Adodc1.RecordSource = "select * from 维修记录表 order by 编号"
        Adodc1.Refresh
        Adodc1.Recordset.MoveLast
        
       
    End If
End Sub

Private Sub dg3_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

End Sub

Private Sub Form_Load()
     If Label11.Caption <> "" Then
        Adodc3.RecordSource = "select 维修编号,零件名称,零件类别,零件数量,编号 from 使用零件表 where 维修编号=" + Label11.Caption
        Adodc3.Refresh
    End If
End Sub

Private Sub Label11_Change()
    If Label11.Caption <> "" Then
        Adodc3.RecordSource = "select 维修编号,零件名称,零件类别,零件数量,编号 from 使用零件表 where 维修编号=" + Label11.Caption
        Adodc3.Refresh
    End If
End Sub