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

📄 form4.frm

📁 电脑公司硬件销售管理系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
End Sub

Private Sub ComAdd_Click()
    Me.CmdOk.Enabled = True
    Me.CmdEnd.Enabled = True
    Me.CmdOk.Caption = "确认添加"
    Me.ComADD.Enabled = False
    Me.ComAmend.Enabled = False
    Me.ComDel.Enabled = False
    Me.ComFrist.Enabled = False
    Me.ComLast.Enabled = False
    Me.ComNext.Enabled = False
    Me.ComPrevious.Enabled = False

    Me.TxtAddress.Text = ""
    Me.TxtCD.Text = ""
    Me.TxtCPU.Text = ""
    Me.TxtDisplay.Text = ""
    Me.TxtFDisk.Text = ""
    Me.TxtHDisk.Text = ""
    Me.TxtKeyboard.Text = ""
    Me.TxtMainB.Text = ""
    Me.TxtMBox.Text = ""
    Me.TxtMemory.Text = ""
    Me.TxtMoney.Text = ""
    Me.TxtName.Text = ""
    Me.TxtOther.Text = ""
    Me.TxtPhone.Text = ""
    Me.TxtPrint.Text = ""
    Me.TxtScanner.Text = ""
    Me.TxtShow.Text = ""
    Me.TxtSoundB.Text = ""
    Me.TxtVoice.Text = ""


    Me.TxtAddress.Enabled = True
    Me.TxtCD.Enabled = True
    Me.TxtCPU.Enabled = True
    Me.TxtDisplay.Enabled = True
    Me.TxtFDisk.Enabled = True
    Me.TxtHDisk.Enabled = True
    Me.TxtKeyboard.Enabled = True
    Me.TxtMainB.Enabled = True
    Me.TxtMBox.Enabled = True
    Me.TxtMemory.Enabled = True
    Me.TxtMoney.Enabled = True
    Me.TxtName.Enabled = True
    Me.TxtOther.Enabled = True
    Me.TxtPhone.Enabled = True
    Me.TxtPrint.Enabled = True
    Me.TxtScanner.Enabled = True
    Me.TxtShow.Enabled = True
    Me.TxtSoundB.Enabled = True
    Me.TxtVoice.Enabled = True
    Me.TxtName.SetFocus
End Sub

Private Sub ComAmend_Click()
    Me.CmdOk.Enabled = True
    Me.CmdEnd.Enabled = True
    Me.CmdOk.Caption = "确认修改"
    Me.ComADD.Enabled = False
    Me.ComAmend.Enabled = False
    Me.ComDel.Enabled = False
    Me.ComFrist.Enabled = False
    Me.ComLast.Enabled = False
    Me.ComNext.Enabled = False
    Me.ComPrevious.Enabled = False
    Me.TxtAddress.Enabled = True
    Me.TxtCD.Enabled = True
    Me.TxtCPU.Enabled = True
    Me.TxtDisplay.Enabled = True
    Me.TxtFDisk.Enabled = True
    Me.TxtHDisk.Enabled = True
    Me.TxtKeyboard.Enabled = True
    Me.TxtMainB.Enabled = True
    Me.TxtMBox.Enabled = True
    Me.TxtMemory.Enabled = True
    Me.TxtMoney.Enabled = True
    Me.TxtName.Enabled = True
    Me.TxtOther.Enabled = True
    Me.TxtPhone.Enabled = True
    Me.TxtPrint.Enabled = True
    Me.TxtScanner.Enabled = True
    Me.TxtShow.Enabled = True
    Me.TxtSoundB.Enabled = True
    Me.TxtVoice.Enabled = True
    Me.TxtName.SetFocus
End Sub

