汽車4s店零配件倉(cāng)庫(kù)管理系統(tǒng)-資料下載頁
2025-04-18 05:00本頁面
【正文】 InfoPJ_Click() 1End SubPrivate Sub KCxxinfo_Click() 1 39。詳細(xì)庫(kù)存End SubPrivate Sub SysAbout_Click() 39。39。關(guān)于 1End SubPrivate Sub sysManager_Click() 1End SubPrivate Sub Userpasword_Click() 39。39。用戶密碼 1End SubPrivate Sub XSCK_Click() 1 39。銷售出End Sub采購(gòu)入庫(kù)管理界面代碼：Private Sub Command1_Click() 39。查詢Dim rst As New Dim i As IntegerDim strSQL As StringIf Trim() = Then strSQL = select * from 采購(gòu)入庫(kù)信息 order by 入庫(kù)單號(hào) descElse For i = 0 To 3 If Option1(i).Value = True Then strSQL = select * from 采購(gòu)入庫(kù)信息 where amp。 Option1(i).Caption amp。 like 39。% amp。 Trim() amp。 %39。 order by 入庫(kù)單號(hào) desc Exit For End If Next iEnd IfIf Then strSQL, CN, adOpenStatic, adLockOptimisticWith MSHFlexGrid1 .Clear .Rows = 2 .Cols = For i = 0 To 1 .TextMatrix(0, i) = (i).Name Next i If 0 Then .Rows = + 1 = 查詢到 amp。 amp。 條記錄 Else = 查詢到0條記錄39。 MsgBox 沒有查詢記錄信息!, , 提示 Exit Sub End If Dim k As Integer k = 1 While Not For i = 0 To 1 If Not IsNull((i)) Then If (i).Type = adCurrency Then .TextMatrix(k, i) = Format(((i)), ) Else .TextMatrix(k, i) = Trim((i)) End If End If Next i k = k + 1 WendEnd WithEnd SubPublic Sub Command3_Click() 39。添加 = 1End SubPrivate Sub Command4_Click()With MSHFlexGrid1 If Trim(.TextMatrix(.Row, 0)) = Then MsgBox 請(qǐng)選擇采購(gòu)入庫(kù)信息, , 提示 Exit Sub End If = Trim(.TextMatrix(.Row, 0)) 1 = End WithEnd SubPrivate Sub Command5_Click() 39。39。刪除With MSHFlexGrid1 If Trim(.TextMatrix(.Row, 0)) = Then MsgBox 請(qǐng)選擇采購(gòu)入庫(kù)信息, , 提示 Exit Sub End If If MsgBox(真的刪除編號(hào)為: amp。 Trim(.TextMatrix(.Row, 0)) amp。 的信息嗎?不可恢復(fù)!, vbExclamation + vbYesNo, 提示) = vbYes Then delete from 采購(gòu)入庫(kù)信息 where 入庫(kù)單號(hào)=39。 amp。 Trim(.TextMatrix(.Row, 0)) amp。 39。 update 配件信息 set 庫(kù)存量=39。 amp。 Getkc(Trim(.TextMatrix(.Row, 2))) amp。 39。 where 配件編號(hào)=39。 amp。 Trim(.TextMatrix(.Row, 2)) amp。 39。 If .Rows = 2 Then For i = 0 To .Cols 1 .TextMatrix(1, i) = Next i Else .RemoveItem .Row End If End IfEnd WithEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPublic Sub Form_Load()On Error GoTo ErrDim rst As New If Then select * from 采購(gòu)入庫(kù)信息 order by 入庫(kù)單號(hào) desc, CN, adOpenStatic, adLockOptimisticWith MSHFlexGrid1 .Clear .Rows = 2 .Cols = For i = 0 To 1 .TextMatrix(0, i) = (i).Name Next i If = 1 Then .Rows = + 1 Dim k As Integer k = 1 While Not For i = 0 To 1 If Not IsNull((i)) Then If (i).Type = adCurrency Then .TextMatrix(k, i) = Format(((i)), ) Else .TextMatrix(k, i) = Trim((i)) End If End If Next i k = k + 1 WendEnd WithExit SubErr:MsgBox End SubPrivate Sub MSHFlexGrid1_DblClick() Call Command4_ClickEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall Command1_ClickEnd IfEnd Sub38 / 38
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1