frmjcda.frm

储存系统

      ImageHeight     =   24
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmJCDA.frx":D3BF6
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmJCDA.frx":D42F0
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmJCDA.frx":D49EA
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmJCDA.frx":EB3AC
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmJCDA.frx":EBAA6
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmJCDA.frx":EC1BA
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   8460
      Left            =   3120
      TabIndex        =   0
      Top             =   960
      Width           =   8505
      _ExtentX        =   15002
      _ExtentY        =   14923
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      SmallIcons      =   "ImageList3"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
End
Attribute VB_Name = "frmWNCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SQL As String
Dim addLVW As ListItem
Private Sub Check1_Click()
Me.ListView1.Gridlines = Me.Check1.Value
End Sub
Private Sub cmdCZ_Click()
If Trim(Me.txtCZ.Text) = "" Then
Me.ListView1.ListItems.Clear '先清空listview
If Me.Combo1.Text = "" Or txtCZ.Text = "" Then
   SQL = "select sjid,商品类型,商品全名,商品型号,商品规格,商品单位,销售价格,进货价格,包装数量,录入时间,商品品牌,联系电话,生产厂地 from 基础数据表 ORDER BY sjid DESC"
   Call addXX
   End If
Else
   Dim xmmc As String '项目名称
   If Me.Combo1.Text = "sjid" Then xmmc = "sjid"
   If Me.Combo1.Text = "商品类型" Then xmmc = "商品类型"
   If Me.Combo1.Text = "商品全名" Then xmmc = "商品全名"
   If Me.Combo1.Text = "商品型号" Then xmmc = "商品型号"
   If Me.Combo1.Text = "商品规格" Then xmmc = "商品规格"
   If Me.Combo1.Text = "商品单位" Then xmmc = "商品单位"
   If Me.Combo1.Text = "销售价格" Then xmmc = "销售价格"
   If Me.Combo1.Text = "进货价格" Then xmmc = "进货价格"
   If Me.Combo1.Text = "包装数量" Then xmmc = "包装数量"
   If Me.Combo1.Text = "录入时间" Then xmmc = "录入时间"
   If Me.Combo1.Text = "商品品牌" Then xmmc = "商品品牌"
   If Me.Combo1.Text = "联系电话" Then xmmc = "备注"
   If Me.Combo1.Text = "生产厂地" Then xmmc = "生产厂地"
   SQL = "select sjid,商品类型,商品全名,商品型号,商品规格,商品单位,销售价格,进货价格,包装数量,录入时间,商品品牌,备注,生产厂地 from 基础数据表 where " & xmmc & " like '%" & txtCZ.Text & "%' order by sjid desc"
   Call addXX
   End If
End Sub

Private Sub cmdSSSSSSX_Click()
Call addXX '用于刷新本窗口listview,刷新时使用了本窗口的变量SQL
End Sub
Private Sub cmdQC_Click()
txtCZ.Text = ""
Me.ListView1.ListItems.Clear
SQL = "select sjid,商品类型,商品全名,商品型号,商品规格,商品单位,销售价格,进货价格,包装数量,录入时间,商品品牌,备注,生产厂地 from 基础数据表 order by sjid desc"
Call addXX
End Sub

Private Sub Form_Initialize()
Call InitCommonControls 'XP效果
End Sub

Private Sub Form_Load()
Me.Picture2.Picture = LoadPicture(App.Path & "\bg\bg11.bmp")
Me.Picture3.Picture = LoadPicture(App.Path & "\bg\bg4.bmp")
Me.Picture4.Picture = LoadPicture(App.Path & "\bg\bg5.bmp")

'------------------------------------
'统计数据
Call OpenConn
SQL = "select count(*) as zgzs from 基础数据表"
rs.Open SQL, cn, 1, 1
'livsview设置
With Me.ListView1
    .ColumnHeaders.Add = "商品类型"
    .ColumnHeaders.Add = "sjid"
    .ColumnHeaders.Add = "商品全名"
    .ColumnHeaders.Add = "商品型号"
    .ColumnHeaders.Add = "商品规格"
    .ColumnHeaders.Add = "商品单位"
    .ColumnHeaders.Add = "销售价格"
    .ColumnHeaders.Add = "进货价格"
    .ColumnHeaders.Add = "包装数量"
    .ColumnHeaders.Add = "录入时间"
    .ColumnHeaders.Add = "商品品牌"
    .ColumnHeaders.Add = "备注"
    .ColumnHeaders.Add = "生产厂地"
    .ColumnHeaders(1).Width = 1000
    .ColumnHeaders(2).Width = 0
    .ColumnHeaders(3).Width = 2400
    .ColumnHeaders(4).Width = 2400
    .ColumnHeaders(5).Width = 2400
    .ColumnHeaders(6).Width = 900
    .ColumnHeaders(7).Width = 900
    .ColumnHeaders(8).Width = 0
    .ColumnHeaders(9).Width = 900
    .ColumnHeaders(10).Width = 1200
    .ColumnHeaders(11).Width = 1000
    .ColumnHeaders(12).Width = 1400
    .ColumnHeaders(13).Width = 2000
    End With
    

