frmdataenv.frm

vb写得进销存

            ImageIndex      =   1
            Style           =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "货品分类"
            ImageIndex      =   1
            Style           =   2
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "计量单位"
            ImageIndex      =   1
            Style           =   2
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "客户分类"
            ImageIndex      =   1
            Style           =   2
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "客户性质"
            ImageIndex      =   1
            Style           =   2
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "商标品牌"
            ImageIndex      =   1
            Style           =   2
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "支付方式"
            ImageIndex      =   1
            Style           =   2
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   795
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6555
      _ExtentX        =   11562
      _ExtentY        =   1402
      ButtonWidth     =   1032
      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   1
            Style           =   3
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "加入"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            ImageIndex      =   5
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
End
Attribute VB_Name = "frmDataCfg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'13
Private Sub Form_Load()
    ADO.ConnectionString = g_cnnStr
End Sub

Private Sub tb2_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo eH
    tb2.Tag = CStr(Button.Index)
    Select Case Button.Index
        Case 1  '产品产地
            g_SQL = "select * from 产品产地"
        Case 2  '地区设置
            g_SQL = "select * from 地区设置"
        Case 3  '发票类型
            g_SQL = "select * from 发票类型"
        Case 4  '货品分类
            g_SQL = "select * from 货品分类"
        Case 5  '计量单位
            g_SQL = "select * from 计量单位"
        Case 6  '客户分类
            g_SQL = "select * from 客户分类"
        Case 7  '客户性质
            g_SQL = "select * from 客户性质"
        Case 8  '商标品牌
            g_SQL = "select * from 商标品牌"
        Case 9  '支付方式
            g_SQL = "select * from 支付方式"
    End Select
            ADO.RecordSource = g_SQL
            ADO.Refresh
            Set DG.DataSource = ADO
            DG.Refresh
Exit Sub
eH:
    MsgBox em & vbNewLine & "错误号:1301" & vbNewLine & "错误描述:" & Err.Description

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo eH
    Dim InputStr As String
    Select Case Button.Caption
        Case "退出"
            Unload Me
        Case "加入"
            If tb2.Tag = "" Then Exit Sub
            InputStr = InputBox("请输入要加入的类型描述:", ADO.Recordset.Fields(0).Name)
            If InputStr = "" Then Exit Sub
            Set DG.DataSource = Nothing
            ADO.Recordset.AddNew
            Select Case Button.Index
                Case 1  '产品产地
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 2  '地区设置
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 3  '发票类型
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 4  '货品分类
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 5  '计量单位
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 6  '客户分类
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 7  '客户性质
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 8  '商标品牌
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 9  '支付方式
                    ADO.Recordset.Fields(0).Value = InputStr
            End Select
            ADO.Recordset.Update
            ADO.Refresh
            Set DG.DataSource = ADO
        Case "删除"
            If ADO.Recordset.EOF Then Exit Sub
            If tb2.Tag = "" Then Exit Sub
            If MsgBox("您确信要删除该类型描述吗?", vbYesNo + vbQuestion, "确认删除操作") = vbYes Then
                Set DG.DataSource = Nothing
                ADO.Recordset.Delete
                ADO.Recordset.Update
                ADO.Refresh
                Set DG.DataSource = ADO
            End If
        Case "修改"
            If tb2.Tag = "" Then Exit Sub
            InputStr = InputBox("请修改类型描述:", ADO.Recordset.Fields(0).Name, DG.Text)
            If InputStr = "" Then Exit Sub
            Set DG.DataSource = Nothing
            Select Case Button.Index
                Case 1  '产品产地
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 2  '地区设置
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 3  '发票类型
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 4  '货品分类
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 5  '计量单位
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 6  '客户分类
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 7  '客户性质
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 8  '商标品牌
                    ADO.Recordset.Fields(0).Value = InputStr
                Case 9  '支付方式
                    ADO.Recordset.Fields(0).Value = InputStr
            End Select
            ADO.Recordset.Update
            ADO.Refresh
            Set DG.DataSource = ADO
    End Select
Exit Sub
eH:
    MsgBox em & vbNewLine & "错误号:1302" & vbNewLine & "错误描述:" & Err.Description

End Sub

Private Sub UnenableButton()
    Dim i As Integer
    For i = 0 To tb2.Buttons.Count
        tb2.Buttons(i).Enabled = False
    Next
End Sub