倉(cāng)庫(kù)管理系統(tǒng)的設(shè)計(jì)說(shuō)明(編輯修改稿)
2025-05-09 01:00 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 er=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01sql = delete from 客戶 where 客戶號(hào)=39。 amp。 kehuhao amp。 39。 (sql)MsgBox 已刪除編號(hào)為 amp。 kehuhao amp。 的客戶信息End Sub4. 查看客戶信息代碼Private Sub Command1_Click()Dim As New Dim rs As New Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01If = 供應(yīng)商 Then select * from 客戶 where 客戶類型=39。供應(yīng)商39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rs Else If = 購(gòu)貨商 Then select * from 客戶 where 客戶類型=39。購(gòu)貨商39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rs Else select * from 客戶, , adOpenKeyset, adLockBatchOptimistic, adCmdText Set = rsEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Dim As New Dim rs As New Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 客戶 where 客戶號(hào)=39。 amp。 amp。 39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rsEnd SubPrivate Sub Command3_Click()Dim As New Dim rs As New Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 客戶 where 客戶名=39。 amp。 amp。 39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rsEnd Sub5. 查詢倉(cāng)庫(kù)信息Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 倉(cāng)庫(kù) where 倉(cāng)庫(kù)號(hào)=39。 amp。 amp。 39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rsEnd SubPrivate Sub Command2_Click()Dim As New Dim rs As New Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 倉(cāng)庫(kù) where 倉(cāng)庫(kù)名=39。 amp。 amp。 39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rsEnd Sub6. 添加倉(cāng)庫(kù)信息Private Sub Command1_Click()Dim As New Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01Dim a1, a2, a3 As Stringa1 = a2 = a3 = sql = insert into 倉(cāng)庫(kù) values(39。 amp。 a1 amp。 39。,39。 amp。 a2 amp。 39。,39。 amp。 a3 amp。 39。) (sql)MsgBox 已添加倉(cāng)庫(kù)信息End Sub7. 查看刪除倉(cāng)庫(kù)信息Private Sub Command1_Click()Dim cangkuhao As Stringcangkuhao = 產(chǎn)品號(hào)= amp。 Val(cangkuhao)End SubPrivate Sub Command2_Click()Dim As New Dim sql As StringDim cangkuhao As Stringcangkuhao = = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉(cāng)庫(kù)管理系統(tǒng)。Data Source=WWW4FDE9FFEC01sql = delete from 倉(cāng)庫(kù) where 倉(cāng)庫(kù)號(hào)=39。 amp。 cangkuhao amp。 39。 (sql)MsgBox 已刪除編號(hào)為 amp。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1