frmselllisting.frm

传销工资管理 请验证一下哈

  
  Adodc1.Visible = False
  
  txt购货时间.Text = Date
    
  Adodc1.RecordSource = "select * from 购货清单"
  Adodc1.Refresh
  Adodc1.Recordset.AddNew
 
End Sub

Private Sub cmdCancel_Click()
  rs.Open "购货清单明细临时", Conn, adOpenKeyset, adLockPessimistic
  Sql = "delete * from 购货清单明细临时"
  Cmd.CommandText = Sql
  Set rs = Cmd.Execute
  
  If rs.State = adStateOpen Then
     rs.Close
  End If
  
  Adodc1.Recordset.CancelUpdate
  
  If Adodc1.Recordset.RecordCount = 0 Then
     Adodc2.RecordSource = "select * from 购货清单明细"
     GoTo Line20
  End If
  Adodc1.Recordset.MoveFirst
  
  Sql = "select * from 购货清单明细 where 订单号码= '" & Adodc1.Recordset("订单号码") & "'"
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
Line20:
  Set DataGrid1.DataSource = Adodc2
  DataGrid1.ReBind
  
  cmdAddNew.Enabled = True
  cmdCancel.Enabled = False
  cmdDelete.Enabled = True
  cmdSave.Enabled = False
  cmdClose.Enabled = True
  
  Adodc1.Visible = True
  
  InputVar = True
  LockedOrNo (InputVar)
  
End Sub

Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdFirst_Click()
  Adodc1.Recordset.MoveFirst
End Sub

Private Sub cmdNext_Click()
  If Not Adodc1.Recordset.EOF Then
     Adodc1.Recordset.MoveNext
  Else
     Adodc1.Recordset.MoveLast
  End If
End Sub

Private Sub cmdDelete_Click()
  rs.CursorLocation = adUseClient
  rs.Open "购货清单明细", Conn, adOpenKeyset, adLockPessimistic
  Sql = "delete * from 购货清单明细 where 订单号码= '" & txt订单号码.Text & "'"
  Cmd.CommandText = Sql
  Cmd.Execute
  
  Adodc1.Recordset.Delete
  Adodc1.Refresh
  If Adodc1.Recordset.RecordCount <> 0 Then
     Adodc1.Recordset.MoveFirst
  End If
  
  Sql = "select * from 购货清单明细 where 订单号码= '" & Adodc1.Recordset("订单号码") & "'"
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  Set DataGrid1.DataSource = Nothing
  Set DataGrid1.DataSource = Adodc2
  DataGrid1.ReBind
  DataGrid1.Refresh
  
  Unload Me
End Sub

Private Sub cmdQuery_Click()
  frmSellQuery.Show 1
End Sub

Private Sub cmdRecordAddNew_Click()
  If txt订单号码.Text = "" And txt业务员姓名.Text = "" And txt业务员工号.Text = "" Then
     MsgBox "订单号码、购货人姓名、业务员工号不能为空！"
     Exit Sub
  End If
  
  dbEnable = True
  
  cmdAddNew.Enabled = False
  cmdCancel.Enabled = False
  cmdDelete.Enabled = False
  cmdSave.Enabled = False
  cmdClose.Enabled = False
  
  DataGrid1.AllowAddNew = False
  DataGrid1.AllowDelete = False
  DataGrid1.AllowUpdate = True
  
  cmdRecordAddNew.Enabled = False
  cmdRecordModify.Enabled = False
  cmdRecordDelete.Enabled = False
  
  Set DataGrid1.DataSource = Adodc3
  DataGrid1.ReBind
  DataGrid1.Refresh
  
  Adodc3.Recordset.AddNew
  Adodc3.Recordset("订单号码") = txt订单号码.Text
End Sub

Private Sub cmdRecordDelete_Click()
On Error GoTo ErrorHandle
  If Adodc3.Recordset.RecordCount = 0 Then
     MsgBox "没有记录可删除！"
     Exit Sub
  End If
  
  cmdAddNew.Enabled = False
  cmdCancel.Enabled = False
  cmdDelete.Enabled = False
  cmdSave.Enabled = False
  cmdClose.Enabled = False
  
  DataGrid1.AllowAddNew = False
  DataGrid1.AllowDelete = True
  DataGrid1.AllowUpdate = True
  
  Adodc3.Recordset.Delete
  
  dbEnable = False
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdRecordModify_Click()
  dbEnable = True

  cmdAddNew.Enabled = False
  cmdCancel.Enabled = False
  cmdDelete.Enabled = False
  cmdSave.Enabled = False
  cmdClose.Enabled = False
  
  DataGrid1.AllowAddNew = False
  DataGrid1.AllowDelete = False
  DataGrid1.AllowUpdate = True
End Sub

Private Sub cmdRecordSave_Click()
  Dim vartotal As Long
  vartotal = 0
  
  If Adodc3.Recordset.RecordCount = 0 Then
     MsgBox "没有记录可保存，请先输入记录或单击取消！"
     Exit Sub
  End If
  
  cmdAddNew.Enabled = False
  cmdCancel.Enabled = True
  cmdDelete.Enabled = False
  cmdSave.Enabled = True
  cmdClose.Enabled = False
  
  DataGrid1.AllowAddNew = False
  DataGrid1.AllowDelete = False
  DataGrid1.AllowUpdate = True
    
  cmdRecordAddNew.Enabled = True
  cmdRecordModify.Enabled = True
  cmdRecordDelete.Enabled = True
    