Private Sub ComDel_Click()
    On Error GoTo err1
    Dim BOOK1, BOOK2, BOOK3 As Variant
    BOOK1 = Me.Adodc1.Recordset.Bookmark
    Me.Adodc1.Recordset.MoveFirst
    BOOK2 = Me.Adodc1.Recordset.Bookmark
    Me.Adodc1.Recordset.MoveLast
    BOOK3 = Me.Adodc1.Recordset.Bookmark
    If BOOK2 = BOOK3 Then
        MsgBox "Sorry,非法操作！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
        Exit Sub
    End If
    Me.Adodc1.Recordset.Bookmark = BOOK1
    Dim intAnswer As Integer
    intAnswer = MsgBox("确认删除当前记录吗?", vbYesNo + vbQuestion, "金恒生计算机硬件公司管理系统")
    If intAnswer = vbYes Then
        With Me.Adodc1.Recordset
            .Delete
            .UpdateBatch
            If .RecordCount <> 0 Then
                .MoveFirst
            End If
        End With
    End If
    Me.Adodc1.Recordset.MoveFirst
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtCD.Text = Me.Adodc1.Recordset("光驱")
    Me.TxtCPU.Text = Me.Adodc1.Recordset("cpu")
    Me.TxtDisplay.Text = Me.Adodc1.Recordset("显示器")
    Me.TxtFDisk.Text = Me.Adodc1.Recordset("软驱")
    Me.TxtHDisk.Text = Me.Adodc1.Recordset("硬盘")
    Me.TxtKeyboard.Text = Me.Adodc1.Recordset("键鼠")
    Me.TxtMainB.Text = Me.Adodc1.Recordset("主板")
    Me.TxtMBox.Text = Me.Adodc1.Recordset("机箱")
    Me.TxtMemory.Text = Me.Adodc1.Recordset("内存")
    Me.TxtMoney.Text = Me.Adodc1.Recordset("总计")
    Me.TxtName.Text = Me.Adodc1.Recordset("客户姓名")
    Me.TxtOther.Text = Me.Adodc1.Recordset("其它")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtPrint.Text = Me.Adodc1.Recordset("打印机")
    Me.TxtScanner.Text = Me.Adodc1.Recordset("扫描仪")
    Me.TxtShow.Text = Me.Adodc1.Recordset("显卡")
    Me.TxtSoundB.Text = Me.Adodc1.Recordset("音箱")
    Me.TxtVoice.Text = Me.Adodc1.Recordset("声卡")

    Exit Sub
err1:
    MsgBox "有错误发生！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"

End Sub

Private Sub ComFrist_Click()
    Me.ComFrist.Enabled = False
    Me.ComPrevious.Enabled = False
    Me.ComNext.Enabled = True
    Me.ComLast.Enabled = True
    Me.Adodc1.Recordset.MoveFirst
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtCD.Text = Me.Adodc1.Recordset("光驱")
    Me.TxtCPU.Text = Me.Adodc1.Recordset("cpu")
    Me.TxtDisplay.Text = Me.Adodc1.Recordset("显示器")
    Me.TxtFDisk.Text = Me.Adodc1.Recordset("软驱")
    Me.TxtHDisk.Text = Me.Adodc1.Recordset("硬盘")
    Me.TxtKeyboard.Text = Me.Adodc1.Recordset("键鼠")
    Me.TxtMainB.Text = Me.Adodc1.Recordset("主板")
    Me.TxtMBox.Text = Me.Adodc1.Recordset("机箱")
    Me.TxtMemory.Text = Me.Adodc1.Recordset("内存")
    Me.TxtMoney.Text = Me.Adodc1.Recordset("总计")
    Me.TxtName.Text = Me.Adodc1.Recordset("客户姓名")
    Me.TxtOther.Text = Me.Adodc1.Recordset("其它")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtPrint.Text = Me.Adodc1.Recordset("打印机")
    Me.TxtScanner.Text = Me.Adodc1.Recordset("扫描仪")
    Me.TxtShow.Text = Me.Adodc1.Recordset("显卡")
    Me.TxtSoundB.Text = Me.Adodc1.Recordset("音箱")
    Me.TxtVoice.Text = Me.Adodc1.Recordset("声卡")

End Sub

