【文章內(nèi)容簡(jiǎn)介】 (1).Locked = True (2).Locked = True (3).Locked = True (4).Locked = True (6).Locked = True (7).Locked = True (8).Locked = True (9).Locked = True (10).Locked = True (11).Locked = True (12).Locked = True = 270End SubPrivate Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) On Error Resume Next = (貨物名稱).ValueEnd SubPrivate Sub B新增入庫(kù)單_Click() vbModal SaveInit ResumeInit End SubPrivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Dim caption As String caption = (ColIndex).caption If caption = 經(jīng)辦人 Then caption = 姓名 If caption = 金額 Then Exit Sub If caption = 備注 Then caption = If caption = 編號(hào) Then caption = If caption = 供應(yīng)商 Then caption = 供應(yīng)商名稱 If caption = 存放倉(cāng)庫(kù) Then caption = 倉(cāng)庫(kù)名稱 = SQL + order by + caption order(ColIndex) = True order(ColIndex) If order(ColIndex) = True Then = + ASC Else = + DESC End If SaveInit ResumeInit End SubPrivate Sub Form_Load() = DataConnectString SQL = Set = Adodc1 initdatagrid1 End SubPrivate Sub 打印入庫(kù)單_Click() On Error GoTo quit Dim p As New 新增入庫(kù)單 = (0).Value vbModal Unload pEnd SubPrivate Sub 刪除入庫(kù)單_Click() On Error GoTo quit If (12).Text = 已退出 Then GoTo conIf MsgBox(建議用[退出入庫(kù)單],而不要直接刪除,?, vbYesNo Or vbQuestion) = vbNo Then Exit Subcon: On Error Resume Next Dim code, code1, code2 As Long code = (0).Text = select 貨物編號(hào),入庫(kù)數(shù)量,倉(cāng)庫(kù)編號(hào) from 入庫(kù)單 where 編號(hào)= + Str(code) Dim num1, num2 As Long code1 = (貨物編號(hào)).Value num1 = (入庫(kù)數(shù)量).Value code2 = (倉(cāng)庫(kù)編號(hào)).Value 39。如果是已退出入庫(kù)單則直接刪除 If (12).Text = 已退出 Then If MsgBox(您確信要?jiǎng)h除該入庫(kù)退出單嗎?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub = select * from 入庫(kù)單 where 編號(hào)= + Str(code) SaveInit ResumeInit Exit Sub End If = select 庫(kù)存數(shù)量 from 庫(kù)存狀況 where 貨物編號(hào)= + Str(code1) + and 倉(cāng)庫(kù)編號(hào)= + Str(code2) 39。當(dāng)前庫(kù)存數(shù)量num2 num2 = (庫(kù)存數(shù)量).Value 39。庫(kù)存不足 If num2 num1 Then If MsgBox(庫(kù)存不足,庫(kù)存量為 + Str(num2) + ,需求量為 + Str(num1) + , + 要忽略它并強(qiáng)制刪除嗎?, vbQuestion Or vbYesNo) = vbNo Then Exit Sub End If 39。更新庫(kù)存狀況 If num2 num1 0 Then (庫(kù)存數(shù)量).Value = num2 num1 Else 39。如果庫(kù)存為零清空 End If 39。更新入庫(kù)單 = select * from 入庫(kù)單 where 編號(hào)= + Str(code) SaveInit ResumeInit MsgBox 入庫(kù)單刪除成功! 39。寫入系統(tǒng)日志 (刪除入庫(kù)單) End Sub　圖44 出庫(kù)單管理圖具體代碼如下：Private SQL As StringPrivate startcol As IntegerPrivate endcol As IntegerPrivate col, row As IntegerPrivate rowheight As IntegerPrivate colwidth(14) As LongPrivate order(14) As BooleanOption ExplicitPrivate Sub SaveInit() startcol = endcol = col = row = rowheight = Dim i As Integer For i = 0 To 1 colwidth(i) = (i).width Next End SubPrivate Sub ResumeInit() = startcol = endcol col, row = rowheight Dim i As Integer For i = 0 To 1 (i).width = colwidth(i) Next (0).Locked = True (1).Locked = True (2).Locked = True (3).Locked = True (4).Locked = True (6).Locked = True (7).Locked = True (8).Locked = True (9).Locked = True (10).Locked = True (11).Locked = True (12).Locked = True End SubPrivate Sub initdatagrid1() (0).width = 500 (1).width = 1000 (2).width = 1000 (3).width = 1000 (4).width = 1000 (5).width = 1000 (6).width = 800 (7).width = 800 (8).width = 800 (9).width = 800 (10).width = 800 (11).width = 800 (12).width = 800 (13).width = 800 (14).width = 800 (0).Locked = True (1).Locked = True (2).Locked = True (3).Locked = True (4).Locked = True (6).Locked = True (7).Locked = True (8).Locked = True (9).Locked = True (10).Locked = True (11).Locked = True (12).Locked = True = 270End SubPrivate Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) On Error Resume Next = (貨物名稱).Value End SubPrivate Sub B新增出庫(kù)單_Click() vbModal SaveInit ResumeInitEnd SubPrivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Dim caption As String caption = (ColIndex).caption If caption = 經(jīng)辦人 Then caption = 姓名 If caption = 金額 Then Exit Sub If caption = 備注 Then caption = If caption = 編號(hào) Then caption = If caption = 客戶 Then caption = 客戶名稱 If caption = 存放倉(cāng)庫(kù) Then caption = 倉(cāng)庫(kù)名稱 = SQL + order by + caption order(ColIndex) = True order(ColIndex) If order(ColIndex) = True Then = + ASC Else = + DESC End If SaveInit ResumeInitEnd SubPrivate Sub Form_Load() = DataConnectString SQL = Set = Adodc1 initdatagrid1 End SubPrivate Sub 打印出庫(kù)單_Click() On Error GoTo quit Dim p As New 新增出庫(kù)單 = (0).Value vbModal Unload p End SubPrivate Sub 刪除出庫(kù)單_Click() On Error GoTo quit If (12).Text = 已退出 Then GoTo con If MsgBox(建議用[退出出庫(kù)單],而不要直接刪除,?, vbYesNo Or vbQuestion) = vbNo Then Exit Subcon: On Error Resume Next Dim code, code1, code2 As Long code = (0).Text = select 貨物編號(hào),出庫(kù)數(shù)量,倉(cāng)庫(kù)編號(hào) from 出庫(kù)單 where 編號(hào)= + Str(code) Dim num1, num2 As Long code1 = (貨物編號(hào)).Value num1 = (出庫(kù)數(shù)量).Value code2 = (倉(cāng)庫(kù)編號(hào)).Value 39。如果是已退出出庫(kù)單則直接刪除 If (12).Text = 已退出 Then