maintainappendfind.frm

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

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 MaintainAppendFind 
   BackColor       =   &H8000000D&
   Caption         =   "维修附件查询"
   ClientHeight    =   4950
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8100
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4950
   ScaleWidth      =   8100
   StartUpPosition =   3  'Windows Default
   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        =   3
      Top             =   4440
      Width           =   1215
   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        =   2
      Top             =   4440
      Width           =   1215
   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        =   1
      Top             =   0
      Width           =   3495
   End
   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        =   0
      Top             =   0
      Width           =   2535
   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            =   120
      Top             =   4200
      _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 = "MaintainAppendFind"
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()
 Dim i As Long
 If lstBillDocu.ListItems.Count > 0 Then
  With lstBillDocu.ListItems(lstBillDocuIndex)
   Select Case VarInitData.SearchMaintainAppend
    Case 1
      AddRow9.TexGoods(0) = .Text
      AddRow9.Combo1(0) = .SubItems(1)
      AddRow9.TexGoods(1) = Format(.SubItems(2), "0.00")
    Case 2
     
   End Select
  End With
 End If
 Unload Me
End Sub

Private Sub Combo1_Click()
 Select Case Combo1.ListIndex
   Case 0
    SearchGoodsKey = "sort"
   Case 1
    SearchGoodsKey = "workprice"
 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 "单价"
    SearchGoodsKey = "sort"
    Combo1.ListIndex = 0
    VarInitData.LoadData lstBillDocu, VarInitData.DisplaySQLVal(25)
    
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 = VarInitData.DisplaySQLVal(25) & " Where " & SearchGoodsKey & " like " & Quote(Text1.Text & "%")
  VarInitData.LoadData lstBillDocu, TempSQL
 Else
  VarInitData.LoadData lstBillDocu, VarInitData.DisplaySQLVal(25)
 End If
End Sub