📄 frmresult.frm

📁 为一个公司
💻 FRM
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmResult 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查询结果"
   ClientHeight    =   4320
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7395
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmResult.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4320
   ScaleWidth      =   7395
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.OptionButton opt 
      BackColor       =   &H80000009&
      Caption         =   "库存"
      ForeColor       =   &H000000FF&
      Height          =   285
      Index           =   1
      Left            =   6435
      TabIndex        =   6
      Top             =   135
      Width           =   735
   End
   Begin VB.OptionButton opt 
      BackColor       =   &H00FFFFFF&
      Caption         =   "销售"
      ForeColor       =   &H000000FF&
      Height          =   285
      Index           =   0
      Left            =   5625
      TabIndex        =   5
      Top             =   135
      Value           =   -1  'True
      Width           =   735
   End
   Begin VB.Frame Frame1 
      Height          =   1320
      Left            =   -45
      TabIndex        =   3
      Top             =   3600
      Width           =   7485
      Begin VB.CommandButton cmdCancel 
         Caption         =   "取消"
         Height          =   375
         Left            =   5670
         TabIndex        =   4
         Top             =   225
         Width           =   1140
      End
   End
   Begin MSComctlLib.ListView lvw 
      Height          =   2760
      Left            =   90
      TabIndex        =   2
      Top             =   675
      Width           =   7170
      _ExtentX        =   12647
      _ExtentY        =   4868
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   16777215
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
   Begin VB.Label lblSer 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请选择查询方式"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   240
      Left            =   180
      TabIndex        =   1
      Top             =   135
      Width           =   1785
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7395
   End
End
Attribute VB_Name = "frmResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
  Unload Me
End Sub

Public Sub opt_Click(Index As Integer)
  Dim clmX
  Dim itmX
  
  With rstMain
    If .State = adStateOpen Then .Close
    If Index = 0 Then '销售
      frmResult.lblSer.Caption = "货号:" & Trim(frmSearch.txtHh) & " 的销售明细"
      lvw.ColumnHeaders.Clear
      Set clmX = lvw.ColumnHeaders.Add(, , "货  号", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "商品代码", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "商品名称", 2500)
      Set clmX = lvw.ColumnHeaders.Add(, , "销售日期", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "销售单价", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "销售数量", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "客户名称", 1200)
      lvw.ListItems.Clear
      .Open "select spzd.spdm,spzd.spmc,xsxx.* from spzd,spxx,xsxx where spzd.spzd_key=spxx.spzd_key and spxx.hh=xsxx.hh and xsxx.hh='" & Trim(frmSearch.txtHh.Text) & "'"
      If Not .BOF Then .MoveFirst
      While Not .EOF
        Set itmX = lvw.ListItems.Add(, , !hh & "")
        itmX.SubItems(1) = !spdm & ""
        itmX.SubItems(2) = !spmc & ""
        itmX.SubItems(3) = !xsrq & ""
        itmX.SubItems(4) = !xsdj & ""
        itmX.SubItems(5) = !xssl & ""
        itmX.SubItems(6) = !khmc & ""
        .MoveNext
      Wend
      .Close
    Else
      frmResult.lblSer.Caption = "货号:" & Trim(frmSearch.txtHh) & " 的库存明细"
      lvw.ColumnHeaders.Clear
      Set clmX = lvw.ColumnHeaders.Add(, , "货  号", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "商品代码", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "商品名称", 2500)
      Set clmX = lvw.ColumnHeaders.Add(, , "进货日期", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "进货单价", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "商品数量", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "销售数量", 1200)
      Set clmX = lvw.ColumnHeaders.Add(, , "库存数量", 1200)
      lvw.ListItems.Clear
      .Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key and spxx.kcsl>0 and spxx.hh='" & Trim(frmSearch.txtHh.Text) & "'"
      If Not .BOF Then .MoveFirst
      While Not .EOF
        Set itmX = lvw.ListItems.Add(, , !hh & "")
        itmX.SubItems(1) = !spdm & ""
        itmX.SubItems(2) = !spmc & ""
        itmX.SubItems(3) = !jhrq & ""
        itmX.SubItems(4) = !jhdj & ""
        itmX.SubItems(5) = !jhsl & ""
        itmX.SubItems(6) = !xssl & ""
        itmX.SubItems(7) = !kcsl & ""
        .MoveNext
      Wend
      .Close
    End If
  End With
End Sub

Public Sub LoadResult_Jhrq()
  Dim clmX
  Dim itmX
  
  lvw.ColumnHeaders.Clear
  Set clmX = lvw.ColumnHeaders.Add(, , "货  号", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品代码", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品名称", 2500)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货日期", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货单价", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货数量", 1200)
'  Set clmX = lvw.ColumnHeaders.Add(, , "销售数量", 1200)
'  Set clmX = lvw.ColumnHeaders.Add(, , "库存数量", 1200)
  lvw.ListItems.Clear
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key and spxx.jhrq =#" & frmSearch.dtpJhrq.Value & "#"
    If Not .BOF Then .MoveFirst
    While Not .EOF
      Set itmX = lvw.ListItems.Add(, , !hh & "")
      itmX.SubItems(1) = !spdm & ""
      itmX.SubItems(2) = !spmc & ""
      itmX.SubItems(3) = !jhrq & ""
      itmX.SubItems(4) = !jhdj & ""
      itmX.SubItems(5) = !jhsl & ""
'      itmX.SubItems(6) = !xssl & ""
'      itmX.SubItems(7) = !kcsl & ""
      .MoveNext
    Wend
    .Close
  End With
End Sub

Public Sub LoadResult_Xsrq()
  Dim clmX
  Dim itmX
  
  lvw.ColumnHeaders.Clear
  Set clmX = lvw.ColumnHeaders.Add(, , "货  号", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品代码", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品名称", 2500)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售日期", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售单价", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售数量", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "客户名称", 1200)
  lvw.ListItems.Clear
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select spzd.spdm,spzd.spmc,xsxx.* from spzd,spxx,xsxx where spzd.spzd_key=spxx.spzd_key and spxx.hh=xsxx.hh and xsxx.xsrq=#" & frmSearch.dtpXsrq & "#"
    If Not .BOF Then .MoveFirst
    While Not .EOF
      Set itmX = lvw.ListItems.Add(, , !hh & "")
      itmX.SubItems(1) = !spdm & ""
      itmX.SubItems(2) = !spmc & ""
      itmX.SubItems(3) = !xsrq & ""
      itmX.SubItems(4) = !xsdj & ""
      itmX.SubItems(5) = !xssl & ""
      itmX.SubItems(6) = !khmc & ""
      .MoveNext
    Wend
    .Close
  End With
End Sub
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -