storegoods.frm

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

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 StoreGoods 
   Caption         =   "库存汇总"
   ClientHeight    =   8655
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11820
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8655
   ScaleWidth      =   11820
   Begin BSE_Engine.BSE BSE1 
      Left            =   1560
      Top             =   7440
      _ExtentX        =   6588
      _ExtentY        =   1085
   End
   Begin VB.Frame frameInfo 
      Height          =   855
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11775
      Begin VB.CommandButton Command1 
         Height          =   495
         Index           =   6
         Left            =   4800
         Picture         =   "StoreGoods.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   5
         ToolTipText     =   "打印"
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton Command1 
         Height          =   495
         Index           =   1
         Left            =   6600
         Picture         =   "StoreGoods.frx":014A
         Style           =   1  'Graphical
         TabIndex        =   4
         ToolTipText     =   "刷新"
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton Command1 
         Height          =   495
         Index           =   0
         Left            =   4200
         Picture         =   "StoreGoods.frx":0294
         Style           =   1  'Graphical
         TabIndex        =   2
         ToolTipText     =   "搜索"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label10 
         Caption         =   "库存汇总"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   375
         Left            =   240
         TabIndex        =   3
         Top             =   360
         Width           =   1935
      End
   End
   Begin MSComctlLib.ListView lstBillDocu 
      Height          =   6015
      Left            =   360
      TabIndex        =   0
      Top             =   840
      Width           =   10455
      _ExtentX        =   18441
      _ExtentY        =   10610
      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
End
Attribute VB_Name = "StoreGoods"
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 Sub Command1_Click(Index As Integer)
 Dim i As Integer
 Dim TempRS As MYSQL_RS
 Dim TempVar As Long
 Dim TempSQL As String
 Dim TempBillType As Integer
 Select Case Index
  Case 0
   SearchGoods10.Show 1
  Case 1
   TempSQL = VarInitData.DisplaySQLVal(10)
   VarInitData.LoadData lstBillDocu, TempSQL
   If lstBillDocu.ListItems.Count > 0 Then
    lstBillDocuIndex = 1
   End If
   VarInitData.DealListView lstBillDocu, lstBillDocuIndex
  Case 6
   VarCrystal.DispalyStoreReport
 End Select
End Sub





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

Private Sub Form_Load()
  Dim i As Integer
    VarInitData.InitBSE BSE1
    VarInitData.LoadData lstBillDocu, VarInitData.DisplaySQLVal(10)
End Sub


Private Sub Form_Resize()
 If Me.ScaleHeight > 0 And Me.ScaleWidth > 0 Then
  frameInfo.left = Me.ScaleLeft
  frameInfo.tOp = Me.ScaleTop
  frameInfo.Width = Me.ScaleWidth
  lstBillDocu.tOp = frameInfo.tOp + frameInfo.Height + 50
  lstBillDocu.left = 100
  lstBillDocu.Width = Me.ScaleWidth - 200
  lstBillDocu.Height = Me.ScaleHeight - frameInfo.Height - 100
 End If
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 Option1_Click(Index As Integer)
 VarOption = Index + 1
End Sub