chukuxiugai.frm

明珠大厦相机组库存管理系统

 
conn = "update 产品出库 set  数量=" & Text2 & "  where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
 
conn = "update 产品出库 set  产品类别=" & aaa & "  where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
 
conn = "update 产品出库 set  生产厂家=" & bbb & "  where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
 
conn = "update 产品出库 set  产品型号='" & Combo3 & "'  where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
 
conn = "update 产品出库 set  出库日期='" & DTPicker1.Value & "'  where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
 
 
 
 
 Label7.Visible = True




End If
End Sub







Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Call dataz
DTPicker1.Value = Now()
End Sub
Private Sub dataz()
    
    
    Combo1.Clear
    Combo2.Clear
    Combo3.Clear
        
    Text2 = ""
    Text3 = ""
    Label7.Visible = False
    
        
    Dim rst As Recordset
    Dim db As Connection
    Set rst = New Recordset
  
   ' Set rs2 = New Recordset
    Set db = New Connection
    conn = "select * from 生产厂家"
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
    rst.Open conn, db, adOpenDynamic, adLockOptimistic
    If Not rst.EOF Then
      rst.MoveFirst
      Combo2.Text = rst.Fields("品牌")
         Do Until rst.EOF
             Combo2.AddItem rst.Fields("品牌")
             rst.MoveNext
         Loop
   
    Else
      Combo1.Text = "无任何品牌"
    End If
    
    rst.Close
    
     conn = "select * from 产品类别"
    rst.Open conn, db, adOpenDynamic, adLockOptimistic
    If Not rst.EOF Then
      rst.MoveFirst
      Combo1.Text = rst.Fields("类别名称")
         Do Until rst.EOF
             Combo1.AddItem rst.Fields("类别名称")
             rst.MoveNext
         Loop
   
    Else
      Combo1.Text = "无任何类别"
    End If
    
    rst.Close
    
    
    
End Sub

Private Sub Combo1_GotFocus()
Call dataz
End Sub
Private Sub Combo2_GotFocus()
Call dataz
End Sub

Private Sub Combo3_GotFocus()
Combo3.Clear
   Label7.Visible = False
    
If Combo1.Text = "" Or Combo2.Text = "" Then
Exit Sub
Else
   Dim rst As Recordset
    Dim db As Connection
    Set rst = New Recordset
  
   ' Set rs2 = New Recordset
    Set db = New Connection
    conn = "select * from 产品类别 where 类别名称 ='" & Combo1 & "'"
    Debug.Print conn
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
    rst.Open conn, db, adOpenDynamic, adLockOptimistic

    If Not rst.EOF Then
    aaa = rst.Fields("id")
    
    Else
    Exit Sub
    End If
rst.Close

conn = "select * from 生产厂家 where 品牌 ='" & Combo2 & "'"

rst.Open conn, db, adOpenDynamic, adLockOptimistic

  If Not rst.EOF Then
    bbb = rst.Fields("id")
    
    Else
    Exit Sub
    End If
rst.Close

conn = "select * from 产品出库 where 生产厂家=" & bbb & " and 产品类别=" & aaa & " order by 产品型号 desc"
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
If Not rst.EOF Then
demo = rst.Fields("产品型号")
Combo3.AddItem demo
Combo3.Text = demo
rst.MoveNext
Do Until rst.EOF
If demo = rst.Fields("产品型号") Then
rst.MoveNext
Else
Combo3.AddItem rst.Fields("产品型号")
demo = rst.Fields("产品型号")
rst.MoveNext
End If
Loop
Else
Combo3.Text = ""
End If
rst.Close
End If
End Sub

Private Sub Combo3_Change()
List1.Clear
Label7.Visible = False

If Combo1.Text = "" Or Combo2.Text = "" Then
Exit Sub
Else
    Dim rst As Recordset
    Dim db As Connection
    Set rst = New Recordset
  
   ' Set rs2 = New Recordset
    Set db = New Connection
    conn = "select * from 产品类别 where 类别名称 ='" & Combo1 & "'"
    Debug.Print conn
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
    rst.Open conn, db, adOpenDynamic, adLockOptimistic

    If Not rst.EOF Then
    aaa = rst.Fields("id")
    
    Else
    Exit Sub
    End If
    rst.Close

conn = "select * from 生产厂家 where 品牌 ='" & Combo2 & "'"

rst.Open conn, db, adOpenDynamic, adLockOptimistic

  If Not rst.EOF Then
    bbb = rst.Fields("id")
    
    Else
    Exit Sub
    End If
    rst.Close


If Not Combo3.Text = "" Then

conn = "select * from 产品出库 where 生产厂家=" & bbb & " and 产品类别=" & aaa & " and 产品型号='" & Combo3.Text & "'"
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic

Do Until rst.EOF
List1.AddItem rst.Fields("id")
rst.MoveNext
Loop


rst.Close

Else
Exit Sub

End If
End If


End Sub

Private Sub Combo3_Click()
List1.Clear
Label7.Visible = False

If Combo1.Text = "" Or Combo2.Text = "" Then
Exit Sub
Else
    Dim rst As Recordset
    Dim db As Connection
    Set rst = New Recordset
  
   ' Set rs2 = New Recordset
    Set db = New Connection
    conn = "select * from 产品类别 where 类别名称 ='" & Combo1 & "'"
    
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
    rst.Open conn, db, adOpenDynamic, adLockOptimistic

    If Not rst.EOF Then
    aaa = rst.Fields("id")
    
    Else
    Exit Sub
    End If
    rst.Close

conn = "select * from 生产厂家 where 品牌 ='" & Combo2 & "'"

rst.Open conn, db, adOpenDynamic, adLockOptimistic

  If Not rst.EOF Then
    bbb = rst.Fields("id")
    
    Else
    Exit Sub
    End If
    rst.Close


If Not Combo3.Text = "" Then

conn = "select * from 产品出库 where 生产厂家=" & bbb & " and 产品类别=" & aaa & "and 产品型号='" & Combo3.Text & "'"
'conn = "select * from 产品库存 where 生产厂家=" & bbb & " and 产品类别=" & aaa & " and 产品型号='" & Combo3.Text & "' and 入库日期='" & DTPicker1.Value & "'"

rst.Open conn, db, adOpenDynamic, adLockOptimistic
Debug.Print conn
Do Until rst.EOF
List1.AddItem rst.Fields("id")
rst.MoveNext
Loop


rst.Close

Else
Exit Sub

End If
End If


End Sub

Private Sub List1_Click()

Label7.Visible = False

If Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or List1.Text = "" Then
Exit Sub
Else

Debug.Print List1.Text



    Dim rst As Recordset
    Dim db As Connection
    Set rst = New Recordset
  
   ' Set rs2 = New Recordset
    Set db = New Connection
    conn = "select * from 产品类别 where 类别名称 ='" & Combo1 & "'"
   
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
    rst.Open conn, db, adOpenDynamic, adLockOptimistic

    If Not rst.EOF Then
    aaa = rst.Fields("id")
    
    Else
    Exit Sub
    End If
    rst.Close

conn = "select * from 生产厂家 where 品牌 ='" & Combo2 & "'"

rst.Open conn, db, adOpenDynamic, adLockOptimistic

  If Not rst.EOF Then
    bbb = rst.Fields("id")
    
    Else
    Exit Sub
    End If
    rst.Close


conn = "select * from 产品出库 where id=" & List1.Text


rst.Open conn, db, adOpenDynamic, adLockOptimistic

DTPicker1.Value = rst.Fields("出库日期")
Text2 = rst.Fields("数量")

Text3 = List1.Text
rst.Close








End If


End Sub