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

📄 form2.frm

📁 电脑公司硬件销售管理系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   End
   Begin VB.Label LabPhone 
      Caption         =   "联系电话："
      Height          =   255
      Left            =   2760
      TabIndex        =   3
      Top             =   600
      Width           =   1095
   End
   Begin VB.Label LabName 
      Caption         =   "同行公司："
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1215
   End
End
Attribute VB_Name = "DHForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
'  引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.dapha.net
'论坛：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By dapha.net
'整理时间：2003-8-16 12:44:00


Private Sub CmdAddNew_Click()
    Me.CmdOk.Caption = "确定添加"
    Me.CmdDel.Enabled = False
    Me.CmdPerfect.Enabled = False
    Me.CmdFirst.Enabled = False
    Me.CmdLast.Enabled = False
    Me.CmdNext.Enabled = False
    Me.CmdPrevious.Enabled = False
    Me.TxtAddress.Enabled = True
    Me.TxtCOMAddress.Enabled = True
    Me.TxtCOMPhone.Enabled = True
    Me.TxtName.Enabled = True
    Me.TxtCOMName.Enabled = True
    Me.TxtPhone.Enabled = True
    Me.TxtFtext.Enabled = False
    Me.ComName.Enabled = False
    Me.CmdFind.Enabled = False
    Me.CmdFCanel.Enabled = False

    Me.TxtAddress.Text = ""
    Me.TxtCOMAddress.Text = ""
    Me.TxtCOMPhone.Text = ""
    Me.TxtName.Text = ""
    Me.TxtCOMName.Text = ""
    Me.TxtPhone.Text = ""

    Me.TxtCOMName.SetFocus

    Me.CmdOk.Enabled = True
    Me.CmdCancel.Enabled = True

    Me.Adodc1.Recordset.MoveLast
End Sub

Private Sub CmdCancel_Click()
    Me.CmdOk.Enabled = False
    Me.CmdCancel.Enabled = False
    Me.CmdAddNew.Enabled = True
    Me.CmdDel.Enabled = True
    Me.CmdPerfect.Enabled = True
    Me.CmdFirst.Enabled = True
    Me.CmdLast.Enabled = True
    Me.CmdNext.Enabled = True
    Me.CmdPrevious.Enabled = True
    Me.CmdFCanel.Enabled = True
    Me.CmdFind.Enabled = True
    Me.TxtFtext.Enabled = True
    Me.ComName.Enabled = True

    Me.TxtAddress.Enabled = False
    Me.TxtCOMAddress.Enabled = False
    Me.TxtCOMPhone.Enabled = False
    Me.TxtName.Enabled = False
    Me.TxtCOMName.Enabled = False
    Me.TxtPhone.Enabled = False

    Me.Adodc1.Recordset.MoveFirst
    Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")
    Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")

    Me.CmdOk.Caption = "确  定"
End Sub

Private Sub CmdDel_Click()

    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.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")
    Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
    Exit Sub

End Sub

Private Sub CmdEnd_Click()
    Unload Me
End Sub

Private Sub CmdFCanel_Click()
    Me.Adodc1.Refresh
    Set Me.DataGrid1.DataSource = Adodc1
    Me.Adodc1.Recordset.MoveFirst
    Me.TxtFtext.Text = "请输入待查询内容"
    Me.ComName.Text = "请您选择"
End Sub

Private Sub CmdFind_Click()
    Dim StrConnect As String
    Dim strSQL As String
    If Me.TxtFtext.Text = "请输入待查询内容" Or Me.TxtFtext.Text = "" Then
        MsgBox "请输入查询内容！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.TxtFtext.SetFocus
        Exit Sub
    End If
    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"
    Adodc2.ConnectionString = StrConnect
    Adodc2.CommandType = adCmdText
    strSQL = "select * from [thgs] where " & Me.ComName.Text & " = " & Chr$(34) & Me.TxtFtext.Text & Chr$(34)
    Adodc2.RecordSource = strSQL
    Me.Adodc2.Refresh
    Set Me.DataGrid1.DataSource = Adodc2


End Sub

Private Sub CmdFirst_Click()

    Me.Adodc1.Recordset.MoveFirst
    Me.CmdFirst.Enabled = False
    Me.CmdPrevious.Enabled = False
    Me.CmdLast.Enabled = True
    Me.CmdNext.Enabled = True

    Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")
    Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
    If Me.CmdOk.Caption = "确定修改" Then
        Me.TxtCOMName.SetFocus
    End If

End Sub

Private Sub CmdLast_Click()
    Me.Adodc1.Recordset.MoveLast
    Me.CmdLast.Enabled = False
    Me.CmdNext.Enabled = False
    Me.CmdFirst.Enabled = True
    Me.CmdPrevious.Enabled = True

    Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")
    Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
    If Me.CmdOk.Caption = "确定修改" Then
        Me.TxtCOMName.SetFocus
    End If


End Sub

Private Sub CmdNext_Click()
    Me.Adodc1.Recordset.MoveNext
    Me.CmdFirst.Enabled = True
    Me.CmdPrevious.Enabled = True

    If Me.Adodc1.Recordset.EOF Then
        Me.Adodc1.Recordset.MovePrevious
        Me.CmdLast.Enabled = False
        Me.CmdNext.Enabled = False

    Else

        Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
        Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
        Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
        Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
        Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
        Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")
    End If
    If Me.CmdOk.Caption = "确定修改" Then
        Me.TxtCOMName.SetFocus
    End If

