frmcheckstuff.frm

一套鞋厂的仓库管理系统

            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   "helpcode"
         Caption         =   "助记码"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "name"
         Caption         =   "材料名称"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "kind"
         Caption         =   "规格"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "color"
         Caption         =   "颜色"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "unit"
         Caption         =   "单位"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "stuffclass"
         Caption         =   "材料类别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "libclass"
         Caption         =   "库存类别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "initlib"
         Caption         =   "库存量"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   "0.00"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "supply"
         Caption         =   "厂商"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   929.764
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   794.835
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1574.929
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1094.74
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1214.929
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   510.236
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   945.071
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   929.764
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   764.787
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   1920.189
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmcheckstuff"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private rs As ADODB.Recordset
Private sqlstr As String
Private optionstr As String
Private stuffstr As String
Private i As Integer

Private Sub comexit_Click()
    Unload Me
End Sub

Private Sub comprint_Click()
'On Error Resume Next
    Me.MousePointer = 11
    repcheckstuff.stuffclass.Text = Me.stuffclass.Text
    repcheckstuff.stuffclasschild.Text = Me.stuffclasschild.Text
    If Me.Optall.Value = True Then
    repcheckstuff.libclass.Text = "全部"
    End If
    If Me.optchangyong.Value = True Then
    repcheckstuff.libclass.Text = "常用"
    End If
    If Me.optnochangyong.Value = True Then
    repcheckstuff.libclass.Text = "不常用"
    End If
    If Me.optdaihuo.Value = True Then
    repcheckstuff.libclass.Text = "呆货"
    End If
    repcheckstuff.makedate.Caption = Date
    repcheckstuff.recordcount.Text = Me.recordcount.Text
    If Trim(Me.recordcount.Text) = "" Or Trim(Me.recordcount.Text) = "0" Then
        Me.MousePointer = 0
        Exit Sub
    Else
        Set repcheckstuff.DataControl1.Recordset = Me.DataGrid1.DataSource
        repcheckstuff.Show 1
    End If
    Me.MousePointer = 0
End Sub

Private Sub Form_Load()
  Me.Top = 800
  Me.Left = 2000
  '给材料类别赋值
  Set rs = New ADODB.Recordset
  rs.Open "select * from stuffclasstable where fatherclass='0'", GetConnect, adOpenStatic, adLockReadOnly
  stuffclass.ComboItems.Clear
  If rs.EOF And rs.BOF Then
     MsgBox "无资料！"
  End If
  For i = 1 To rs.recordcount
    stuffclass.ComboItems.Add , "_" & rs![ID], Trim(rs![Name])
    rs.MoveNext
  Next i
  rs.Close
  optionstr = ""
  stuffstr = ""
End Sub

Private Sub Optall_Click()
    Me.MousePointer = 11
    optionstr = "全部"
    optionstr = ""
    rsconnect
    Me.MousePointer = 0
End Sub

Private Sub optchangyong_Click()
    Me.MousePointer = 11
    optionstr = "常用"
    optionstr = "where (libclasstable.memo = N'" & optionstr & "')"
    rsconnect
    Me.MousePointer = 0
End Sub

Private Sub optdaihuo_Click()
    Me.MousePointer = 11
    optionstr = "呆货"
    optionstr = "where (libclasstable.memo = N'" & optionstr & "')"
    rsconnect
    Me.MousePointer = 0
End Sub

Private Sub optnochangyong_Click()
    Me.MousePointer = 11
    optionstr = "不常用"
    optionstr = "where (libclasstable.memo = N'" & optionstr & "')"
    rsconnect
    Me.MousePointer = 0
End Sub


Private Sub stuffclass_Click()
 Me.MousePointer = 11
  stuffclasschild.Text = ""
  stuffclasschild.ComboItems.Clear
  Set rs = New ADODB.Recordset
  rs.Open "select * from stuffclasstable where fatherclass='" & Mid(stuffclass.SelectedItem.Key, 2, 10) & "'", GetConnect, adOpenStatic, adLockReadOnly
  stuffclasschild.ComboItems.Clear
  If rs.EOF And rs.BOF Then
     'MsgBox "无资料！"
  End If
  For i = 1 To rs.recordcount
    stuffclasschild.ComboItems.Add , "_" & rs![ID], Trim(rs![Name])
    rs.MoveNext
  Next i
  rs.Close

  stuffstr = IIf(Trim(Me.stuffclass.Text) = "", "", "  AND ( stuffclasstable.name = N'" & Me.stuffclass.Text & "')")
  rsconnect
   Me.MousePointer = 0
End Sub

Private Sub stuffclasschild_Click()
    Me.MousePointer = 11
    stuffstr = IIf(Trim(Me.stuffclass.Text) = "", "", "  AND ( stuffclasstable.name = N'" & Me.stuffclasschild.Text & "')")
    rsconnect
     Me.MousePointer = 0
End Sub

'公用连接数据函数
Private Sub rsconnect()
  Set rs = New ADODB.Recordset
  sqlstr = "SELECT stuffdatatable.id, stuffdatatable.helpcode, stuffdatatable.name, stuffdatatable.kind,stuffdatatable.color, stuffdatatable.unit, stuffclasstable.name AS stuffclass, libclasstable.memo as libclass, stuffdatatable.initlib, stuffdatatable.supply FROM stuffdatatable INNER JOIN stuffclasstable ON stuffdatatable.stuffclass = stuffclasstable.id INNER JOIN libclasstable ON stuffdatatable.libclass = libclasstable.name " & optionstr & stuffstr & " order by stuffdatatable.id"
  rs.Open sqlstr, GetConnect, adOpenStatic, adLockReadOnly
  Set Me.DataGrid1.DataSource = rs
  Me.recordcount.Text = rs.recordcount

End Sub

Private Sub Text1_Change()
  Me.MousePointer = 11
  On Error Resume Next
  stuffclass.Text = ""
  stuffclasschild.Text = ""
  Set rs = New ADODB.Recordset
  sqlstr = "SELECT stuffdatatable.id, stuffdatatable.name, stuffdatatable.kind, stuffdatatable.color,stuffdatatable.unit, stuffdatatable.initlib, stuffdatatable.supply, libclasstable.memo,stuffclasstable.name AS Expr1 FROM stuffdatatable INNER JOIN stuffclasstable ON stuffdatatable.stuffclass = stuffclasstable.id INNER JOIN libclasstable ON stuffdatatable.libclass = libclasstable.name WHERE stuffdatatable.id='" & Trim(Text1.Text) & "' order by stuffdatatable.id"
  rs.Open sqlstr, GetConnect, adOpenStatic, adLockReadOnly
  Set Me.DataGrid1.DataSource = rs
  Me.MousePointer = 0
End Sub