frmoutputlist.frm

此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其他会员最好不要随意下载,需经斑竹同意或我本人同意,谢谢!

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmOutputList 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "物料清单"
   ClientHeight    =   6360
   ClientLeft      =   1170
   ClientTop       =   1215
   ClientWidth     =   10095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6360
   ScaleWidth      =   10095
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.ListView Lview 
      Height          =   5865
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   9855
      _ExtentX        =   17383
      _ExtentY        =   10345
      View            =   3
      LabelWrap       =   0   'False
      HideSelection   =   0   'False
      HideColumnHeaders=   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483624
      BorderStyle     =   1
      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        =   7
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Object.Width           =   2470
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "物料类别"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   6
         Object.Width           =   2540
      EndProperty
   End
   Begin VB.Label Label1 
      BackColor       =   &H8000000A&
      Caption         =   "进料单号       物料编码       物料类型       物料名称      物料数量      计量单位      物料价格"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   180
      TabIndex        =   1
      Top             =   120
      Width           =   11145
   End
End
Attribute VB_Name = "frmOutputList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
'Const ssv = "Select material_no,material_name,(material_sum/material_qty) from material where material_qty<>0"
Const ssv = "Select input_no,material_no,material_type,material_name,input_qty-output_qty,material_unit,material_price from input where input_qty>output_qty order by input_no"
Private Sub Form_Load()
Me.Icon = frmain.Icon
Lview.ListItems.Clear
Call LvFill(ssv, frmOutputList.Lview)
End Sub
Public Sub LvFill(sscondition As String, LV As ListView)
'ssconditon 为查询的语句,要求:全部字段都必须是填充的字段,且字段值不能为空
'LV 为放置查询结果的 ListView 控件
Dim rs As Recordset
Dim Ritem As ListItem
Dim ir As Integer, ic As Integer
LV.ListItems.Clear
Set rs = New Recordset
rs.Open sscondition, db, adOpenStatic, adLockOptimistic
    If rs.RecordCount <> 0 Then
       rs.MoveFirst
       For ir = 0 To rs.RecordCount - 1
           Set Ritem = LV.ListItems.Add(, , Trim(rs(0)))
               For ic = 1 To rs.Fields.Count - 1
                     Ritem.SubItems(ic) = Trim(rs(ic))
               Next
           rs.MoveNext
       Next
    End If
rs.Close
End Sub

Private Sub Form_Resize()
'On Error Resume Next
'Top = 0
'Left = 50
End Sub

Private Sub Lview_DblClick()
Dim ss, s1, s2, s3, s4, s5, s6 As String
If Lview.ListItems.Count = 0 Then
  Me.Hide
  Exit Sub
End If

With Lview.SelectedItem
    ss = .Text
    s1 = .SubItems(1)
    s2 = .SubItems(2)
    s3 = .SubItems(3)
    s4 = .SubItems(4)
    s5 = .SubItems(5)
    s6 = .SubItems(6)
End With

Select Case frmOutputList.Tag
     Case "Output"
            With frmOutput.Msfg
                 .TextMatrix(.Row, 0) = ss
                 .TextMatrix(.Row, 1) = s1
                 .TextMatrix(.Row, 2) = s2
                 .TextMatrix(.Row, 3) = s3
                 .TextMatrix(.Row, 4) = s4
                 .TextMatrix(.Row, 5) = s5
                 .TextMatrix(.Row, 6) = s6
            End With
End Select
Unload Me
End Sub