frmmain.frm

收藏了太量的商品条形码库

      Top             =   600
      Width           =   2295
      _ExtentX        =   4048
      _ExtentY        =   8705
      _Version        =   393217
      HideSelection   =   0   'False
      Indentation     =   176
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      ImageList       =   "ImageList2"
      Appearance      =   1
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private OldIndex As Integer '当前TreeView选中的索引



Private Sub Form_Resize()
TV1.Left = 0
TV1.Top = Tb1.Height

Lv1.Left = TV1.Width
Lv1.Top = TV1.Top - 15
Lv1.Height = TV1.Height + 30

Me.Height = TV1.Height + Tb1.Height + 380
Me.Width = TV1.Width + Lv1.Width + 80
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim F As Form
For Each F In Forms
    Unload F
Next
End Sub

Private Sub Lv1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   Dim i As Integer
   
   Lv1.Sorted = True
   
   For i = 1 To Lv1.ColumnHeaders.Count
      Lv1.ColumnHeaders(i).Text = Lv1.ColumnHeaders(i).Tag
   Next i

   If ColumnHeader.Index = CInt(Lv1.Tag) Then
      If Lv1.SortOrder = lvwAscending Then
         Lv1.SortOrder = lvwDescending
      Else
         Lv1.SortOrder = lvwAscending
      End If
   End If
   
   If Lv1.SortOrder = lvwDescending Then
      ColumnHeader.Text = ColumnHeader.Tag & " ▽"
   Else
      ColumnHeader.Text = ColumnHeader.Tag & " △"
   End If
   
   Lv1.Tag = ColumnHeader.Index
   Lv1.SortKey = ColumnHeader.Index - 1
   Lv1.Sorted = False
End Sub

Private Sub Lv1_DblClick()
If Lv1.ListItems.Count > 0 Then
    With FrmCode
    If ShowCode(Lv1, .LbTitle, .LbArea, .BarCode1) = True Then
        .FraCode(0).Visible = True
        .FraCode(1).Visible = False
        .CmdYes.Visible = False
        .CmdNo.Caption = "关闭(&C)"
        .Height = 3050
        .Width = 3930
        .Show 1
    End If
    End With
End If
End Sub

Private Sub Lv1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then
      If Lv1.ListItems.Count > 0 Then
         Tb1.Buttons("EditCode").Enabled = True
         Tb1.Buttons("DelCode").Enabled = True
      End If
   End If
End Sub

Private Sub Tb1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "AddClass"
    With FrmClass
        .Caption = Button.Caption
        .Fra_Class.Caption = Button.Caption
        .Show 1
    End With
Case "EditClass"
    With FrmClass
        .Txt_Name.Text = Mid(TV1.SelectedItem.Text, 1, InStr(TV1.SelectedItem.Text, "[") - 1)
        .Txt_Name.Tag = .Txt_Name.Text
        .Txt_Name.SelStart = 0
        .Txt_Name.SelLength = Len(.Txt_Name.Text)
        .Caption = Button.Caption
        .Fra_Class.Caption = Button.Caption
        .Show 1
    End With
Case "DelClass"
    If MsgBox("你确认要删除这个类别吗？" & vbCrLf & "注意：此项操作将删除此类别下所有内容！数据将不可恢复！", 292, Me.Caption) = vbYes Then
        If DelClass(TV1, Mid(TV1.SelectedItem.Text, 1, InStr(TV1.SelectedItem.Text, "[") - 1)) = True Then
            Lv1.ListItems.Clear
            Call TV1_Click
            Call ShowTb
        End If
    End If
Case "AddCode"
    With FrmCode
        .CbType.Clear
        Call LoadType(.CbType)
        Call ComPareType(.CbType, Mid(TV1.SelectedItem.Text, 1, InStr(TV1.SelectedItem.Text, "[") - 1))
        .FraCode(0).Visible = False
        .FraCode(1).Visible = True
        .FraCode(1).Left = 120
        .FraCode(1).Tag = "Add"
        .CmdYes.Top = 1950
        .CmdNo.Top = 1950
        .CmdYes.Visible = True
        .CmdNo.Caption = "取消(&C)"
        .Height = 2500
        .Width = 3930
        .Show 1
    End With
Case "EditCode"
    If ShowEditCode(Lv1, FrmCode.TxtTitle, FrmCode.TxtArea, FrmCode.TxtBarCode) = False Then Exit Sub
    With FrmCode
        .CbType.Clear
        Call LoadType(.CbType)
        Call ComPareType(.CbType, Mid(TV1.SelectedItem.Text, 1, InStr(TV1.SelectedItem.Text, "[") - 1))
        .FraCode(0).Visible = False
        .FraCode(1).Visible = True
        .FraCode(1).Left = 120
        .FraCode(1).Tag = "Edit"
        .CmdYes.Top = 1950
        .CmdNo.Top = 1950
        .CmdYes.Visible = True
        .CmdNo.Caption = "取消(&C)"
        .Height = 2500
        .Width = 3930
        .Tag = Lv1.SelectedItem.Text
        .Show 1
    End With
Case "DelCode"
If MsgBox("你确认要删除该条形码信息吗？", 292, Me.Caption) = vbYes Then
    If DelCode(TV1, Lv1, CLng(Lv1.SelectedItem.Text)) = False Then
        MsgBox "删除失败！", 16, "错误"
    End If
End If
Case "Find"
    FrmFind.CbType.Clear
    FrmFind.CbType.AddItem "全部"
    Call LoadType(FrmFind.CbType)
    FrmFind.CbType.ListIndex = 0
    FrmFind.Show 1
Case "About"
    FrmAbout.Show 1
Case "Quit"
    Unload Me
End Select
End Sub

Private Sub ShowTb()
If TV1.Nodes.Count < 1 Then Exit Sub
Dim StrKey As String
StrKey = TV1.SelectedItem.Key
StrKey = Mid(StrKey, 1, InStr(StrKey, "_") - 1)
With Tb1
    Select Case StrKey
    Case "SkyGz"
        .Buttons("AddClass").Enabled = True
        .Buttons("EditClass").Enabled = False
        .Buttons("DelClass").Enabled = False
        .Buttons("AddCode").Enabled = False
        .Buttons("EditCode").Enabled = False
        .Buttons("DelCode").Enabled = False
    Case "Class"
        .Buttons("AddClass").Enabled = True
        .Buttons("EditClass").Enabled = True
        .Buttons("DelClass").Enabled = True
        .Buttons("AddCode").Enabled = True
        .Buttons("EditCode").Enabled = False
        .Buttons("DelCode").Enabled = False
    End Select
End With
End Sub


Private Sub TV1_Click()
If TV1.Nodes.Count < 1 Then Exit Sub
If TV1.SelectedItem.Index = OldIndex Then Exit Sub
Call ShowList
OldIndex = TV1.SelectedItem.Index
End Sub
Public Sub ShowList()
Dim StrKey As String
StrKey = TV1.SelectedItem.Key
StrKey = Mid(StrKey, 1, InStr(StrKey, "_") - 1)

Select Case StrKey
Case "SkyGz"
    Call GetList(Lv1, "0")
Case "Class"
    Call GetList(Lv1, Replace(TV1.SelectedItem.Key, StrKey & "_", ""))
End Select
End Sub
Private Sub TV1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40 Then Call ShowTb
End Sub

Private Sub TV1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ShowTb
End Sub