'调用过程添加到列表listview~~~~~~~~~~~~~~~~~~~~~~~

  SQL = "select sjid,商品类型,商品全名,商品型号,商品规格,商品单位,销售价格,进货价格,包装数量,录入时间,商品品牌,备注,生产厂地 from 基础数据表 ORDER BY sjid DESC"
  Call addXX
    Call CloseConn
    '添加查找可用项目~~~~~~~~~~~
With Combo1
.AddItem "商品类型"
.AddItem "商品全名"
.AddItem "商品型号"
.AddItem "商品规格"
.AddItem "销售价格"
.AddItem "进货价格"
.AddItem "录入时间"
.AddItem "联系电话"
.AddItem "生产厂地"
  End With
 End Sub
Private Sub Form_Resize()  '窗体内控件尺寸
If Me.ScaleHeight > 8295 Or Me.ScaleWidth > 11280 Then
   Me.ListView1.Height = Me.ScaleHeight - Me.ListView1.Top
   Me.ListView1.Width = Me.ScaleWidth - Me.ListView1.Left
   Me.Picture2.Width = Me.ScaleWidth - 2655
   Me.Picture4.Height = Me.ScaleHeight - 690
End If
Me.Picture1.Left = Me.ScaleWidth - Me.Picture1.Width - 240
End Sub

Private Sub ListView1_DblClick()
    If Me.ListView1.ListItems.Count <= 0 Then Exit Sub
    gXhcd = Me.ListView1.SelectedItem.SubItems(1)
    newFlag = 1
    frmXZDA.Show 1
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case Is = 2 '新增数据
        newFlag = 0
        frmXZDA.Show 1
    Case Is = 3 '导出excel
        Me.picLOAD.Left = (Me.ScaleWidth + Me.picLOAD.Width) / 2
        Me.picLOAD.Top = Me.ScaleHeight / 2 - Me.picLOAD.Height
        Me.picLOAD.Visible = True
        DoEvents '释放控制权
        Dim i As Integer
        Dim j As Integer
        i = 2
        Call openXLT("WNCX.xlt")
        Call OpenConn
            SQL1 = "select * from 基础数据表 ORDER BY 商品品牌 ASC"
            rs.Open SQL1, cn, 1, 1
            Do While Not rs.EOF
                For j = 1 To 13
                    xlsheet.Cells(i, j) = rs.Fields(j).Value
                Next
                rs.MoveNext
                i = i + 1
            Loop
        Call CloseConn
        Call closeXLT
        Me.picLOAD.Visible = False
End Select
End Sub

Private Sub addXX()
Me.picLOAD.Left = (Me.ScaleWidth + Me.picLOAD.Width) / 2
Me.picLOAD.Top = Me.ScaleHeight / 2 - Me.picLOAD.Height
Me.picLOAD.Visible = True
DoEvents '释放控制权
Me.ListView1.ListItems.Clear
Call OpenConn
    rs.Open SQL, cn, 1, 2
    Do While Not rs.EOF
        Set addLVW = Me.ListView1.ListItems.Add(, , rs!商品类型 & "", , tb)
            addLVW.SubItems(1) = rs!sjid & ""
            addLVW.SubItems(2) = rs!商品全名 & ""
            addLVW.SubItems(3) = rs!商品型号 & ""
            addLVW.SubItems(4) = rs!商品规格 & ""
            addLVW.SubItems(5) = rs!商品单位 & ""
            addLVW.SubItems(6) = rs!销售价格 & ""
            addLVW.SubItems(7) = rs!进货价格 & ""
            addLVW.SubItems(8) = rs!包装数量 & ""
            addLVW.SubItems(9) = rs!录入时间 & ""
            addLVW.SubItems(10) = rs!商品品牌 & ""
            addLVW.SubItems(11) = rs!备注 & ""
            addLVW.SubItems(12) = rs!生产厂地 & ""
            rs.MoveNext
    Loop
Me.picLOAD.Visible = False
End Sub