评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

库存管理系统+源代码+外文翻译+论文正文+开题报(5)

2013-06-14 01:09 Keyset, adLockOptimistic
    If rs.RecordCount <> -1 Then
         rs.MoveLast
         Idadd = rs!ID
     Else
         Idadd = 1
     End If
    If Flg Then rs.AddNew
    rs!ID = Idadd + 1
    rs!UserName = Txt(0).Text
    rs!userpwd = Txt(1).Text
    rs!userdep = UsrDepartment
    rs.Update
    rs.Close
    Set rs = Nothing
    MSF.AddItem Txt(0).Text
    CmdAdd.Enabled = True
    CmdOk.Enabled = False
    CmdDelete.Enabled = False
    CmdAdd.SetFocus
    Exit Sub
gl:    MsgBox err.Description
End Sub

Private Sub cmdpwdedit_Click()
frmChangePassword.Show 1
End Sub

Private Sub Form_Load()
    UsrDepartment = "MainManager"
  
    LoadUserToMsfObject
End Sub
采购单界面:

采购单源代码:
Private Sub Command3_Click()
    RsbuydTmp.Filter = " ename='" & Trim(dtgrd.Columns(0).Text) & "' And etype = '" & Trim(dtgrd.Columns(1).Text) & "'"
    Toolbar1.Buttons(6).Enabled = False
            If dtgrd.row <> -1 Then
                Re = MsgBox("您确定要删除表格中的记录吗?", vbYesNo + vbQuestion + vbDefaultButton2, ginfo)
                If Re = 6 Then （科教作文网http://zw.ΝsΕAc.Com编辑整理）
                   RsbuydTmp.Delete adAffectCurrent
                   RsbuydTmp.UpdateBatch adAffectCurrent
                   RsbuydTmp.Requery
                End If
            End If
         Ado.RecordSource = "select * from  grdbuy"
         Ado.CursorLocation = adUseClient
         Ado.Refresh
         Set dtgrd.DataSource = Ado
         dtgrd.Refresh
         RsbuydTmp.Filter = ""
         RsbuydTmp.Requery
       
End Sub

库存查询界面:

库存界面源代码:

Private Sub CmdOk_Click()
On Error GoTo gl
      Dim SQL As String
      If opt1.Value Then
      &n