ffgl_Click()
医疗保险基金发放管理.show
EndSub
PrivateSubyiliao_ffshch_Click()
医疗保险基金发放删除.show
EndSub
PrivateSubyiliao_ffxg_Click()
医疗保险基金发放信息修改.show
EndSub
PrivateSubyiliao_jnchx_Click()
医疗保险基金缴纳查询.show
EndSub
PrivateSubyiliao_jngl_Click()
医疗保险基金缴纳管理.show
EndSub
PrivateSubyiliao_jnshch_Click()
医疗保险基金缴纳删除.show
EndSub
PrivateSubyiliao_jnxg_Click()
医疗保险基金缴纳信息修改.show
EndSub
养老保险基金缴纳管理模块主要代码如下:
PrivateSubadd_Click(IndexAsInteger)
GoToadderr
Adodc1.Recordset.AddNew
ExitSub
adderr:
MsgBoxErr.Description
EndSub
PrivateSubcancel_Click(IndexAsInteger)
GoTocancelerr
Adodc1.Recordset.CancelBatchadAffectAllChapters
MsgBox"取消成功",vbExclamation+vbOKOnly,"产品添加"
ExitSub
cancelerr:
MsgBoxErr.Description
EndSub
PrivateSubend_Click(IndexAsInteger)
UnloadMe
EndSub
PrivateSubupdate_Click(IndexAsInteger)
GoToupdateerr
IfTrim(txtfield(0).Text)=""Then
MsgBox"名称不能为空",vbExclamation+vbOKOnly,"警告!"
txtfield(0).SetFocus
ExitSub
EndIf
IfTrim(txtfield(1).Text)=""Then
MsgBox"缴纳编号不能为空",vbExclamation+vbOKOnly,"警告!"
txtfield(1).SetFocus
ExitSub
EndIf
Adodc1.Recordset.UpdateBatchadAffectAllChapters
MsgBox"保存成功",vbExclamation+vbOKOnly,"产品添加"
ExitSub
updateerr:
MsgBoxErr.Description
EndSub
养老保险基金缴纳查询模块主要代码如下:
PrivateSubCommand1_Click(IndexAsInteger)
IfTrim(Text1.Text)=""Then
MsgBox"查询编号不能为空",vbOKOnly+vbExclamation,"警告!"
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString=ConnectString
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromyanglao_jnglbwhere缴纳编号='"+Text1.Text+"'"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click(IndexAsInteger)
Text1.Text=""
Text1.SetFocus
EndSub
PrivateSubCommand3_Click(IndexAsInteger)
UnloadMe
EndSub
养老保险基金缴纳修改模块主要代码如下:
PrivateSubCommand1_Click()
IfTrim(Text1.Text)=""Then
MsgBox"查询编号不能为空",vbOKOnly+vbExclamation,"警告!"
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString=ConnectString
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromyanglao_jnglbwhere缴纳编号='"+Text1.Text+"'"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text1.SetFocus
EndSub
PrivateSubcommand4_Click(IndexAsInteger)
GoTocommand4err
IfTrim(txtfield(0).Text)=""Then
MsgBox"名称不能为空",vbExclamation+vbOKOnly,"警告!"
txtfield(0).SetFocus
ExitSub
EndIf
IfTrim(txtfield(1).Text)=""Then
MsgBox"名称不能为空",vbExclamation+vbOKOnly,"警告!"
txtfield(1).SetFocus
ExitSub
EndIf
Adodc1.Recordset.UpdateBatchadAffectAllChapters
MsgBox"修改成功",vbExclamation+vbOKOnly,"信息修改"
ExitSub
command4err:
MsgBoxErr.Description
EndSub
PrivateSubcommand5_Click(IndexAsInteger)
GoTocancelerr
Adodc1.Recordset.CancelBatchadAffectAllChapters
MsgBox"取消成功",vbExclamation+vbOKOnly,"信息修改"
ExitSub
cancelerr:
MsgBoxErr.Description
EndSub
PrivateSubcommand6_Click(IndexAsInteger)
UnloadMe
EndSub
养老保险基金缴纳删除模块主要代码如下:
PrivateSubCommand1_Click()
IfTrim(Text1.Text)=""Then
MsgBox"查询编号不能为空",vbOKOnly+vbExclamation,"警告!"
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString=ConnectString
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromyanglao_jnglbwhere缴纳编号='"+Text1.Text+"'"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text1.SetFocus
EndSub
PrivateSubCommand3_Click()
WithAdodc1.Recordset
IfNot.EOFThen
IfMsgBox("将删除当前基金缴纳表数据,是否继续?",vbCritical+vbYesNo,"基金缴纳")=vbYesThen
.Delete
.MoveNext
If.EOFAnd.RecordCount>0Then.MoveLast
EndIf
EndIf
EndWith
EndSub
PrivateSubcommand4_Click()
UnloadMe
EndSub
公共模块代码如下:
PublicFunctionConnectString()AsString
ConnectString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+_
App.Path+"\16.mdb;PersistSecurityInfo=False"
EndFunction
PublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)AsADODB.Recordset
sTokens=Split(SQL)
Setcnn=NewADODB.Connection
cnn.OpenConnectString
Setrst=NewADODB.Recordset
rst.OpenTrim$(SQL),cnn,adOpenKeyset,adLockOptimistic
SetExecuteSQL=rst
MsgString="查询到"&rst.RecordCount&"条记录"
ExecuteSQL_Exit:
Setrst=Nothing
Setcnn=Nothing
ExitFunction
ExecuteSQL_Error:
MsgString="查询错误:"&Err.Description
ResumeExecuteSQL_Exit
EndFunction
PublicSubEnterToTab(KeyascAsInteger)
IfKeyasc=13Then
SendKeys"{TAB}"
EndIf
EndSub
其他功能模块实现代码与养老保险基金缴纳管理模块类似,在此不一一附录了
??
??
??
??
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
装
┊
┊
┊
┊
┊
订
┊
┊
┊
┊
┊
线
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
┊
上海第二工业大学毕业设计(论文)说明书
第I页共Ⅳ页
55
上一篇:
vb电表管理系统vb+access源代码+可执行程序+论文(论文和程序)
下一篇:
经典高三励志演讲稿