亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? frm_dhb.frm

?? 近期學習中的采購管理系統
?? FRM
?? 第 1 頁 / 共 3 頁
字號: 
      Height          =   375
      Left            =   5400
      TabIndex        =   31
      Top             =   2400
      Width           =   1215
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Left            =   2760
      TabIndex        =   32
      Top             =   2280
      Width           =   1215
   End
End
Attribute VB_Name = "frm_dhb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim c, number1
Private Sub Cmd_add_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo1.Text = ""
Combo3.Text = ""
Dim temp1
temp1 = Format(Now, "yyyymmdd")
Adodc1.RecordSource = "select * from Table_dhb where 到貨單號 like '%" + temp1 + "%'order by 到貨單號"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1.Text = Adodc1.Recordset.Fields("到貨單號")
Text1.Text = Val(Adodc1.Recordset.Fields("到貨單號")) + 1
Else
Text1.Text = Format(Date, "yyyymmdd")
Text1.Text = Text1.Text + "0000"
End If
Adodc1.RecordSource = "select * from Table_dhb order by 到貨單號"
Adodc1.Refresh
Text2.SetFocus
Text1.Locked = True
Cmd_save.Enabled = True
Cmd_add.Enabled = False
End Sub

Private Sub Cmd_cancel_Click()
Text1.Locked = False
Cmd_del.Enabled = False
Cmd_save.Enabled = False
Cmd_edit.Enabled = False
Call Cmd_add_Click
Cmd_add.Enabled = True
End Sub

Private Sub Cmd_del_Click()
Adodc1.RecordSource = "select * from Table_dhb"
'Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
c = MsgBox("確認要刪除該信息嗎？", 17, "采購管理系統")
If c = vbOK Then
Adodc1.Recordset.Delete
Else
End If
Else
MsgBox "數據庫中的信息為空,沒有可刪除的信息!!", 64, "采購管理系統"
End If
End Sub

Private Sub Cmd_edit_Click()    '修改到貨信息
Call main
  c = MsgBox("確認要修改該信息嗎？", 33, "采購管理系統")
  If c = vbOK Then
  Adodc1.Recordset.Delete
  Check1.Value = 1
  Text4.Text = "到貨"
    Set adoRs = adoCon.Execute("insert into Table_dhb values(" & Text1 & ",'" & Text9 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "','" & DT1 & "','" & DT2 & "','" & Combo3 & "','" & Text5 & "','" & Text6 & "','" & Text10 & "','" & Text11 & "','" & Text12 & "','" & DT3 & "','" & Text7 & "','" & Check1 & "','" & Text4 & "')")
  MsgBox "數據保存成功!!", 32, "采購管理系統"
  Cmd_edit.Enabled = False
  Else
  End If
  Adodc1.RecordSource = "select * from Table_dhb order by 單號"
  Adodc1.Refresh
adoCon.Close
End Sub

Private Sub Cmd_exit_Click()
Unload Me
End Sub

Private Sub Cmd_refurbish_Click()
Unload Me
frm_cgclgl.Refresh
frm_cgclgl.Show
End Sub

Private Sub Cmd_save_Click()
Call main
If Combo1.Text = "" Then
MsgBox "供應商編號不能為空值!!"
Combo1.SetFocus
Else
Adodc1.RecordSource = "select * from Table_dhb where 到貨單號='" + Text1.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
c = MsgBox("確認要保存該信息嗎？", 33, "采購管理系統")
If c = vbOK Then
  Adodc2.RecordSource = "select * from Table_cgdd where 單號='" + Text9.Text + "'"
  Adodc2.Refresh
  If Adodc2.Recordset.RecordCount > 0 Then
  number1 = Val(Text12.Text) - Val(Text11.Text)
    If Val(number1) > Val(Adodc2.Recordset.Fields("數量")) Then
    MsgBox "對不起,輸入的到貨數量非法,因為到貨數量大于該貨物的訂單數量!!", 64, "采購管理系統"
    ElseIf Val(number1) = Val(Adodc2.Recordset.Fields("數量")) Then
    Set adoRs = adoCon.Execute("UPDATE Table_cgdd SET 狀態= '全部到貨',是否到貨=1 where 單號='" + Text9.Text + "'")
    Check1.Value = 1
    Text4.Text = "全部到貨"
    Set adoRs = adoCon.Execute("insert into Table_dhb values(" & Text1 & ",'" & Text9 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "','" & DT1 & "','" & DT2 & "','" & Combo3 & "','" & Text5 & "','" & Text6 & "','" & Text10 & "','" & Text11 & "','" & Text12 & "','" & DT3 & "','" & Text7 & "','" & Check1 & "','" & Text4 & "')")
    MsgBox "數據保存成功!!", 32, "采購管理系統"
    Cmd_save.Enabled = False
    Cmd_add.Enabled = True
    ElseIf Val(number1) < Val(Adodc2.Recordset.Fields("數量")) Then
    Dim number, menory
    number = Val(Adodc2.Recordset.Fields("數量")) - Val(Text12.Text) + Val(Text11.Text)
    menory = Val(number) * Val(Adodc2.Recordset.Fields("單價"))
    Set adoRs = adoCon.Execute("UPDATE Table_cgdd SET 狀態= '部分到貨',數量='" + Str(number) + "',金額='" + Str(menory) + "' where 單號='" + Text9.Text + "'")
    Check1.Value = 0
    Text4.Text = "部分到貨"
    Set adoRs = adoCon.Execute("insert into Table_dhb values(" & Text1 & ",'" & Text9 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "','" & DT1 & "','" & DT2 & "','" & Combo3 & "','" & Text5 & "','" & Text6 & "','" & Text10 & "','" & Text11 & "','" & Text12 & "','" & DT3 & "','" & Text7 & "','" & Check1 & "','" & Text4 & "')")
    MsgBox "數據保存成功!!", 32, "采購管理系統"
    Cmd_save.Enabled = False
    Cmd_add.Enabled = True
    Else
    End If
Else
End If
Else
End If
Else
MsgBox "對不起,該信息已經保存過,不能夠再進行保存", 64, "采購管理系統"
End If
End If
Adodc1.RecordSource = "select * from Table_dhb order by 單號"
Adodc1.Refresh
adoCon.Close
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
  DT1.SetFocus
  Else
  End If
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text7.SetFocus
Else
End If
End Sub
Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text5.SetFocus
Else
End If
End Sub

Private Sub DataGrid1_Click()
        Adodc1.RecordSource = "select * from Table_dhb where 單號='" + Text8.Text + "'"
'        Adodc1.Refresh
            If Adodc1.Recordset.RecordCount > 0 Then
            Text1.Text = Adodc1.Recordset.Fields("到貨單號")
            Text9.Text = Adodc1.Recordset.Fields("單號")
            Text2.Text = Adodc1.Recordset.Fields("貨物名稱")
            Text3.Text = Adodc1.Recordset.Fields("批號")
            Text5.Text = Adodc1.Recordset.Fields("單價")
            Text6.Text = Adodc1.Recordset.Fields("訂單數量")
            Text7.Text = Adodc1.Recordset.Fields("備注")
            Text10.Text = Adodc1.Recordset.Fields("報損數量")
            Text11.Text = Adodc1.Recordset.Fields("報溢數量")
            Text12.Text = Adodc1.Recordset.Fields("數量")
            DT1.Value = Adodc1.Recordset.Fields("收貨日期")
            DT2.Value = Adodc1.Recordset.Fields("發單日期")
'            DT3.Value = Adodc1.Recordset.Fields("到貨日期")
            Combo1.Text = Adodc1.Recordset.Fields("供應商編號")
            Combo3.Text = Adodc1.Recordset.Fields("單位")
        Else
        End If
End Sub

Private Sub DT1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
DT2.SetFocus
Else
End If
End Sub

Private Sub DT2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Combo3.SetFocus
Else
End If
End Sub

Private Sub DT3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text7.SetFocus
Else
End If
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
DT3.Value = Date
frm_main.StatusBar1.Panels(1).Text = " 當前操作： " & Me.Caption
End Sub

