?? chukuxiugai.frm
字號:
conn = "update 產(chǎn)品出庫 set 數(shù)量=" & Text2 & " where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
conn = "update 產(chǎn)品出庫 set 產(chǎn)品類別=" & aaa & " where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
conn = "update 產(chǎn)品出庫 set 生產(chǎn)廠家=" & bbb & " where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
conn = "update 產(chǎn)品出庫 set 產(chǎn)品型號='" & Combo3 & "' where id=" & Text3
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
conn = "update 產(chǎn)品出庫 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 生產(chǎn)廠家"
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 產(chǎn)品類別"
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 產(chǎn)品類別 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 生產(chǎn)廠家 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 產(chǎn)品出庫 where 生產(chǎn)廠家=" & bbb & " and 產(chǎn)品類別=" & aaa & " order by 產(chǎn)品型號 desc"
Debug.Print conn
rst.Open conn, db, adOpenDynamic, adLockOptimistic
If Not rst.EOF Then
demo = rst.Fields("產(chǎn)品型號")
Combo3.AddItem demo
Combo3.Text = demo
rst.MoveNext
Do Until rst.EOF
If demo = rst.Fields("產(chǎn)品型號") Then
rst.MoveNext
Else
Combo3.AddItem rst.Fields("產(chǎn)品型號")
demo = rst.Fields("產(chǎn)品型號")
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 產(chǎn)品類別 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 生產(chǎn)廠家 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 產(chǎn)品出庫 where 生產(chǎn)廠家=" & bbb & " and 產(chǎn)品類別=" & aaa & " and 產(chǎn)品型號='" & 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 產(chǎn)品類別 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 生產(chǎn)廠家 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 產(chǎn)品出庫 where 生產(chǎn)廠家=" & bbb & " and 產(chǎn)品類別=" & aaa & "and 產(chǎn)品型號='" & Combo3.Text & "'"
'conn = "select * from 產(chǎn)品庫存 where 生產(chǎn)廠家=" & bbb & " and 產(chǎn)品類別=" & aaa & " and 產(chǎn)品型號='" & 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 產(chǎn)品類別 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 生產(chǎn)廠家 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 產(chǎn)品出庫 where id=" & List1.Text
rst.Open conn, db, adOpenDynamic, adLockOptimistic
DTPicker1.Value = rst.Fields("出庫日期")
Text2 = rst.Fields("數(shù)量")
Text3 = List1.Text
rst.Close
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -