frmretreat.frm

本科毕业设计-商贸有限公司销售管理系统(论文+源代码+答辩PPT)

      Height          =   375
      Left            =   3240
      TabIndex        =   21
      Top             =   1080
      Width           =   735
   End
   Begin VB.Label lblfcname 
      Caption         =   "客户名称："
      Height          =   495
      Left            =   120
      TabIndex        =   20
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label lblgoodsname 
      Caption         =   "商品名称："
      Height          =   255
      Left            =   3120
      TabIndex        =   19
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label lblretreatno 
      Caption         =   "退货编号："
      Height          =   375
      Left            =   120
      TabIndex        =   18
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label lblem 
      Caption         =   "业务员编号："
      Height          =   255
      Left            =   120
      TabIndex        =   17
      Top             =   3600
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "年"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2160
      TabIndex        =   16
      Top             =   2760
      Width           =   255
   End
   Begin VB.Label Label2 
      Caption         =   "月"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   15
      Top             =   2760
      Width           =   375
   End
   Begin VB.Label Label3 
      Caption         =   "日"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4200
      TabIndex        =   14
      Top             =   2760
      Width           =   375
   End
   Begin VB.Label Labelmoney 
      Caption         =   "退货总金额为："
      Height          =   255
      Left            =   2880
      TabIndex        =   13
      Top             =   3600
      Width           =   2655
   End
End
Attribute VB_Name = "frmRetreat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
   Dim rs_custom As New ADODB.Recordset
   Dim rs_name As New ADODB.Recordset
   Dim rs_supply As New ADODB.Recordset
   Dim rs_back As New ADODB.Recordset
   Dim rs_check As New ADODB.Recordset
   Dim rs_buy As New ADODB.Recordset
   Dim rs_buybad As New ADODB.Recordset
  
Private Sub cmdReset_Click()
   Comboname.Text = ""
   Combo1.Text = ""
   Combo3.Text = ""
   txtType.Text = ""
   txtPrice.Text = ""
   txtQuantity.Text = ""
   Comboy.Text = ""
   Combom.Text = ""
   Combod.Text = ""
   txtemployee.Text = ""
   Txtmoney.Text = ""
   Combo2.Text = ""
   Option1.Value = False
   Option2.Value = False
End Sub