Private Sub Text10_Change()
Text12.Text = Val(Text6.Text) + Val(Text11.Text) - Val(Text10.Text)
End Sub

Private Sub Text11_Change()
Text12.Text = Val(Text6.Text) + Val(Text11.Text) - Val(Text10.Text)
End Sub

Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Not IsNumeric(Text11.Text) Then
 MsgBox "輸入的數量信息必須為數值型數據"
Text11.Text = ""
Text11.SetFocus
Else
DT3.SetFocus
End If
Else
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    If Cmd_add.Enabled = False Then
    frm_dhd_temp.Show
    frm_dhd_temp.DataGrid1.SetFocus
    Else
        If Not IsNumeric(Text1.Text) Then
        MsgBox "輸入的到貨編號必須為數字"
        Text1.Text = ""
        Text1.SetFocus
        Else
        Adodc1.RecordSource = "select * from Table_dhb where 到貨單號='" + Text1.Text + "'"
        Adodc1.Refresh
            If Adodc1.Recordset.RecordCount > 0 Then
            Cmd_del.Enabled = True
            Cmd_save.Enabled = True
            Cmd_edit.Enabled = True
            Text1.Text = Adodc1.Recordset.Fields("到貨單號")
            Text9.Text = Adodc1.Recordset.Fields("單號")
            Text2.Text = Adodc1.Recordset.Fields("貨物名稱")
            Text3.Text = Adodc1.Recordset.Fields("批號")
            Text5.Text = Adodc1.Recordset.Fields("單價")
            Text6.Text = Adodc1.Recordset.Fields("訂單數量")
            Text7.Text = Adodc1.Recordset.Fields("備注")
            DT1.Value = Adodc1.Recordset.Fields("收貨日期")
            DT2.Value = Adodc1.Recordset.Fields("發單日期")
            Text12.Text = Adodc1.Recordset.Fields("數量")
'            DT3.Value = Adodc1.Recordset.Fields("到貨日期")
            Combo1.Text = Adodc1.Recordset.Fields("供應商編號")
            Combo3.Text = Adodc1.Recordset.Fields("單位")
            Else
            MsgBox "對不起,沒有符合條件的到貨信息!!", 64, "采購管理系統"
            End If
       End If
   End If
 Else
 End If
End Sub

Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Not IsNumeric(Text10.Text) Then
 MsgBox "輸入的數量信息必須為數值型數據"
Text10.Text = ""
Text10.SetFocus
Else
Text11.SetFocus
End If
Else
End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    If Cmd_add.Enabled = False Then
    frm_dhd_temp.Show
    frm_dhd_temp.DataGrid1.SetFocus
    Else
        If Not IsNumeric(Text1.Text) Then
        MsgBox "輸入的到貨編號必須為數字"
        Text1.Text = ""
        Text1.SetFocus
        Else
        Adodc1.RecordSource = "select * from Table_dhb where 到貨單號='" + Text1.Text + "'"
        Adodc1.Refresh
            If Adodc1.Recordset.RecordCount > 0 Then
            Cmd_del.Enabled = True
            Cmd_save.Enabled = True
            Cmd_edit.Enabled = True
            Text1.Text = Adodc1.Recordset.Fields("到貨單號")
            Text9.Text = Adodc1.Recordset.Fields("單號")
            Text2.Text = Adodc1.Recordset.Fields("貨物名稱")
            Text3.Text = Adodc1.Recordset.Fields("批號")
            Text5.Text = Adodc1.Recordset.Fields("單價")
            Text6.Text = Adodc1.Recordset.Fields("訂單數量")
            Text7.Text = Adodc1.Recordset.Fields("備注")
            DT1.Value = Adodc1.Recordset.Fields("收貨日期")
            DT2.Value = Adodc1.Recordset.Fields("發單日期")
            Text12.Text = Adodc1.Recordset.Fields("數量")
'            DT3.Value = Adodc1.Recordset.Fields("到貨日期")
            Combo1.Text = Adodc1.Recordset.Fields("供應商編號")
            Combo3.Text = Adodc1.Recordset.Fields("單位")
            Else
            MsgBox "對不起,沒有符合條件的到貨信息!!", 64, "采購管理系統"
            End If
       End If
   End If
 Else
 End If
