?? 借入單.frm

?? 倉庫源碼。自己制作的。希望大家可以來信息指教
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
    
    
    DataGrid1.Columns(0).Locked = True
    DataGrid1.Columns(1).Locked = True
    DataGrid1.Columns(2).Locked = True
    DataGrid1.Columns(3).Locked = True
    DataGrid1.Columns(4).Locked = True
    DataGrid1.Columns(6).Locked = True
    DataGrid1.Columns(7).Locked = True
    DataGrid1.Columns(8).Locked = True
    DataGrid1.Columns(9).Locked = True
    DataGrid1.Columns(10).Locked = True
    
End Sub


Private Sub initdatagrid1()

    DataGrid1.Columns(0).Width = 500
    DataGrid1.Columns(1).Width = 1000
    DataGrid1.Columns(2).Width = 1000
    DataGrid1.Columns(3).Width = 1000
    DataGrid1.Columns(4).Width = 1000
    DataGrid1.Columns(5).Width = 1000
    DataGrid1.Columns(6).Width = 800
    DataGrid1.Columns(7).Width = 800
    DataGrid1.Columns(8).Width = 800
    DataGrid1.Columns(9).Width = 800
    DataGrid1.Columns(10).Width = 800
    DataGrid1.Columns(11).Width = 800
    DataGrid1.Columns(12).Width = 800

    
    DataGrid1.Columns(0).Locked = True
    DataGrid1.Columns(1).Locked = True
    DataGrid1.Columns(2).Locked = True
    DataGrid1.Columns(3).Locked = True
    DataGrid1.Columns(4).Locked = True
    DataGrid1.Columns(6).Locked = True
    DataGrid1.Columns(7).Locked = True
    DataGrid1.Columns(8).Locked = True
    DataGrid1.Columns(9).Locked = True
    DataGrid1.Columns(10).Locked = True

    
    DataGrid1.rowheight = 270

End Sub

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    
    On Error Resume Next
    Adodc1.caption = Adodc1.Recordset.Fields("貨物名稱").Value
    
End Sub


Private Sub B新增借入單_Click()

    新增借入單.Show vbModal
    
    SaveInit
    Adodc1.Refresh
    ResumeInit
    
End Sub

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    
    On Error Resume Next
    Dim caption As String
    caption = DataGrid1.Columns(ColIndex).caption
    
    If caption = "經辦人" Then caption = "姓名"
    If caption = "金額" Then Exit Sub
    If caption = "備注" Then caption = "借入單.備注"
    If caption = "編號" Then caption = "借入單.編號"
    If caption = "供應商" Then caption = "供應商名稱"
    If caption = "存放倉庫" Then caption = "倉庫名稱"
    
    Adodc1.RecordSource = SQL + " order by " + caption
    
    order(ColIndex) = True - order(ColIndex)
    If order(ColIndex) = True Then
        Adodc1.RecordSource = Adodc1.RecordSource + " ASC"
    Else
        Adodc1.RecordSource = Adodc1.RecordSource + " DESC"
    End If
    
    SaveInit
    Adodc1.Refresh
    ResumeInit
    
End Sub

Private Sub Form_Load()

    Adodc1.ConnectionString = DataConnectString
    SQL = Adodc1.RecordSource
    Set DataGrid1.DataSource = Adodc1
    Adodc1.Refresh
    
    initdatagrid1
    
     '通過權限來初始化控件性質
    If 權限類別(0) = 0 Then B新增借入單.Enabled = False
    If 權限類別(1) = 0 Then DataGrid1.AllowUpdate = False
    If 權限類別(2) = 0 Then
        退出借入單.Enabled = False
        刪除借入單.Enabled = False
    End If
    If 權限類別(8) = 0 Then 打印借入單.Enabled = False
    
End Sub

Private Sub 打印借入單_Click()

    On Error GoTo quit
    Dim p As New 新增借入單
    p.編號 = DataGrid1.Columns(0).Value
    p.Show vbModal
    
    Unload p
    
quit:
    
End Sub

Private Sub 刪除借入單_Click()
    
    On Error GoTo quit
    If DataGrid1.Columns(10).Text = "已還出" Then GoTo con
    If MsgBox("建議用[退出借入單],而不要直接刪除,以免數據丟失.您確信要刪除該借入單嗎?", vbYesNo Or vbQuestion) = vbNo Then Exit Sub
