⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 form6.frm

📁 一家大型电脑公司硬件销售管理系统 vb编写 值得写数据库人员参考借鉴
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
            End If
        Else
            MsgBox "当前用户已存在！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"

            Me.Text2.Text = ""
            Me.Text3.Text = ""
            Me.Text4.Text = ""
            Me.Text5.Text = ""
            Me.Text6.Text = ""
            Me.Text7.Text = ""
            Me.Text8.Text = ""
            Me.Text2.SetFocus
            Exit Sub
        End If
    Wend
go1:
    If Me.Text3.Text = "" Then Me.Text3.Text = 0
    If Me.Text4.Text = "" Then Me.Text4.Text = 0
    If Me.Text5.Text = "" Then
        MsgBox "请输入员工工作日期！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.Text5.SetFocus
        Exit Sub
    End If
    If Me.Text6.Text = "" Then
        Me.Text6.SetFocus
        MsgBox "请输入员工出生日期！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Exit Sub
    End If
    If Me.Text7.Text = "" Then
        MsgBox "请输入员工家庭住址！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.Text7.SetFocus
        Exit Sub
    End If
    If Me.Text8.Text = "" Then
        MsgBox "请输入员工E-mail！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.Text8.SetFocus
        Exit Sub
    End If

    If Me.Command3.Caption = "确定添加" Then
        Me.Adodc1.Recordset.AddNew
    End If
    Me.Adodc1.Recordset("工号") = Me.Text1.Text
    Me.Adodc1.Recordset("员工姓名") = Me.Text2.Text
    Me.Adodc1.Recordset.Fields("联系电话") = Me.Text3.Text
    Me.Adodc1.Recordset.Fields("移动电话") = Me.Text4.Text
    Me.Adodc1.Recordset.Fields("工作日期") = Me.Text5.Text
    Me.Adodc1.Recordset.Fields("出生日期") = Me.Text6.Text
    Me.Adodc1.Recordset.Fields("家庭住址") = Me.Text7.Text
    Me.Adodc1.Recordset.Fields("E-mail") = Me.Text8.Text
    Me.Adodc1.Recordset.Update
    Me.Text2.Text = ""
    Me.Text3.Text = ""
    Me.Text4.Text = ""
    Me.Text5.Text = ""
    Me.Text6.Text = ""
    Me.Text7.Text = ""
    Me.Text8.Text = ""
    Me.Text2.SetFocus
    MsgBox "记录已操作！", vbOKOnly + 48, ""

    Exit Sub

    'err2:
    'MsgBox "输入错误，请注意！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
End Sub

Private Sub Command4_Click()
    Me.Command6.Enabled = True
    Me.Command7.Enabled = True
    Me.Command4.Enabled = False
    Me.Command5.Enabled = False
    Me.Adodc1.Recordset.MoveFirst
    Me.Text1.Text = Me.Adodc1.Recordset("工号")
    Me.Text2.Text = Me.Adodc1.Recordset("员工姓名")
    Me.Text3.Text = Me.Adodc1.Recordset("联系电话")
    Me.Text4.Text = Me.Adodc1.Recordset("移动电话")
    Me.Text5.Text = Me.Adodc1.Recordset("工作日期")
    Me.Text6.Text = Me.Adodc1.Recordset("出生日期")
    Me.Text7.Text = Me.Adodc1.Recordset("家庭住址")
    Me.Text8.Text = Me.Adodc1.Recordset("E-mail")
End Sub

Private Sub Command5_Click()
    Me.Command6.Enabled = True
    Me.Command7.Enabled = True
    Me.Adodc1.Recordset.MovePrevious
    If Me.Adodc1.Recordset.BOF Then
        Me.Adodc1.Recordset.MoveNext
        Me.Command5.Enabled = False
        Me.Command4.Enabled = False

    Else

        Me.Text1.Text = Me.Adodc1.Recordset("工号")
        Me.Text2.Text = Me.Adodc1.Recordset("员工姓名")
        Me.Text3.Text = Me.Adodc1.Recordset("联系电话")
        Me.Text4.Text = Me.Adodc1.Recordset("移动电话")
        Me.Text5.Text = Me.Adodc1.Recordset("工作日期")
        Me.Text6.Text = Me.Adodc1.Recordset("出生日期")
        Me.Text7.Text = Me.Adodc1.Recordset("家庭住址")
        Me.Text8.Text = Me.Adodc1.Recordset("E-mail")
    End If