End Sub

Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Not IsNumeric(Text5.Text) Then
 MsgBox "輸入的數量信息必須為數值型數據"
Text5.Text = ""
Text5.SetFocus
Else
Text6.SetFocus
End If
Else
End If
End Sub

Private Sub Text6_Change()
Text12.Text = Val(Text6.Text) + Val(Text11.Text) - Val(Text10.Text)
End Sub

Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text10.SetFocus
Else
End If
End Sub

Private Sub Text6_LostFocus()
If Not IsNumeric(Text6.Text) Then
 MsgBox "輸入的數量信息必須為數值型數據"
Text6.Text = ""
Text6.SetFocus
Else
End If
End Sub

Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call Cmd_save_Click
Else
End If
End Sub
Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  frm_cgyxx_temp.Show
  frm_cgyxx_temp.DataGrid1.SetFocus
Else
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
  frm_main.StatusBar1.Panels(1).Text = " 吉林省明日科技有限公司"
End Sub

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲欧美日韩国产中文在线| 欧美日韩亚洲综合在线| 欧美熟乱第一页| 视频在线观看一区二区三区| 欧美性做爰猛烈叫床潮| 欧美精选午夜久久久乱码6080| 亚洲一区二区四区蜜桃| 91精品国产91久久久久久最新毛片| 香蕉久久夜色精品国产使用方法| 91精品国产综合久久蜜臀| 99在线精品观看| 天天色天天爱天天射综合| 亚洲欧洲日本在线| 日韩欧美的一区| 欧美日韩国产高清一区二区三区| 国产一区二区剧情av在线| 亚洲色图19p| 亚洲人xxxx| 免费看欧美美女黄的网站| 中文字幕字幕中文在线中不卡视频| 国产精品久久久久久久久久久免费看| 欧美日韩国产一二三| 欧美xxxxx牲另类人与| 欧美视频日韩视频| 久久综合av免费| 日韩视频在线你懂得| 欧美精品乱码久久久久久| 国产欧美日韩三级| 久久久久久久综合色一本| 国产偷国产偷精品高清尤物| 国产成人av一区二区三区在线 | 精品国产露脸精彩对白| 欧美三级视频在线观看| 国产日韩欧美精品在线| 久久97超碰国产精品超碰| 人禽交欧美网站| 欧美电视剧免费观看| 91美女片黄在线观看| 午夜国产精品一区| 91丝袜高跟美女视频| 欧美日韩国产综合一区二区三区 | 久久久综合精品| 黑人巨大精品欧美一区| 捆绑紧缚一区二区三区视频| 国产一区二区剧情av在线| 久久久久国产精品免费免费搜索| 久久99热狠狠色一区二区| 日韩一级视频免费观看在线| 夜夜嗨av一区二区三区四季av| 国产精品久久久久影院| 成人精品鲁一区一区二区| 欧美午夜精品一区二区三区| 精品一区二区在线免费观看| 日韩免费视频线观看| 国产成人免费在线| 夜夜嗨av一区二区三区中文字幕| 欧美性感一区二区三区| 免费视频最近日韩| 成人免费视频在线观看| 在线观看91精品国产入口| 欧美大黄免费观看| 成人国产免费视频| 舔着乳尖日韩一区| 欧美激情中文字幕一区二区| 丝袜a∨在线一区二区三区不卡| 91精品国产综合久久久久久漫画| 国产91丝袜在线播放九色| 欧美精三区欧美精三区| 99久久精品99国产精品| 精品久久一区二区| 欧美日韩另类一区| proumb性欧美在线观看| 精品中文字幕一区二区| 亚洲免费观看高清完整版在线观看熊 | 香蕉加勒比综合久久| 自拍偷拍欧美激情| 国产欧美精品区一区二区三区| 欧美日韩久久一区| 欧美综合一区二区三区| av电影在线观看一区| 国产69精品一区二区亚洲孕妇| 日韩av在线发布| 精品国产一区二区三区久久影院 | 亚洲综合在线视频| 亚洲视频一区二区在线观看| 国产精品视频免费| 91久久精品一区二区三| 亚洲成人激情av| 亚洲第一会所有码转帖| 日韩国产精品91| 美女精品一区二区| 日韩一区有码在线| 亚洲国产精品嫩草影院| 久久久久久夜精品精品免费| 久久精品人人做人人爽人人| 日韩欧美一二区| 欧美国产一区视频在线观看| 中文字幕乱码一区二区免费| 亚洲国产精品黑人久久久| 国产精品传媒入口麻豆| 中文字幕制服丝袜一区二区三区 | 日韩免费看网站| 中文字幕av在线一区二区三区| 亚洲欧美日韩国产一区二区三区| 亚洲三级在线免费| 日韩高清在线一区| 粉嫩蜜臀av国产精品网站| 色综合网站在线| 国内成人自拍视频| 在线一区二区三区| 久久久久亚洲综合| 日韩制服丝袜先锋影音| 成人丝袜视频网| 成人小视频免费观看| 欧美日韩极品在线观看一区| 久久精品亚洲乱码伦伦中文| 日本伊人色综合网| 91在线视频免费91| 欧美mv日韩mv| 日韩影视精彩在线| 欧美日韩精品一区二区天天拍小说| 337p粉嫩大胆色噜噜噜噜亚洲| 亚洲一二三级电影| 欧美性受xxxx黑人xyx性爽| 中文一区在线播放| 成人禁用看黄a在线| 欧美经典一区二区| 成人午夜伦理影院| 国产欧美日产一区| 国产黄色成人av| 中文字幕av免费专区久久| 国产精品一卡二卡在线观看| 粉嫩一区二区三区在线看| 国产亚洲视频系列| 国产91色综合久久免费分享| 国产亚洲综合色| 成人久久视频在线观看| 亚洲欧美激情视频在线观看一区二区三区 | 精品一区二区国语对白| 精品久久久网站| 韩国女主播成人在线观看| 久久久高清一区二区三区| 国产精品一二三区在线| 国产精品久久久久aaaa| 91福利社在线观看| 久草在线在线精品观看| 欧美激情一区二区三区不卡 | 亚洲美腿欧美偷拍| 欧美日韩中文字幕一区二区| 蜜桃视频一区二区三区| 国产欧美视频一区二区三区| 96av麻豆蜜桃一区二区| 日本特黄久久久高潮| 国产精品乱码人人做人人爱| 欧美日本一区二区在线观看| 极品美女销魂一区二区三区 | 91丝袜高跟美女视频| 久久精品久久综合| 亚洲精品视频一区| 国产成人免费xxxxxxxx| 曰韩精品一区二区| 国产精品理伦片| 精品福利视频一区二区三区| 色噜噜狠狠色综合中国| 狠狠色狠狠色综合日日91app| 亚洲一二三区不卡| 1区2区3区国产精品| 国产精品午夜免费| 欧美成人精品福利| 日韩精品一区二区三区四区| 在线成人免费视频| 欧美色图片你懂的| 欧美日韩视频不卡| 欧美视频在线一区| 欧美高清视频www夜色资源网| 99免费精品视频| 91理论电影在线观看| 99热这里都是精品| 一本色道久久综合亚洲精品按摩| 久久久久亚洲蜜桃| 国产女同互慰高潮91漫画| 国产精品初高中害羞小美女文| 国产日韩av一区二区| 国产精品毛片大码女人| 樱桃国产成人精品视频| 亚洲成av人在线观看| 精品一区二区国语对白| 丁香六月综合激情| 欧美午夜在线观看| 日韩欧美国产综合一区| 国产欧美一区视频| 一区二区视频在线看| 麻豆国产欧美一区二区三区| 国产成人自拍在线| 69精品人人人人| 国产精品久久久久久久久久免费看| 亚洲妇女屁股眼交7| 国产91清纯白嫩初高中在线观看 | 蜜臀av一区二区在线观看| 成人黄色在线视频|