End Sub

Private Sub cmdOK_Click()
    If Me.TxtCOMName.Text = "" Then
        MsgBox "公司名不能为空！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.TxtCOMName.SetFocus
        Exit Sub
    End If
    If Me.TxtCOMPhone.Text = "" Then
        MsgBox "公司电话不能为空！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.TxtCOMPhone.SetFocus
        Exit Sub
    End If
    If Me.TxtPhone.Text = "" Then Me.TxtPhone.Text = "0"
    If Me.TxtName.Text = "" Then
        Me.TxtName.Text = "无"

    End If
    If Me.TxtCOMAddress.Text = "" Then
        MsgBox "请输入公司地址！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.TxtCOMAddress.SetFocus
        Exit Sub
    End If
    If Me.TxtAddress.Text = "" Then
        Me.TxtAddress.Text = "无"
    End If

    If Me.CmdOk.Caption = "确定添加" Then
        Me.Adodc1.Recordset.AddNew
    End If
    Me.Adodc1.Recordset("同行公司") = Me.TxtCOMName.Text
    Me.Adodc1.Recordset("公司电话") = Me.TxtCOMPhone.Text
    Me.Adodc1.Recordset("公司地址") = Me.TxtCOMAddress.Text
    Me.Adodc1.Recordset("联系人") = Me.TxtName.Text
    Me.Adodc1.Recordset("联系电话") = Me.TxtPhone.Text
    Me.Adodc1.Recordset("联系地址") = Me.TxtAddress.Text
    Me.Adodc1.Recordset.Update
    If Me.Adodc1.Recordset.EOF Then

        Me.Adodc1.Recordset.MoveFirst
        Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
        Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
        Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
        Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
        Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
        Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")

    Else
        Me.Adodc1.Recordset.MoveNext
        If Me.Adodc1.Recordset.EOF Then
            Me.Adodc1.Recordset.MoveFirst
        End If
        Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
        Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
        Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
        Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
        Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
        Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")
    End If
    If Me.CmdOk.Caption = "确定添加" Then
        Me.TxtAddress.Text = ""
        Me.TxtCOMAddress.Text = ""
        Me.TxtCOMName.Text = ""
        Me.TxtCOMPhone.Text = ""
        Me.TxtName.Text = ""
        Me.TxtPhone.Text = ""
    End If
    Me.TxtCOMName.SetFocus
End Sub

Private Sub CmdPerfect_Click()
    Me.CmdOk.Caption = "确定修改"
    Me.CmdOk.Enabled = True
    Me.CmdCancel.Enabled = True
    Me.CmdAddNew.Enabled = False
    Me.CmdDel.Enabled = False
    Me.TxtAddress.Enabled = True
    Me.TxtCOMAddress.Enabled = True
    Me.TxtCOMPhone.Enabled = True
    Me.TxtName.Enabled = True
    Me.TxtCOMName.Enabled = True
    Me.TxtPhone.Enabled = True
    Me.TxtFtext.Enabled = False
    Me.ComName.Enabled = False
    Me.CmdFind.Enabled = False
    Me.CmdFCanel.Enabled = False


    Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
    Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")


End Sub

Private Sub CmdPrevious_Click()
    Me.Adodc1.Recordset.MovePrevious
    Me.CmdNext.Enabled = True
    Me.CmdLast.Enabled = True

    If Me.Adodc1.Recordset.BOF Then
        Me.Adodc1.Recordset.MoveNext
        Me.CmdPrevious.Enabled = False
        Me.CmdFirst.Enabled = False

    Else

        Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
        Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
        Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
        Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
        Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
        Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")
    End If

    If Me.CmdOk.Caption = "确定修改" Then
        Me.TxtCOMName.SetFocus
    End If

End Sub

Private Sub CmdRef_Click()
    Me.Adodc1.Refresh
    Me.Adodc2.Refresh
    Set Me.DataGrid1.DataSource = Adodc1

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 [thgs] "
    Adodc1.Refresh
    Me.Adodc1.Visible = False
    Set Me.DataGrid1.DataSource = Adodc1

    Me.Top = 0
    Me.Left = 0
    Me.Height = 5400
    Me.Width = 9150
    Me.Adodc1.Recordset.MoveFirst
    Me.TxtCOMName.Text = Me.Adodc1.Recordset("同行公司")
    Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
    Me.TxtCOMPhone.Text = Me.Adodc1.Recordset("公司电话")
    Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
    Me.TxtName.Text = Me.Adodc1.Recordset("联系人")
    Me.TxtCOMAddress.Text = Me.Adodc1.Recordset("公司地址")

    Me.CmdOk.Enabled = False
    Me.CmdCancel.Enabled = False

    Me.TxtAddress.Enabled = False
    Me.TxtCOMAddress.Enabled = False
    Me.TxtCOMPhone.Enabled = False
    Me.TxtName.Enabled = False
    Me.TxtCOMName.Enabled = False
    Me.TxtPhone.Enabled = False

    Me.ComName.AddItem "联系人"
    Me.ComName.AddItem "联系电话"
    Me.ComName.AddItem "同行公司"
    Me.ComName.AddItem "公司电话"

    Me.Adodc2.Visible = False
End Sub


Private Sub TxtCOMPhone_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 TxtCOMPhone_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim f As Integer
    f = Len(Me.TxtCOMPhone.Text)
    If f = 11 Then
        Me.TxtName.SetFocus
    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
'统计结果：
'    注释共：1行
12

⌨️ 快捷键说明

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