家庭财务管理系统课程设计的原代码2.doc

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