⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 jinhuodan.frm

📁 一个医药进存销程序
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    id = Trecordset3.Fields("id")
    Else
    id = 1
    End If
    Trecordset3.Close
    Gridflex
   '''''''''''''''''''''''''''''''''''''''其他
   Text1.Text = Date
   Text2.Text = "JHD" & Date & "-" & id + 1
   Text1.Enabled = False
   Text2.Enabled = False
End Sub



Private Sub Combo3_Change()
    'Combo3.Clear
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from yaopin where name='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo4.Text = Trecordset2.Fields("baozhuangguige")
       Combo4.AddItem Trecordset2.Fields("baozhuangguige")
    Trecordset2.MoveNext
    Loop
    Trecordset2.MoveFirst
    Do While Not Trecordset2.EOF
       Combo5.Text = Trecordset2.Fields("yaopinjixing")
       Combo5.AddItem Trecordset2.Fields("yaopinjixing")
    Trecordset2.MoveNext
    Loop
    Trecordset2.MoveFirst
    Do While Not Trecordset2.EOF
       Combo6.Text = Trecordset2.Fields("yaopinleixing")
       Combo6.AddItem Trecordset2.Fields("yaopinleixing")
    Trecordset2.MoveNext
    Loop
    Trecordset2.MoveFirst
    Do While Not Trecordset2.EOF
       Label24.Caption = Trecordset2.Fields("pifajia")
       Label25.Caption = Trecordset2.Fields("lingshoujia")
    Trecordset2.MoveNext
    Loop
    Trecordset2.Close
    Set Trecordset2 = Nothing

End Sub

Private Sub Combo3_Click()
    'Combo3.Clear
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from yaopin where name='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo4.Text = Trecordset2.Fields("baozhuangguige")
       Combo4.AddItem Trecordset2.Fields("baozhuangguige")
    Trecordset2.MoveNext
    Loop
    Trecordset2.MoveFirst
    Do While Not Trecordset2.EOF
       Combo5.Text = Trecordset2.Fields("yaopinjixing")
       Combo5.AddItem Trecordset2.Fields("yaopinjixing")
    Trecordset2.MoveNext
    Loop
    Trecordset2.MoveFirst
    Do While Not Trecordset2.EOF
       Combo6.Text = Trecordset2.Fields("yaopinleixing")
       Combo6.AddItem Trecordset2.Fields("yaopinleixing")
    Trecordset2.MoveNext
    Loop
    Trecordset2.MoveFirst
    Do While Not Trecordset2.EOF
       Label24.Caption = Trecordset2.Fields("pifajia")
       Label25.Caption = Trecordset2.Fields("lingshoujia")
    Trecordset2.MoveNext
    Loop
    Trecordset2.Close
    Set Trecordset2 = Nothing
End Sub

Private Sub Command1_Click()
    If Text3.Text = "" Or Text4.Text = "" Then
       MsgBox "价格和数量不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    Text5.Text = Trim(Text3.Text) * Trim(Text4.Text)
    
End Sub

Private Sub Command2_Click()
    Text7.Text = ""
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = False
    Text6.Enabled = True
    Text7.Enabled = True
    Combo1.Enabled = True
    Combo2.Enabled = True
    Combo3.Enabled = True
    Combo4.Enabled = True
    Combo5.Enabled = True
    Combo6.Enabled = True
    Combo7.Enabled = True
    Combo8.Enabled = True
    Combo9.Enabled = True
    Combo10.Enabled = True
    Combo11.Enabled = True
    Combo12.Enabled = True
    
    Command4.Enabled = True
    Command2.Enabled = False
    
    
    Text1.BackColor = &HFFFFFF
    Text2.BackColor = &HFFFFFF
    Text3.BackColor = &HFFFFFF
    Text4.BackColor = &HFFFFFF
    Text5.BackColor = &H80000004
    Text6.BackColor = &HFFFFFF
    Text7.BackColor = &HFFFFFF
    Combo1.BackColor = &HFFFFFF
    Combo2.BackColor = &HFFFFFF
    Combo3.BackColor = &HFFFFFF
    Combo4.BackColor = &HFFFFFF
    Combo5.BackColor = &HFFFFFF
    Combo6.BackColor = &HFFFFFF
    Combo7.BackColor = &HFFFFFF
    Combo8.BackColor = &HFFFFFF
    Combo9.BackColor = &HFFFFFF
    Combo10.BackColor = &HFFFFFF
    Combo11.BackColor = &HFFFFFF
    Combo12.BackColor = &HFFFFFF
End Sub

Private Sub Command3_Click()
    Unload Me
    
End Sub

Private Sub Command4_Click()
   ' Do While Not Trecordset.EOF
    Command1_Click
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
        ' .Source = "Select * from kucun where yaopinming like '%" & Trim(Combo1.Text) & "%'"
         .Source = "Select * from yaopin where name = '" & Trim(Combo3.Text) & "'"
         .Open
    End With

    If Trecordset2.RecordCount > 0 Then
       Trecordset2.MoveFirst
       Text7.Text = Trecordset2.Fields("daima")
    End If
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Trim(Text3.Text) = "" Then
       MsgBox "价格不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Text4.Text) = "" Then
       MsgBox "数量不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo1.Text) = "" Then
       MsgBox "操作员不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo2.Text) = "" Then
       MsgBox "往来单位不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo3.Text) = "" Then
       MsgBox "药品名称不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo4.Text) = "" Then
       MsgBox "包装规格不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo5.Text) = "" Then
       MsgBox "药品剂型不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
     With Trecordset4
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo "
         .Open
    End With
    Trecordset4.AddNew
    Trecordset4.Fields("shijian") = Trim(Text1.Text)
    Trecordset4.Fields("jinhuohao") = Trim(Text2.Text)
    Trecordset4.Fields("caozuoyuan") = Trim(Combo1.Text)
    Trecordset4.Fields("wanglaidanwei") = Trim(Combo2.Text)
    Trecordset4.Fields("yaopinming") = Trim(Combo3.Text)
    Trecordset4.Fields("guige") = Trim(Combo4.Text)
    Trecordset4.Fields("jixing") = Trim(Combo5.Text)
    Trecordset4.Fields("leixing") = Trim(Combo6.Text)
    Trecordset4.Fields("shengchanriqi") = Trim(Combo7.Text) & "-" & Trim(Combo8.Text) & "-" & Trim(Combo9.Text)
    Trecordset4.Fields("youxiaoqi") = Trim(Combo10.Text) & "-" & Trim(Combo11.Text) & "-" & Trim(Combo12.Text)
    Trecordset4.Fields("jiage") = Trim(Text3.Text)
    Trecordset4.Fields("shuliang") = Trim(Text4.Text)
    Trecordset4.Fields("jine") = Trim(Text5.Text)
    Trecordset4.Fields("beizhu") = Trim(Text6.Text)
    Trecordset4.Update
    Trecordset4.Requery
Trecordset4.Close
'''''''''''''''''''''''''''''''''''保存到库存
     With Trecordset5
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from kucun where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    If Trecordset5.RecordCount > 0 Then
    Dim m As Long
    Dim n As Long
    Dim a As Long
    Dim b As Long
    m = Trecordset5.Fields("shuliang")
    n = Trim(Text4.Text)
    a = Trecordset5.Fields("jine")
    b = Trim(Text5.Text)
    Trecordset5.Fields("shuliang") = m + n
    Trecordset5.Fields("jine") = a + b
    Trecordset5.Fields("jiage") = Trecordset5.Fields("jine") / Trecordset5.Fields("shuliang")
    Trecordset5.Update
    
    Else
    Trecordset5.AddNew
    Trecordset5.Fields("wanglaidanwei") = Trim(Combo2.Text)
    Trecordset5.Fields("yaopinming") = Trim(Combo3.Text)
    Trecordset5.Fields("guige") = Trim(Combo4.Text)
    Trecordset5.Fields("jixing") = Trim(Combo5.Text)
    Trecordset5.Fields("leixing") = Trim(Combo6.Text)
    Trecordset5.Fields("shengchanriqi") = Trim(Combo7.Text) & "-" & Trim(Combo8.Text) & "-" & Trim(Combo9.Text)
    Trecordset5.Fields("youxiaoqi") = Trim(Combo10.Text) & "-" & Trim(Combo11.Text) & "-" & Trim(Combo12.Text)
    Trecordset5.Fields("jiage") = Trim(Text3.Text)
    Trecordset5.Fields("shuliang") = Trim(Text4.Text)
    Trecordset5.Fields("jine") = Trim(Text5.Text)
    Trecordset5.Fields("beizhu") = Trim(Text6.Text)
    Trecordset5.Update
    Trecordset5.Requery
       
    End If
    Trecordset5.Close
       
  Gridflex1
  MM = MM + 1
    '''''''''init bar
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Text6.Enabled = False
    Text7.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
    Combo7.Enabled = False
    Combo8.Enabled = False
    Combo9.Enabled = False
    Combo10.Enabled = False
    Combo11.Enabled = False
    Combo12.Enabled = False
    
    Command2.Enabled = True
    Command4.Enabled = False
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text4.BackColor = &H80000004
Text5.BackColor = &H80000004
Text6.BackColor = &H80000004
Text7.BackColor = &H80000004
Combo1.BackColor = &H80000004
Combo2.BackColor = &H80000004
Combo3.BackColor = &H80000004
Combo4.BackColor = &H80000004
Combo5.BackColor = &H80000004
Combo6.BackColor = &H80000004
Combo7.BackColor = &H80000004
Combo8.BackColor = &H80000004
Combo9.BackColor = &H80000004
Combo10.BackColor = &H80000004
Combo11.BackColor = &H80000004
Combo12.BackColor = &H80000004

Label22.Caption = MM
End Sub

Private Sub Command5_Click()
    Load wanglaidanwei
    wanglaidanwei.Show
End Sub

Private Sub Command6_Click()
    Load yaopin
    yaopin.Show
End Sub

Private Sub Form_Load()
    'set the window in the middle
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    MM = 0
    Initial '''''''''''''''''初始化进货单
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If MM = 0 Then
    Else
    
    If MsgBox("需要打印进货单吗？", vbYesNo + vbInformation, "提示") = vbYes Then
'************************************保存
    
    Load print_jinhuo
    print_jinhuo.Show
    End If
    End If

  
End Sub

Private Sub MSFlexGrid1_Click()
       jinhuoID = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0))
       Load jinhuoModify
       jinhuoModify.Show
       Unload jinhuodan
End Sub

Private Sub Text7_Change()
    Combo3.Clear
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
        ' .Source = "Select * from kucun where yaopinming like '%" & Trim(Combo1.Text) & "%'"
         .Source = "Select * from yaopin where daima like '%" & Trim(Text7.Text) & "%'"
         .Open
    End With
    If Trecordset2.RecordCount > 0 Then

        Do While Not Trecordset2.EOF
           Combo3.AddItem Trecordset2.Fields("name")
        Trecordset2.MoveNext
        Loop
    End If
    If Trecordset2.RecordCount > 0 Then
       Trecordset2.MoveFirst
       Combo3.Text = Trecordset2.Fields("name")
    End If
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -