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
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
