📄 frmsbyxjxzk.frm

📁 针对各种管理系统提供有的VB源代码
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
                  SubFormatType   =   0
               EndProperty
            EndProperty
            SplitCount      =   1
            BeginProperty Split0 
               BeginProperty Column00 
               EndProperty
               BeginProperty Column01 
               EndProperty
            EndProperty
         End
      End
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   360
         Top             =   6120
      End
      Begin VB.Label Label6 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   960
         TabIndex        =   2
         Top             =   6240
         Width           =   3975
      End
      Begin VB.Label Lable 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "设备运行、检查状况记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   9255
      End
   End
End
Attribute VB_Name = "FrmSBYXJXZK"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim PBH As Integer
Dim flag As Boolean
Private Sub SBBH_Change()
   
End Sub



Private Sub BC_Change()
 CMDSave.Enabled = True
End Sub

Private Sub Check1_Click()
    List1.Visible = False
    Text13.Visible = False
    List1.Clear
    If Check1.Value = 1 Then
        Check1.Value = 1
        List1.Visible = True
        Text13.Visible = True
        SQL = "select distinct 班次 from 设备运行检查状况记录表"
        Set rs = ConnWZ.Execute(SQL)
        Do While Not rs.EOF
            List1.AddItem rs("班次")
            rs.MoveNext
        Loop
    End If
End Sub

Private Sub cmdCancel_Click()
    SBGCGL.Enabled = True
    Unload Me
End Sub



Private Sub CMDDel_Click()
 Result = MsgBox("您确实要删除吗？", vbYesNo)
  If Result = 6 Then
    SQL = "delete 设备运行检查状况记录表 where 序号=" & PBH & ""
    Set rs = ConnWZ.Execute(SQL)
    PBH = 0
   Else
    Exit Sub
  End If
End Sub

Private Sub cmdEdit_Click()
     CMDSave.Enabled = True
     flag = True
     BC.Locked = False
     SBMC.Locked = False
     DY.Locked = False
     DL.Locked = False
     GZZT.Locked = False
     SFZC.Locked = False
     YWYC.Locked = False
     JLR.Locked = False
     FXWT.Locked = False
        
End Sub

Private Sub CMDFresh_Click()
        PBH = 0
        BC = ""
        SBMC = ""
        DY = ""
        DL = ""
        GZZT = ""
        JLR = ""
        FXWT = ""
        RQ.Value = Date
        BC.Locked = False
        SBMC.Locked = False
        DY.Locked = False
        DL.Locked = False
        GZZT.Locked = False
        SFZC.Locked = False
        YWYC.Locked = False
        JLR.Locked = False
        FXWT.Locked = False
        CMDSave.Enabled = False
        CMDDel.Enabled = False
        cmdEdit.Enabled = False
        flag = False
End Sub

Private Sub CMDSave_Click()
   
   If flag = False Then
    Result = MsgBox("您确实要保存吗？", vbYesNo)
        If Result = 6 Then
            rrq = Format$(RQ, "yyyy-MM-dd")
            SQL = "insert 设备运行检查状况记录表(日期,班次,设备名称,电压,电流,工作状态,控制系统是否正常,运转有无异常,发现的问题,记录人) values ('" & rrq & "','" & BC & "','" & SBMC & "'," & DY & "," & DL & ",'" & GZZT & "','" & SFZC & "','" & YWYC & "','" & FXWT & "','" & JLR & "')"
            Set rs = ConnWZ.Execute(SQL)
        End If
    End If
    If flag = True Then
        Result = MsgBox("您确实要保存吗？", vbYesNo)
        If Result = 6 Then
            SQL = "update 设备运行检查状况记录表 set 日期='" & rrq & "',班次='" & BC & "',设备名称='" & SBMC & "',电压=" & DY & ",电流=" & DL & ",工作状态='" & GZZT & "',控制系统是否正常='" & SFZC & "',运转有无异常='" & YWYC & "',发现的问题='" & FXWT & "',记录人='" & JLR & "' where 序号=" & PBH & ""
            Set Rsrkpd = ConnWZ.Execute(SQL)
            CMDSave.Enabled = False
        End If
    End If
End Sub
Private Sub CMDSearch_Click()
     If Text13.Text = "" Then
        MsgBox "班次不能为空！"
        Exit Sub
     End If
     If Check1.Value = 1 Then
         Adodc1.RecordSource = "select * from 设备运行检查状况记录表 where 班次='" & Text13.Text & "'"
         Adodc1.Refresh
     End If
End Sub

Private Sub DataGrid1_Click()
    On Error Resume Next
    SQL = "select * from 设备运行检查状况记录表"
    Set rs = ConnWZ.Execute(SQL)
    If rs.EOF Then Exit Sub
    PBH = Adodc1.Recordset.Fields("序号")
    If Err = 13 Then
        MsgBox "您进行了误操作，请重新进入该系统！"
    End If
End Sub

Private Sub DL_Change()
    If IsNumeric(SL) = False Then
      MsgBox "请输入数字！"
      SL = ""
    End If
End Sub

Private Sub DY_Change()
    If IsNumeric(SL) = False Then
      MsgBox "请输入数字！"
      SL = ""
    End If
End Sub

Private Sub Form_Load()
On Error Resume Next
    For Each TextBox In Me.Controls
        TextBox.Font.Name = "宋体"
        TextBox.Font.Size = 9
    Next
    PBH = 0
    flag = False
    'SJ.Value = Time$
    'RQ.Value = Date
    RQ.Value = Now
    CMDSave.Enabled = False
    cmdEdit.Enabled = False
    CMDDel.Enabled = False
    Label6.Caption = Date
    SFZC.AddItem "是"
    SFZC.AddItem "否"
    YWYC.AddItem "有"
    YWYC.AddItem "无"
    'Combo1.Visible = False
    'Frame8.Visible = False
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
 flag = False
 If PreviousTab = 0 Then
    Check1.Value = 0
    CMDSave.Enabled = False
    cmdEdit.Enabled = False
    CMDDel.Enabled = False
    Adodc1.RecordSource = "select * from 设备运行检查状况记录表"
    Adodc1.Refresh
 End If
 If PreviousTab = 1 Then
    Text13.Visible = False
    List1.Visible = False
'    Frame8.Visible = False
 '   Combo1.Visible = False
    If PBH <> "0" Then
        SQL = "select * from 设备运行检查状况记录表 where 序号=" & PBH & ""
        Set rs = ConnWZ.Execute(SQL)
        RQ.Value = rs("日期")
        BC = rs("班次")
        SBMC = rs("设备名称")
        DY = rs("电压")
        DL = rs("电流")
        GZZT = rs("工作状态")
        SFZC = rs("控制系统是否正常")
        YWYC = rs("运转有无异常")
        FXWT = rs("发现的问题")
        JLR = rs("记录人")
        
        BC.Locked = True
        SBMC.Locked = True
        DY.Locked = True
        DL.Locked = True
        GZZT.Locked = True
        SFZC.Locked = True
        YWYC.Locked = True
        JLR.Locked = True
        FXWT.Locked = True
        CMDSave.Enabled = False
        cmdEdit.Enabled = True
        CMDDel.Enabled = True
    End If
        
 End If
End Sub

Private Sub Timer1_Timer()
    Label6.Caption = Now
End Sub

Private Sub List1_MouseDown(Button As Integer, shift As Integer, X As Single, Y As Single)
    i = List1.ListIndex
    Text13 = List1.List(i)
End Sub

Private Sub Text13_Change()
    Str1 = Text13.Text
    Cont = Len(Str1)
    For i = 0 To List1.ListCount - 1
       If Left$(List1.List(i), Cont) = Str1 Then
         List1.ListIndex = i
         GoTo 100
       End If
    Next
100:
End Sub



Private Sub XHDE_LostFocus()
    If IsNumeric(XHDE) = False Then
      MsgBox "请输入数字！"
      XHDE = ""
    End If
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -