frmselectstuff.frm

一套鞋厂的仓库管理系统

      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   7
      BeginProperty Column00 
         DataField       =   "id"
         Caption         =   "材料代号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         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 Column02 
         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 Column03 
         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 Column04 
         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 Column05 
         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 Column06 
         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 
         ScrollBars      =   2
         BeginProperty Column00 
            ColumnWidth     =   989.858
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1995.024
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1094.74
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1214.929
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   510.236
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   810.142
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   1260.284
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmselectstuff"
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 comcancel_Click()
   buffid = ""
   buffname = ""
   buffkind = ""
   buffcolor = ""
   buffunit = ""
   buffnum = ""
   buffsupply = ""
    Unload Me
End Sub
Private Sub datagrid1_click()
    Me.comok.Enabled = True
End Sub
Private Sub comok_Click()
On Error Resume Next
   buffid = Me.DataGrid1.Columns(0).Text
   buffname = Me.DataGrid1.Columns(1).Text
   buffkind = Me.DataGrid1.Columns(2).Text
   buffcolor = Me.DataGrid1.Columns(3).Text
   buffunit = Me.DataGrid1.Columns(4).Text
   buffnum = Me.DataGrid1.Columns(5).Text
   buffsupply = Me.DataGrid1.Columns(6).Text
    Unload Me
End Sub


Private Sub DataGrid1_DblClick()
   On Error Resume Next
   buffid = Me.DataGrid1.Columns(0).Text
   buffname = Me.DataGrid1.Columns(1).Text
   buffkind = Me.DataGrid1.Columns(2).Text
   buffcolor = Me.DataGrid1.Columns(3).Text
   buffunit = Me.DataGrid1.Columns(4).Text
   buffnum = Me.DataGrid1.Columns(5).Text
   buffsupply = Me.DataGrid1.Columns(6).Text
   Unload Me
End Sub

Private Sub Form_Load()
  Me.Top = 1700
  Me.Left = 2800
  '给材料类别赋值
  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 = ""
  Me.comok.Enabled = False
End Sub


Private Sub Optall_Click()
    optionstr = "全部"
    optionstr = ""
    rsconnect
End Sub

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

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

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

Private Sub stuffclass_Click()
  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
End Sub

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

'公用连接数据函数
Private Sub rsconnect()
  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 " & 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()
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
End Sub