倉庫管理系統(tǒng)的設計說明(編輯修改稿)
2025-05-09 01:00 本頁面
【文章內容簡介】 er=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01sql = delete from 客戶 where 客戶號=39。 amp。 kehuhao amp。 39。 (sql)MsgBox 已刪除編號為 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=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01If = 供應商 Then select * from 客戶 where 客戶類型=39。供應商39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rs Else If = 購貨商 Then select * from 客戶 where 客戶類型=39。購貨商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=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 客戶 where 客戶號=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=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 客戶 where 客戶名=39。 amp。 amp。 39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rsEnd Sub5. 查詢倉庫信息Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 倉庫 where 倉庫號=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=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01 select * from 倉庫 where 倉庫名=39。 amp。 amp。 39。, , adOpenKeyset, adLockBatchOptimistic, adCmdTextSet = rsEnd Sub6. 添加倉庫信息Private Sub Command1_Click()Dim As New Dim sql As String = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01Dim a1, a2, a3 As Stringa1 = a2 = a3 = sql = insert into 倉庫 values(39。 amp。 a1 amp。 39。,39。 amp。 a2 amp。 39。,39。 amp。 a3 amp。 39。) (sql)MsgBox 已添加倉庫信息End Sub7. 查看刪除倉庫信息Private Sub Command1_Click()Dim cangkuhao As Stringcangkuhao = 產(chǎn)品號= 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=倉庫管理系統(tǒng)。Data Source=WWW4FDE9FFEC01sql = delete from 倉庫 where 倉庫號=39。 amp。 cangkuhao amp。 39。 (sql)MsgBox 已刪除編號為 amp。
公司管理相關推薦
鄂ICP備17016276號-1