- 1、本文档共47页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
1、frm_borrowgo.frm
DimMydbAsNewADODB.Recordset
DimMydb1AsNewADODB.Recordset
DimStr_textAsString
DimstrflagAsString
PrivateSubcmd_add_Click()
txt_man.Locked=False
txt_way.Locked=False
txt_money.Locked=False
Combo1.Locked=False
Check1.Enabled=True
DTPicker1.Enabled=True
txt_man.Text=
txt_way.Text=
txt_money.Text=
Combo1.Text=
strflag=添加
Cmdsave.Enabled=True
EndSub
PrivateSubcmd_close_Click()
UnloadMe
EndSub
PrivateSubcmd_del_Click()
DimAAsBoolean
A=MsgBox(是否真的要删除这条记录?,vbOKCancel+32+256,删除)
IfA=TrueThen
ExeCutesqldeletefrom借出where得款人=txt_man.Text,Str_text
MsgBox记录已删除!,,删除
IfMydb.RecordCount0Then
Mydb.MoveNext
IfMydb.EOFThenMydb.MoveLast
CallDb
CallBangding
Label7.Caption=Mydb.RecordCount
EndIf
EndIf
EndSub
PrivateSubcmd_edit_Click()
OnErrorResumeNext
DimAAsBoolean
txt_man.Locked=False
txt_way.Locked=False
txt_money.Locked=False
Combo1.Locked=False
Check1.Enabled=True
DTPicker1.Enabled=True
strflag=修改
Cmdsave.Enabled=True
EndSub
PrivateSubCmdsave_Click()
OnErrorResumeNext
DimAAsBoolean
Ifstrflag=添加Then
A=MsgBox(是否添加前记录?,vbYesNo+32,添加记录)
IfA=TrueThen
ExeCutesqlinsertinto借出values(txt_man.Text,txt_money.Text,Combo1.Text,DTPicker1.Value,txt_way.Text,Check1.Value),Str_text
MsgBox数据已经保存!,vbOKOnly+64,成功
CallDb
Label7.Caption=Mydb.RecordCount
EndIf
ElseIfstrflag=修改Then
A=MsgBox(是否修改前记录?,vbYesNo+32,添加记录)
IfA=TrueThen
Mydb.Update
Mydb.Requery
CallDb
MsgBox数据修改成功!,vbOKOnly+64,成功
EndIf
EndIf
Cmdsave.Enabled=False
txt_man.L
文档评论(0)