On Error GoTo ErrorHandle
  Adodc3.Recordset.Update

  With Adodc3.Recordset
    .MoveFirst
    Do While Not .EOF
       vartotal = vartotal + !货品单位积分 * !购货数量
       .MoveNext
    Loop
  End With
  txt总计积分.Text = vartotal
  
  dbEnable = False
  Exit Sub
ErrorHandle:
  cmdRecordAddNew.Enabled = True
  cmdRecordModify.Enabled = True
  cmdRecordDelete.Enabled = True
  
  Cmd.CommandText = "delete * from 购货清单明细临时"
  Cmd.Execute
  Exit Sub
End Sub

Private Sub cmdSave_Click()
  If Adodc3.Recordset.RecordCount = 0 Then
     MsgBox "购货清单明细表里没有记录，" & vbCrLf & "请先添加记录或者取消购货清单。"
     Exit Sub
  End If
  
  rs.Open "购货清单明细", Conn, adOpenKeyset, adLockPessimistic
  Sql = "insert into 购货清单明细 select * from 购货清单明细临时"
  Cmd.CommandText = Sql
  Cmd.Execute
  rs.Close
  
  rs.Open "购货清单明细临时", Conn, adOpenKeyset, adLockPessimistic
  Sql = "delete * from 购货清单明细临时"
  Cmd.CommandText = Sql
  Cmd.Execute
  rs.Close
  
  If rs.State = adStateOpen Then
     rs.Close
  End If
  
  Adodc1.Recordset.Update
  
  Adodc1.Recordset.MoveFirst
  Sql = "select * from 购货清单明细 where 订单号码= '" & Adodc1.Recordset("订单号码") & "'"
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  Set DataGrid1.DataSource = Adodc2
  DataGrid1.ReBind
  
  cmdAddNew.Enabled = True
  cmdCancel.Enabled = False
  cmdDelete.Enabled = True
  cmdSave.Enabled = False
  cmdClose.Enabled = True
  
  Adodc1.Visible = True
  
  InputVar = True
  LockedOrNo (InputVar)
End Sub

Private Sub cmdSelect_Click()
  frmYWYselect.Show 1
End Sub

Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
  Dim I As Integer
  
  If DataGrid1.Col = 4 Then
     DataGrid1.Columns(5).Value = Str(Val(DataGrid1.Columns(4).Value) * Val(DataGrid1.Columns(2).Value))
  End If
End Sub

Private Sub DataGrid1_DblClick()
  If dbEnable = True Then
     If DataGrid1.Col = 0 Then
        frmCommoditySelect.Show 1
     End If
  End If
End Sub

Private Sub Form_Load()
  Dim ConnStr As String
  If Adodc1.Recordset.RecordCount <> 0 Then
     txt购货时间.Text = Adodc1.Recordset("购货时间")
  Else
     txt购货时间.Text = ""
  End If
  
  cmdAddNew.Enabled = True
  cmdCancel.Enabled = False
  cmdDelete.Enabled = True
  cmdSave.Enabled = False
  cmdClose.Enabled = True
  
  InputVar = True
  LockedOrNo (InputVar)
  
  ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\system\database\system.mdb"
  Conn.Open ConnStr
  
  rs.CursorLocation = adUseClient
  
  'rs.Open "购货清单明细临时", Conn, adOpenKeyset, adLockPessimistic
  Set Cmd = New ADODB.Command
  Set Cmd.ActiveConnection = Conn
  
  If Adodc1.Recordset.RecordCount = 0 Then
     dbEnable = False
     Exit Sub
  End If
  Adodc1.Refresh
  
  Sql = "select * from 购货清单明细 where 订单号码= '" & Adodc1.Recordset("订单号码") & "'"
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  dbEnable = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Conn.Close
End Sub

Private Sub txt订单号码_Change()
  If txt订单号码.Text <> "" Then
     txt订单号码.Text = UCase(Trim(txt订单号码.Text))
     txt订单号码.SelStart = Len(txt订单号码.Text)
  End If
End Sub

Private Sub txt订单号码_LostFocus()
  If txt订单号码.Text = "" Then Exit Sub
  Sql1 = "select * from 购货清单 where 订单号码='" & txt订单号码.Text & "'"
  Adodc4.RecordSource = Sql1
  Adodc4.Refresh
  If Adodc4.Recordset.RecordCount = 0 Then
     Adodc4.RecordSource = "select * from 购货清单"
     Exit Sub
  Else
     MsgBox "该订单号码已存在，请用另一个号码!"
     txt订单号码.Text = ""
     txt订单号码.SetFocus
     Adodc4.RecordSource = "select * from 购货清单"
  End If
End Sub

Private Sub txt购货时间_Click()
  If txt购货时间.Locked = True Then Exit Sub
  
  frmDate.Show 1
End Sub