con:
   
    On Error Resume Next
    Dim code, code1, code2 As Long
    code = DataGrid1.Columns(0).Text
    
    fMainForm.m_checkado.RecordSource = "select 貨物編號,借入數量,倉庫編號 from 借入單 where 編號=" + Str(code)
    fMainForm.m_checkado.Refresh
    
    Dim num1, num2 As Long
    code1 = fMainForm.m_checkado.Recordset.Fields("貨物編號").Value
    num1 = fMainForm.m_checkado.Recordset.Fields("借入數量").Value
    code2 = fMainForm.m_checkado.Recordset.Fields("倉庫編號").Value
    
    '如果是已退出借入單則直接刪除
    If DataGrid1.Columns(12).Text = "已還出" Then
        If MsgBox("您確信要刪除該借入退出單嗎?", vbYesNo Or vbQuestion) = vbNo Then Exit Sub
    
        fMainForm.m_checkado.RecordSource = "select * from 借入單 where 編號=" + Str(code)
        fMainForm.m_checkado.Refresh
        fMainForm.m_checkado.Recordset.Delete
        fMainForm.m_checkado.Refresh
        
        SaveInit
        Adodc1.Refresh
        ResumeInit
        Exit Sub
    End If
    
    
    fMainForm.m_checkado.RecordSource = "select 庫存數量 from 庫存狀況 where 貨物編號=" + Str(code1) + " and 倉庫編號=" + Str(code2)
    fMainForm.m_checkado.Refresh
    
    '當前庫存數量num2
    num2 = fMainForm.m_checkado.Recordset.Fields("庫存數量").Value

    '庫存不足
    If num2 < num1 Then
        If MsgBox("庫存不足,庫存量為" + Str(num2) + ",需求量為" + Str(num1) + "," + "要忽略它并強制刪除嗎?", vbQuestion Or vbYesNo) = vbNo Then Exit Sub
    End If
    '更新庫存狀況
    If num2 - num1 > 0 Then
        fMainForm.m_checkado.Recordset.Fields("庫存數量").Value = num2 - num1
        fMainForm.m_checkado.Recordset.update
    Else '如果庫存為零清空
        fMainForm.m_checkado.Recordset.Delete
    End If
    
    fMainForm.m_checkado.Refresh
    '更新借入單
    fMainForm.m_checkado.RecordSource = "select * from 借入單 where 編號=" + Str(code)
    fMainForm.m_checkado.Refresh
    fMainForm.m_checkado.Recordset.Delete
    fMainForm.m_checkado.Refresh
        
    SaveInit
    Adodc1.Refresh
    ResumeInit
    
    MsgBox "借入單刪除成功!"
    '寫入系統日志
    fMainForm.WriteLog ("刪除借入單")

quit:

End Sub

Private Sub 退出借入單_Click()

    On Error GoTo quit
    Dim code, code1, code2 As Long
    code = DataGrid1.Columns(0).Text
    If DataGrid1.Columns(10).Text = "已還出" Then
        MsgBox "該借入單已還出!"
        Exit Sub
    End If
    
    On Error Resume Next
    
    fMainForm.m_checkado.RecordSource = "select 貨物編號,借入數量,倉庫編號 from 借入單 where 編號=" + Str(code)
    fMainForm.m_checkado.Refresh
    
    Dim num1, num2 As Long
    code1 = fMainForm.m_checkado.Recordset.Fields("貨物編號").Value
    num1 = fMainForm.m_checkado.Recordset.Fields("借入數量").Value
    code2 = fMainForm.m_checkado.Recordset.Fields("倉庫編號").Value
    
    fMainForm.m_checkado.RecordSource = "select 庫存數量 from 庫存狀況 where 貨物編號=" + Str(code1) + " and 倉庫編號=" + Str(code2)
    fMainForm.m_checkado.Refresh
    
    '當前庫存數量num2
    num2 = fMainForm.m_checkado.Recordset.Fields("庫存數量").Value

    '庫存不足
    If num2 < num1 Then
        MsgBox "庫存不足,庫存量為" + Str(num2) + ",需求量為" + Str(num1) + "."
        Exit Sub
    Else
    '更新庫存狀況
        If num2 - num1 > 0 Then
            fMainForm.m_checkado.Recordset.Fields("庫存數量").Value = num2 - num1
            fMainForm.m_checkado.Recordset.update
        Else '如果庫存為零清空
            fMainForm.m_checkado.Recordset.Delete
        End If
        fMainForm.m_checkado.Refresh
    '更新借入單
        fMainForm.m_checkado.RecordSource = "select * from 借入單 where 編號=" + Str(code)
        fMainForm.m_checkado.Refresh
        fMainForm.m_checkado.Recordset.Fields("定單狀況") = "已還出"
        fMainForm.m_checkado.Recordset.update
        fMainForm.m_checkado.Refresh
        
        SaveInit
        Adodc1.Refresh
        ResumeInit
        
        MsgBox "借入單退出成功!"
        '寫入系統日志
        fMainForm.WriteLog ("退出借入單")
    End If
    
quit:
End Sub


'此源碼由程序太平洋收集整理發布,任何人都可自由轉載,但需保留本站信息
'╭⌒╮┅~ ¤　歡迎光臨程序太平洋╭⌒╮
'╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
',︶︶︶︶,''︶~~ ,''~︶︶　 ,''
'╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
'╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
'╬　　　　　　　http://www.5ivb.net ╬
'╬　 ╭○╮●　                   　╬
'╬　　/■\/■\　　                  ╬
'╬　　 <|　||　   有希望,就有成功！ ╬
'╬　　　　　　　　　　　　　　　　　╬
'╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
'
'說明：
'專業提供VB、．NET、Delphi、ASP、PB源碼下載
'包括:程序源碼,控件,商業源碼,系統方案，開發工具，書籍教程，技術文檔
上一頁 12
?? 文件大小 602 K
?? 上傳用戶 shanon
?? 所屬分類其他數據庫
??? 相關標簽

#倉庫 #源碼 #家
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 借入單.frm

?? 快捷鍵說明