Private Sub cmdRetreat_Click()
      txtGoodsNo.Enabled = False
    Dim price As Currency
    Dim quantity As Double
    Dim money As Currency
    price = Val(txtPrice.Text)
    quantity = txtQuantity.Text
    money = price * quantity
    Txtmoney.Text = money
   If Combo1.Text = "" Then
       MsgBox "请填写客户名称！", vbOKOnly + vbInformation, "注意"
       Combo1.SetFocus
       Exit Sub
   ElseIf Combo3.Text = "" Then
       MsgBox "请填写生产厂商名称！", vbOKOnly + vbInformation, "注意"
       Combo3.SetFocus
       Exit Sub
    ElseIf Comboname.Text = "" Then
       MsgBox "请填写商品名称！", vbOKOnly + vbInformation, "注意"
       Comboname.SetFocus
       Exit Sub
    ElseIf txtType.Text = "" Then
       MsgBox "请填写商品型号！", vbOKOnly + vbInformation, "注意"
       txtType.SetFocus
       Exit Sub
    ElseIf txtPrice.Text = "" Then
       MsgBox "请填写商品价格！", vbOKOnly + vbInformation, "注意"
       txtPrice.SetFocus
       Exit Sub
    ElseIf Not IsNumeric(txtPrice.Text) Then
        MsgBox "商品价格请输入数字！", vbOKOnly + vbExclamation, ""
        txtPrice.SetFocus
       Exit Sub
    ElseIf txtQuantity.Text = "" Then
       MsgBox "请填写商品数量！", vbOKOnly + vbInformation, "注意"
       txtQuantity.SetFocus
       Exit Sub
    ElseIf Not IsNumeric(txtQuantity.Text) Then
        MsgBox "商品数量请输入数字！", vbOKOnly + vbExclamation, ""
        txtQuantity.SetFocus
       Exit Sub
    ElseIf Comboy.Text = "" Then
       MsgBox "请填写退货年份！", vbOKOnly + vbInformation, "注意"
       Comboy.SetFocus
       Exit Sub
    ElseIf Combom.Text = "" Then
       MsgBox "请填写退货月份！", vbOKOnly + vbInformation, "注意"
       Combom.SetFocus
       Exit Sub
    ElseIf Combod.Text = "" Then
       MsgBox "请填写退货日！", vbOKOnly + vbInformation, "注意"
       Combod.SetFocus
       Exit Sub
    ElseIf txtemployee.Text = "" Then
       MsgBox "请填写业务员姓名！", vbOKOnly + vbInformation, "注意"
       txtemployee.SetFocus
       Exit Sub
    ElseIf Combo2.Text = "" Then
       MsgBox "请填写计量单位！", vbOKOnly + vbInformation, "注意"
       Combo2.SetFocus
       Exit Sub
    ElseIf Txtmoney.Text = "" Then
       MsgBox "请填写退货总金额！", vbOKOnly + vbInformation, "注意"
       Txtmoney.SetFocus
       Exit Sub
    ElseIf Not IsNumeric(Txtmoney.Text) Then
        MsgBox "商品总金额请输入数字！", vbOKOnly + vbExclamation, ""
        Txtmoney.SetFocus
       Exit Sub
    ElseIf Option1.Value = False And Option2.Value = False Then
    MsgBox "请选择退回的商品是好的，还是坏的！", vbOKOnly + vbExclamation, ""
        Exit Sub
  End If
    Dim sqlcheck As String
    sqlcheck = "select * from sell where 商品名='" & Comboname.Text & _
   "'and 客户名称='" & Combo1.Text & "'and 型号='" & txtType.Text & "'"
   rs_check.CursorLocation = adUseClient
   rs_check.Open sqlcheck, conn, adOpenKeyset, adLockPessimistic
   If rs_check.EOF = True Then
      MsgBox "对不起，没有销售此商品型号！无法退货！", vbOKOnly + vbInformation, "注意"
      rs_check.Close
      Exit Sub
   ElseIf (rs_check.Fields(6)) < Val(txtQuantity.Text) Then    '使用val 函数把text中的字符转变为数字
      MsgBox "此型号商品退货量大于销售量！无法退货！", vbOKOnly + vbInformation, "注意"
      rs_check.Close
      Exit Sub
   Else
     
   '需要进行三次数据库操作，加入退货表，加入现存商品表或废品库，从销售表中减去
        
       '加入退货表
   Dim sqlback As String
   sqlback = "select * from retreat"
   rs_back.Open sqlback, conn, adOpenKeyset, adLockPessimistic
   rs_back.AddNew
       rs_back.Fields(1) = Combo1.Text
       rs_back.Fields(2) = Combo3.Text
       rs_back.Fields(3) = Comboname.Text
       rs_back.Fields(4) = txtType.Text
       rs_back.Fields(5) = txtPrice.Text
       rs_back.Fields(6) = Val(txtQuantity.Text)
       rs_back.Fields(7) = Val(Txtmoney.Text)
       rs_back.Fields(8) = Comboy.Text
       rs_back.Fields(9) = Combom.Text
       rs_back.Fields(10) = Combod.Text
       rs_back.Fields(11) = txtemployee.Text
       rs_back.Fields(12) = Combo2.Text
   rs_back.Update
   rs_back.Close
    
   '从销售商品表中减去
  
   '以下两变量用于保存未减去之前的相应项的值
   Dim oldquantity As Long
   oldquantity = rs_check.Fields(6)
   rs_check.Fields(6) = oldquantity - Val(txtQuantity.Text)
   rs_check.Fields(7) = rs_check.Fields(7) - Val(Txtmoney.Text)
   rs_check.Update
   rs_check.Close
       
  If Option1.Value = True Then '加入现存商品表中
   Dim sqlbuy As String
   sqlbuy = "select * from goods"
   rs_buy.Open sqlbuy, conn, adOpenKeyset, adLockPessimistic
   rs_buy.AddNew
       rs_buy.Fields(1) = Combo3.Text
       rs_buy.Fields(2) = Comboname.Text
       rs_buy.Fields(3) = txtType.Text
       rs_buy.Fields(4) = txtPrice.Text
       rs_buy.Fields(5) = Val(txtQuantity.Text)
       rs_buy.Fields(6) = Val(Txtmoney.Text)
       rs_buy.Fields(7) = Comboy.Text
       rs_buy.Fields(8) = Combom.Text
       rs_buy.Fields(9) = Combod.Text
       rs_buy.Fields(10) = txtemployee.Text
       rs_buy.Fields(11) = Combo2.Text
   rs_buy.Update
   rs_buy.Close
  
   '加入废品库表中
   ElseIf Option2.Value = True Then
   sqlbuy = "select * from badgoods"
   rs_buybad.Open sqlbuy, conn, adOpenKeyset, adLockPessimistic
   rs_buybad.AddNew
       rs_buybad.Fields(1) = Combo1.Text
       rs_buybad.Fields(2) = Combo3.Text
       rs_buybad.Fields(3) = Comboname.Text
       rs_buybad.Fields(4) = txtType.Text
       rs_buybad.Fields(5) = txtPrice.Text
       rs_buybad.Fields(6) = Val(txtQuantity.Text)
       rs_buybad.Fields(7) = Val(Txtmoney.Text)
       rs_buybad.Fields(8) = Comboy.Text
       rs_buybad.Fields(9) = Combom.Text
       rs_buybad.Fields(10) = Combod.Text
       rs_buybad.Fields(11) = txtemployee.Text
       rs_buybad.Fields(12) = Combo2.Text
   rs_buybad.Update
   rs_buybad.Close
   End If
   
   MsgBox "退货成功！", vbOKOnly + vbExclamation, "注意"
  Exit Sub
  End If