End Sub

Private Sub Command6_Click()
    On errer GoTo err3
    Me.Command4.Enabled = True
    Me.Command5.Enabled = True
    Me.Adodc1.Recordset.MoveNext
    If Me.Adodc1.Recordset.EOF Then
        Me.Adodc1.Recordset.MovePrevious
        Me.Command6.Enabled = False
        Me.Command7.Enabled = False
        Me.Command5.SetFocus
    Else

        Me.Text1.Text = Me.Adodc1.Recordset("工号")
        Me.Text2.Text = Me.Adodc1.Recordset("员工姓名")
        Me.Text3.Text = Me.Adodc1.Recordset("联系电话")
        Me.Text4.Text = Me.Adodc1.Recordset("移动电话")
        Me.Text5.Text = Me.Adodc1.Recordset("工作日期")
        Me.Text6.Text = Me.Adodc1.Recordset("出生日期")
        Me.Text7.Text = Me.Adodc1.Recordset("家庭住址")
        Me.Text8.Text = Me.Adodc1.Recordset("E-mail")
    End If
    Exit Sub
err3:
    MsgBox "", vbOKOnly, "金恒生计算机硬件公司管理系统"
End Sub

Private Sub Command7_Click()
    Me.Command4.Enabled = True
    Me.Command5.Enabled = True
    Me.Adodc1.Recordset.MoveLast
    Me.Command7.Enabled = False
    Me.Command6.Enabled = False
    Me.Text1.Text = Me.Adodc1.Recordset("工号")
    Me.Text2.Text = Me.Adodc1.Recordset("员工姓名")
    Me.Text3.Text = Me.Adodc1.Recordset("联系电话")
    Me.Text4.Text = Me.Adodc1.Recordset("移动电话")
    Me.Text5.Text = Me.Adodc1.Recordset("工作日期")
    Me.Text6.Text = Me.Adodc1.Recordset("出生日期")
    Me.Text7.Text = Me.Adodc1.Recordset("家庭住址")
    Me.Text8.Text = Me.Adodc1.Recordset("E-mail")
End Sub

Private Sub Command8_Click()
    Me.Command3.Enabled = False
    Me.Command8.Enabled = False
    Me.Command1.Enabled = True
    Me.Command2.Enabled = True
    Me.Command9.Enabled = True
    Me.ComFind.Enabled = True
    Me.TxtFind.Enabled = True
    Me.CmdC.Enabled = True
    Me.CmdFind.Enabled = True
    Me.Text1.Enabled = False
    Me.Text2.Enabled = False
    Me.Text3.Enabled = False
    Me.Text4.Enabled = False
    Me.Text5.Enabled = False
    Me.Text6.Enabled = False
    Me.Text7.Enabled = False
    Me.Text8.Enabled = False
    Me.Adodc1.Recordset.MoveFirst
    Me.Text1.Text = Me.Adodc1.Recordset("工号")
    Me.Text2.Text = Me.Adodc1.Recordset("员工姓名")
    Me.Text3.Text = Me.Adodc1.Recordset("联系电话")
    Me.Text4.Text = Me.Adodc1.Recordset("移动电话")
    Me.Text5.Text = Me.Adodc1.Recordset("工作日期")
    Me.Text6.Text = Me.Adodc1.Recordset("出生日期")
    Me.Text7.Text = Me.Adodc1.Recordset("家庭住址")
    Me.Text8.Text = Me.Adodc1.Recordset("E-mail")
End Sub

Private Sub Command9_Click()
    Me.Command3.Caption = "确定修改"
    Me.Command9.Enabled = False
    Me.Command1.Enabled = False
    Me.Command2.Enabled = False
    Me.CmdC.Enabled = False
    Me.ComFind.Enabled = False
    Me.CmdFind.Enabled = False
    Me.TxtFind.Enabled = False
    Me.Command8.Enabled = True
    Me.Command3.Enabled = True
    Me.Text1.Enabled = False
    Me.Text2.Enabled = True
    Me.Text3.Enabled = True
    Me.Text4.Enabled = True
    Me.Text5.Enabled = True
    Me.Text6.Enabled = True
    Me.Text7.Enabled = True
    Me.Text8.Enabled = True
    Me.Text2.SetFocus
    Me.Text1.Text = Me.Adodc1.Recordset("工号")
    Me.Text2.Text = Me.Adodc1.Recordset("员工姓名")
    Me.Text3.Text = Me.Adodc1.Recordset("联系电话")
    Me.Text4.Text = Me.Adodc1.Recordset("移动电话")
    Me.Text5.Text = Me.Adodc1.Recordset("工作日期")
    Me.Text6.Text = Me.Adodc1.Recordset("出生日期")
    Me.Text7.Text = Me.Adodc1.Recordset("家庭住址")
    Me.Text8.Text = Me.Adodc1.Recordset("E-mail")
