simplecodefind.frm

来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 293 行

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Object = "{40D97E01-4259-4398-B597-183C348B488F}#1.0#0"; "BSE.ocx"
Begin VB.Form SimpleCodeFind 
   BackColor       =   &H00800000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "货品名称速查"
   ClientHeight    =   5160
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5970
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5160
   ScaleWidth      =   5970
   StartUpPosition =   3  'Windows Default
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   4200
      TabIndex        =   5
      Top             =   0
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   2
      Top             =   0
      Width           =   2895
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确 定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   4560
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3000
      TabIndex        =   0
      Top             =   4560
      Width           =   1215
   End
   Begin MSComctlLib.ListView lstBillDocu 
      Height          =   3855
      Left            =   0
      TabIndex        =   3
      Top             =   480
      Width           =   5895
      _ExtentX        =   10398
      _ExtentY        =   6800
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   0
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   4
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "Name"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "Address"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "City, State, Zip"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Text            =   "Notes"
         Object.Width           =   2540
      EndProperty
   End
   Begin BSE_Engine.BSE BSE1 
      Left            =   240
      Top             =   4440
      _ExtentX        =   6588
      _ExtentY        =   1085
   End
   Begin VB.Label Label10 
      BackColor       =   &H00800000&
      Caption         =   "简拼代码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "SimpleCodeFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim NewRecord As Boolean
Dim LastSortIndex As Long, LastSortDir As Long
Private VarOption As Integer
Private ModifyBS As Boolean
Public lstBillDocuIndex As Long
Private SearchGoodsKey As String










Private Sub cmdCancel_Click()
 Unload Me
End Sub

Private Sub cmdOk_Click()
 If lstBillDocu.SelectedItem Is Nothing Then
  Unload Me
  Exit Sub
 End If
  With lstBillDocu.SelectedItem
   Select Case VarInitData.SearchSimpleCodeBS
    Case 1
      GoodsData.TexGoods(1) = .Text
    Case 2
      ClientNeedInfo.TexGoods(1) = .Text
    Case 3
      AddRow.TexGoods(1) = .Text
    Case 4
      AddRow2.TexGoods(1) = .Text
    Case 5
      AddRow3.TexGoods(1) = .Text
    Case 6
      AddRow4.TexGoods(1) = .Text
    Case 7
      AddRow5.TexGoods(1) = .Text
    Case 8
      Addrow6.TexGoods(1) = .Text
    Case 9
      AddRow8.TexGoods(1) = .Text
    Case 10
      AddRow10.TexGoods(1) = .Text
   End Select
  End With
 Unload Me
End Sub



Private Sub Combo1_Click()
 Select Case Combo1.ListIndex
    Case 0
     SearchGoodsKey = "simplecode"
    Case 1
     SearchGoodsKey = "customcoding"
 End Select
 VarInitData.DealListView lstBillDocu, lstBillDocuIndex
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
 Combo1.Text = ""
End Sub

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
 Combo1.Text = ""
End Sub

Private Sub Form_Activate()
 VarInitData.DealListView lstBillDocu, lstBillDocuIndex
End Sub

Private Sub Form_Load()
  Dim i As Integer
    VarInitData.InitBSE BSE1, 0
    'SearchGoodsKey = "goodscoding"
    lstBillDocu.ListItems.Clear
    With lstBillDocu
     .ColumnHeaders.Clear
     .ColumnHeaders.Add , , "货品名称"
     .ColumnHeaders.Add , , "拼音简码"
     .ColumnHeaders.Add , , "自定编码"
     .ColumnHeaders(1).Width = lstBillDocu.Width - 1500
    End With
    Combo1.AddItem "拼音简码"
    Combo1.AddItem "自定编码"
    'Combo1.Text = "货品编码"
    SearchGoodsKey = "simplecode"
    Combo1.ListIndex = 0

End Sub







Private Sub Form_Unload(Cancel As Integer)
 If BSE1.EngineStarted Then BSE1.EndSubClassing

End Sub

Private Sub lstBillDocu_ItemClick(ByVal Item As MSComctlLib.ListItem)
 lstBillDocuIndex = Item.Index
 
End Sub



Private Sub Text1_Change()
 Dim TempSQL As String
 If Text1.Text <> "" Then
  TempSQL = "Select goodsname, simplecode, customcoding From simplecodetable" & " Where " & SearchGoodsKey & " like " & Quote(Text1.Text & "%")
  VarInitData.LoadData lstBillDocu, TempSQL
  lstBillDocu.ColumnHeaders(1).Width = lstBillDocu.Width - 1500
 Else
  lstBillDocu.ListItems.Clear
 End If
' VarInitData.DealListView lstBillDocu, lstBillDocuIndex
End Sub