Private Sub ComLast_Click()
    Me.ComLast.Enabled = False
    Me.ComNext.Enabled = False
    Me.ComFrist.Enabled = True
    Me.ComPrevious.Enabled = True
    Me.Adodc1.Recordset.MoveLast

    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtCD.Text = Me.Adodc1.Recordset("光驱")
    Me.TxtCPU.Text = Me.Adodc1.Recordset("cpu")
    Me.TxtDisplay.Text = Me.Adodc1.Recordset("显示器")
    Me.TxtFDisk.Text = Me.Adodc1.Recordset("软驱")
    Me.TxtHDisk.Text = Me.Adodc1.Recordset("硬盘")
    Me.TxtKeyboard.Text = Me.Adodc1.Recordset("键鼠")
    Me.TxtMainB.Text = Me.Adodc1.Recordset("主板")
    Me.TxtMBox.Text = Me.Adodc1.Recordset("机箱")
    Me.TxtMemory.Text = Me.Adodc1.Recordset("内存")
    Me.TxtMoney.Text = Me.Adodc1.Recordset("总计")
    Me.TxtName.Text = Me.Adodc1.Recordset("客户姓名")
    Me.TxtOther.Text = Me.Adodc1.Recordset("其它")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtPrint.Text = Me.Adodc1.Recordset("打印机")
    Me.TxtScanner.Text = Me.Adodc1.Recordset("扫描仪")
    Me.TxtShow.Text = Me.Adodc1.Recordset("显卡")
    Me.TxtSoundB.Text = Me.Adodc1.Recordset("音箱")
    Me.TxtVoice.Text = Me.Adodc1.Recordset("声卡")

End Sub

Private Sub ComNext_Click()
    Me.ComFrist.Enabled = True
    Me.ComPrevious.Enabled = True
    Me.Adodc1.Recordset.MoveNext
    If Me.Adodc1.Recordset.EOF Then
        Me.Adodc1.Recordset.MovePrevious
        Me.ComNext.Enabled = False
        Me.ComLast.Enabled = False
    Else
        Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
        Me.TxtCD.Text = Me.Adodc1.Recordset("光驱")
        Me.TxtCPU.Text = Me.Adodc1.Recordset("cpu")
        Me.TxtDisplay.Text = Me.Adodc1.Recordset("显示器")
        Me.TxtFDisk.Text = Me.Adodc1.Recordset("软驱")
        Me.TxtHDisk.Text = Me.Adodc1.Recordset("硬盘")
        Me.TxtKeyboard.Text = Me.Adodc1.Recordset("键鼠")
        Me.TxtMainB.Text = Me.Adodc1.Recordset("主板")
        Me.TxtMBox.Text = Me.Adodc1.Recordset("机箱")
        Me.TxtMemory.Text = Me.Adodc1.Recordset("内存")
        Me.TxtMoney.Text = Me.Adodc1.Recordset("总计")
        Me.TxtName.Text = Me.Adodc1.Recordset("客户姓名")
        Me.TxtOther.Text = Me.Adodc1.Recordset("其它")
        Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
        Me.TxtPrint.Text = Me.Adodc1.Recordset("打印机")
        Me.TxtScanner.Text = Me.Adodc1.Recordset("扫描仪")
        Me.TxtShow.Text = Me.Adodc1.Recordset("显卡")
        Me.TxtSoundB.Text = Me.Adodc1.Recordset("音箱")
        Me.TxtVoice.Text = Me.Adodc1.Recordset("声卡")
    End If
End Sub

Private Sub ComPrevious_Click()
    Me.ComLast.Enabled = True
    Me.ComNext.Enabled = True
    Me.Adodc1.Recordset.MovePrevious
    If Me.Adodc1.Recordset.BOF Then
        Me.Adodc1.Recordset.MoveNext
        Me.ComFrist.Enabled = False
        Me.ComPrevious.Enabled = False

    Else

        Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
        Me.TxtCD.Text = Me.Adodc1.Recordset("光驱")
        Me.TxtCPU.Text = Me.Adodc1.Recordset("cpu")
        Me.TxtDisplay.Text = Me.Adodc1.Recordset("显示器")
        Me.TxtFDisk.Text = Me.Adodc1.Recordset("软驱")
        Me.TxtHDisk.Text = Me.Adodc1.Recordset("硬盘")
        Me.TxtKeyboard.Text = Me.Adodc1.Recordset("键鼠")
        Me.TxtMainB.Text = Me.Adodc1.Recordset("主板")
        Me.TxtMBox.Text = Me.Adodc1.Recordset("机箱")
        Me.TxtMemory.Text = Me.Adodc1.Recordset("内存")
        Me.TxtMoney.Text = Me.Adodc1.Recordset("总计")
        Me.TxtName.Text = Me.Adodc1.Recordset("客户姓名")
        Me.TxtOther.Text = Me.Adodc1.Recordset("其它")
        Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
        Me.TxtPrint.Text = Me.Adodc1.Recordset("打印机")
        Me.TxtScanner.Text = Me.Adodc1.Recordset("扫描仪")
        Me.TxtShow.Text = Me.Adodc1.Recordset("显卡")
        Me.TxtSoundB.Text = Me.Adodc1.Recordset("音箱")
        Me.TxtVoice.Text = Me.Adodc1.Recordset("声卡")
    End If