End Sub

Private Sub Form_Load()
    Dim Str As String '定义
    Dim StrConnect As String


    StrConnect = App.Path
    If Right(StrConnect, 1) <> "\" Then StrConnect = StrConnect + "\"
    StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & StrConnect & "\data\kji.bgh"
    Adodc1.ConnectionString = StrConnect
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "SELECT * FROM [YGXM] order by 工号"
    Adodc1.Refresh
    Me.Top = 0
    Me.Left = 0
    Me.Width = Screen.Width
    Me.Height = 6200
    Me.DataGrid1.Enabled = False
    Me.Text1.Text = Me.Adodc1.Recordset("工号")
    Me.Text2.Text = Me.Adodc1.Recordset("员工姓名")
    Me.Text3.Text = Me.Adodc1.Recordset("联系电话")
    Me.Text4.Text = Me.Adodc1.Recordset("移动电话")
    Me.Text5.Text = Me.Adodc1.Recordset("工作日期")
    Me.Text6.Text = Me.Adodc1.Recordset("出生日期")
    Me.Text7.Text = Me.Adodc1.Recordset("家庭住址")
    Me.Text8.Text = Me.Adodc1.Recordset("E-mail")
    Me.ComFind.AddItem "工号"
    Me.ComFind.AddItem "员工姓名"
    Me.ComFind.AddItem "联系电话"
    Me.ComFind.AddItem "移动电话"
    'Me.ComFind.AddItem "工作日期"
    'Me.ComFind.AddItem "出生日期"
    Me.ComFind.AddItem "家庭住址"
    'Me.ComFind.AddItem "E-Mail"
    Me.Text1.Enabled = False
    Me.Text2.Enabled = False
    Me.Text3.Enabled = False
    Me.Text4.Enabled = False
    Me.Text5.Enabled = False
    Me.Text6.Enabled = False
    Me.Text7.Enabled = False
    Me.Text8.Enabled = False
    Me.Command3.Enabled = False
    Me.Command8.Enabled = False

    Me.Adodc1.Visible = False
    Me.Adodc2.Visible = False
End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim strValid As String
    strValid = "0123456789"
    If KeyAscii > 26 Then
        If InStr(strValid, Chr(KeyAscii)) = 0 Then
            KeyAscii = 0
        End If
    End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
    Dim strValid As String
    strValid = "0123456789-"
    If KeyAscii > 26 Then
        If InStr(strValid, Chr(KeyAscii)) = 0 Then
            KeyAscii = 0
        End If
    End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
    Dim strValid As String
    strValid = "0123456789"
    If KeyAscii > 26 Then
        If InStr(strValid, Chr(KeyAscii)) = 0 Then
            KeyAscii = 0
        End If
    End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
    Dim strValid As String
    strValid = "-0123456789"
    If KeyAscii > 26 Then
        If InStr(strValid, Chr(KeyAscii)) = 0 Then
            KeyAscii = 0
        End If
    End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
    Dim strValid As String
    strValid = "-0123456789"
    If KeyAscii > 26 Then
        If InStr(strValid, Chr(KeyAscii)) = 0 Then
            KeyAscii = 0
        End If
    End If
End Sub

Private Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim f As Integer
    f = Len(Me.Text5.Text)
    If f = 10 Then
        Me.Text6.SetFocus
    End If
End Sub

Private Sub Text6_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim f, FI As Integer
    f = Len(Me.Text6.Text)
    If f = 10 Then
        Me.Text7.SetFocus
    End If
End Sub

Private Sub TxtFind_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then CmdFind_Click
End Sub
'统计结果：
'    注释共：7行
123

⌨️ 快捷键说明

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