End Sub
Private Sub Form_Load()
   Dim X0 As Long
   Dim Y0 As Long
  
   '让窗体居中
   X0 = Screen.Width
   Y0 = Screen.Height
   X0 = (X0 - Me.Width) / 2
   Y0 = (Y0 - Me.Height) / 2
   Me.Move X0, Y0
   
   Dim sql As String
   sql = "select * from customername"
   rs_custom.CursorLocation = adUseClient
   rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic
   While Not rs_custom.EOF
      Combo1.AddItem rs_custom.Fields(0)
      rs_custom.MoveNext
   Wend
   rs_custom.Close
   
   Dim sqlsu As String
   sqlsu = "select * from supplyername"
   rs_supply.CursorLocation = adUseClient
   rs_supply.Open sqlsu, conn, adOpenKeyset, adLockPessimistic
   While Not rs_supply.EOF
      Combo3.AddItem rs_supply.Fields(0)
      rs_supply.MoveNext
   Wend
   rs_supply.Close
   
   Dim sqlsu1 As String
   sqlsu1 = "select * from goodsname"
   rs_name.CursorLocation = adUseClient
   rs_name.Open sqlsu1, conn, adOpenKeyset, adLockPessimistic
   While Not rs_name.EOF
      Comboname.AddItem rs_name.Fields(0)
      rs_name.MoveNext
   Wend
   rs_name.Close
   
    For i = 2003 To 2050
    Comboy.AddItem i
    Next i
    For i = 1 To 12
    Combom.AddItem i
    Next i
    For i = 1 To 31
    Combod.AddItem i
    Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub