VB资金管理系统及源代码.docx

VB资金管理系统及源代码Dim addrecord As VariantDim usercheck As BooleanDim conn As New ADODB.ConnectionDim rszjsx As New ADODB.RecordsetDim rsyskm As New ADODB.RecordsetDim rsfygsbm As New ADODB.Recordset设置资金科目资金上限管理中按钮的状态Private Sub setbuttonsyskm(bval As Boolean) For i = 0 To 5 cmdyskm(i).Enabled = bval Next i cmdyskm(6).Enabled = Not bval Dacomyskmdm.Enabled = Not bval Dacomyskmmc.Enabled = Not bval Dacombmdm.Enabled = Not bval Dacombmmc.Enabled = Not bval Dacomzjsxje.Enabled = Not bval DataGrid1.Enabled = bval If bval Then cmdyskm(7).Caption = 退出 Else cmdyskm(7).Caption = 取消 End If Exit SubEnd Sub资金科目资金上限管理中记录增加或修改后的字段检验Private Function zjsxcheck() As Boolean Dim id As Integer Dim str As String Dim note(3) As String note(0) = 资金科目名称和代码不能同时为空！ note(1) = 费用归属部门名称和代码不能为空！ note(2) = 此部门在该资金科目上的资金上限已经设置！ zjsxcheck = False If Dacomyskmdm.Text = Or Dacomyskmmc.Text = Then MsgBox note(0) Dacomyskmdm.SetFocus Exit Function End If If Dacombmdm.Text = Or Dacombmmc.Text = Then MsgBox note(1) Dacombmdm.SetFocus Exit Function End If id = rszjsx.Fields(xuhao) If addrecord = True Then str = select * from zjsx where yskmmc= Dacomyskmmc.Text and gsbmmc= Dacombmmc.Text Set rs = conn.Execute(str) Else str = select * from zjsx where (yskmmc= Dacomyskmmc.Text and gsbmmc= Dacombmmc.Text ) and xuhao id Set rs = conn.Execute(str) End If If rs.EOF Then zjsxcheck = True Else MsgBox note(2) rszjsx.CancelBatch adAffectAllChapters Dacomyskmdm.SetFocus End If Exit FunctionEnd FunctionPrivate Sub cmdyskm_Click(Index As Integer) Dim i As IntegerDim result As BooleanDim m_name As StringDim bookmark As VariantOn Error GoTo adderrSelect Case Index Case 0 添加按钮 addrecord = True rszjsx.AddNew setbuttonsyskm False Dacomyskmdm.SetFocus Exit Sub Case 1 修改按钮 addrecord = False setbuttonsyskm False Dacomyskmdm.SetFocus Exit Sub Case 2 查询按钮 bookmark = rszjsx.bookmark m_name = InputBox(请输入资金科目代码或资金科目名称或归属部门代码或归属部门名称, 按资金科目代码或资金科目名称或归属部门代码或归属部门名称称搜索) If m_name = Then Exit Sub End If rszjsx.Move