cleintdatafind.frm

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

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 ClientDataFind 
   BackColor       =   &H8000000D&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "客户查找选择"
   ClientHeight    =   5325
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   8190
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5325
   ScaleWidth      =   8190
   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            =   5160
      TabIndex        =   3
      Top             =   0
      Width           =   2535
   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            =   1320
      TabIndex        =   2
      Top             =   0
      Width           =   3495
   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            =   2160
      TabIndex        =   1
      Top             =   4680
      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            =   4200
      TabIndex        =   0
      Top             =   4680
      Width           =   1215
   End
   Begin MSComctlLib.ListView lstBillDocu 
      Height          =   3855
      Left            =   0
      TabIndex        =   4
      Top             =   480
      Width           =   8055
      _ExtentX        =   14208
      _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       =   &H8000000D&
      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            =   240
      TabIndex        =   5
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "ClientDataFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

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.ListItems.Count > 0 Then
  With lstBillDocu.ListItems(lstBillDocuIndex)
  Select Case VarInitData.SearchClientData
   Case 1
     ClientNeedInfo.Label2 = .SubItems(1)
   Case 2 '进货单
     StockTable.lblProvide = .SubItems(1)
   Case 3
     SendBackGoods.lblProvide = .SubItems(1)
   Case 4
     SellTable.lblProvide = .SubItems(1)
   Case 5
     SellBackTable.lblProvide = .SubItems(1)
   Case 6
     QuoteBillTable.lblProvide = .SubItems(1)
  End Select
  End With
 End If
 Unload Me
End Sub

Private Sub Combo1_Click()
 Select Case Combo1.ListIndex
   Case 0
    SearchGoodsKey = "coding"
   Case 1
    SearchGoodsKey = "companyname"
   Case 2
    SearchGoodsKey = "companyphone"
   Case 3
    SearchGoodsKey = "linkman"
 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
    Combo1.AddItem "编码"
    Combo1.AddItem "公司名称"
    Combo1.AddItem "公司电话"
    Combo1.AddItem "联系人"
    'Combo1.Text = "货品编码"
    SearchGoodsKey = "coding"
    Combo1.ListIndex = 0
    VarInitData.LoadData lstBillDocu, VarInitData.DisplaySQLVal(6)
    
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 ClearFrame()
End Sub

Private Sub Text1_Change()
 Dim TempSQL As String
 If Text1.Text <> "" Then
  TempSQL = VarInitData.DisplaySQLVal(6) & " Where " & SearchGoodsKey & " like " & Quote(Text1.Text & "%")
  VarInitData.LoadData lstBillDocu, TempSQL
 Else
  VarInitData.LoadData lstBillDocu, VarInitData.DisplaySQLVal(6)
 End If
 'VarInitData.DealListView lstBillDocu, lstBillDocuIndex
End Sub