End Sub

Private Sub ComSelect_Click()
    AllSelectForm.Show
End Sub

Private Sub Form_Load()
    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 [computer] "
    Adodc1.Refresh
    Me.Adodc1.Visible = False

    Me.Top = 0
    Me.Left = 0
    Me.Height = 4700
    Me.Width = 6550
    Me.LabDATA.Caption = Format(Date, "dddddd")
    Me.Adodc1.Recordset.MoveFirst
    Me.ComFrist.Enabled = False
    Me.ComPrevious.Enabled = False
    Me.CmdEnd.Enabled = False
    Me.CmdOk.Enabled = False
    Me.TxtAddress.Enabled = False
    Me.TxtCD.Enabled = False
    Me.TxtCPU.Enabled = False
    Me.TxtDisplay.Enabled = False
    Me.TxtFDisk.Enabled = False
    Me.TxtHDisk.Enabled = False
    Me.TxtKeyboard.Enabled = False
    Me.TxtMainB.Enabled = False
    Me.TxtMBox.Enabled = False
    Me.TxtMemory.Enabled = False
    Me.TxtMoney.Enabled = False
    Me.TxtName.Enabled = False
    Me.TxtOther.Enabled = False
    Me.TxtPhone.Enabled = False
    Me.TxtPrint.Enabled = False
    Me.TxtScanner.Enabled = False
    Me.TxtShow.Enabled = False
    Me.TxtSoundB.Enabled = False
    Me.TxtVoice.Enabled = False
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtCD.Text = Me.Adodc1.Recordset("光驱")
    Me.TxtCPU.Text = Me.Adodc1.Recordset("cpu")
    Me.TxtDisplay.Text = Me.Adodc1.Recordset("显示器")
    Me.TxtFDisk.Text = Me.Adodc1.Recordset("软驱")
    Me.TxtHDisk.Text = Me.Adodc1.Recordset("硬盘")
    Me.TxtKeyboard.Text = Me.Adodc1.Recordset("键鼠")
    Me.TxtMainB.Text = Me.Adodc1.Recordset("主板")
    Me.TxtMBox.Text = Me.Adodc1.Recordset("机箱")
    Me.TxtMemory.Text = Me.Adodc1.Recordset("内存")
    Me.TxtMoney.Text = Me.Adodc1.Recordset("总计")
    Me.TxtName.Text = Me.Adodc1.Recordset("客户姓名")
    Me.TxtOther.Text = Me.Adodc1.Recordset("其它")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtPrint.Text = Me.Adodc1.Recordset("打印机")
    Me.TxtScanner.Text = Me.Adodc1.Recordset("扫描仪")
    Me.TxtShow.Text = Me.Adodc1.Recordset("显卡")
    Me.TxtSoundB.Text = Me.Adodc1.Recordset("音箱")
    Me.TxtVoice.Text = Me.Adodc1.Recordset("声卡")
End Sub

Private Sub TxtMoney_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 TxtPhone_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 TxtPhone_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim f As Integer
    f = Len(Me.TxtPhone.Text)
    If f = 11 Then
        Me.TxtAddress.SetFocus
    End If
End Sub
'统计结果：
'    注释共：3行
123

⌨️ 快捷键说明

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