管理信息系统概念.docx

管理信息系统概念

第一篇：管理信息系统概念科目输入1.科目输入包括设置会计科目和输入期初数。2.建立会计科目表文件kjkm.dbf,表中包括kmbh、kmmc、jdfx、qcye四个字段，数据通过表单界面输入。3.设计表单，含科目编号、科目名称、借贷方向、期初余额等的标签及其文本框。其中期初余额文本框应设置为数值型数据类型的文本框。4.编程。应考虑：科目编号不能为空（位数不低于4）、科目编号不能重复、多于4位的科目必须有上级科目。5.功能演示6.考虑科目输入的基本过程。7.用VFP实现账表MIS的系统初始化。有关命令及函数。“确定”按钮的Click过程setexactonb=0usekjkmkmbh1=allt(thisform.text1.value)length1=len(allt(thisform.text1.value))iflength1b=messagebox(“请输入不低于四位的科目编号!”,48)thisform.text1.setfocuselselocaforallt(kmbh)=kmbh1文本框单击被清空字符型Text2、Text3的Click事件This.value=space(0)数据型Text4的Click事件This.value=0“取消”按钮的Click过程thisform.text1.value=spac(0)thisform.text2.value=spac(0)thisform.text3.value=spac(0)thisform.text4.value=0.00thisform.text1.setfocus“退出”按钮的Click过程ifmessagebox(“真的想退出吗?”,4+48,“提示”)=6thisform.releaseendifb=messagebox(“XX!”,m+48,“提示”)m=0单击“确定”，b=1m=1单击“确定”，b=1单击“取消”，b=2m=2单击“终止”，b=3单击“重试”，b=4单击“忽略”，b=5m=5单击“重试”，b=4单击“取消”，b=2m=3单击“是”，b=6单击“否”，b=7单击“取消”，b=2m=4单击“是”，b=6单击“否”，b=7“删除”按钮的Click事件docasecasexuanxiang=“科目编号”ziduan=“kmbh”casexuanxiang=“科目名称”ziduan=“kmmc”casexuanxiang=“借贷方向”ziduan=“jdfx”casexuanxiang=“期初余额”ziduan=“qcye”endcaseusekjkmifziduan“qcye”locateforallt(&ziduan)==allt(thisform.text1.value)iffound()deleforallt(&ziduan)==allt(thisform.text1.value)packthisform.text1.value=space(0)elsemessagebox(“没找到相关记录!”,0+48,“提示”)endifelselocatefor&ziduan.==val(thisform.text1.value)iffound()delefor&ziduan.==val(thisform.text1.value)packthisform.text1.value=space(0)elsemessagebox(“没找到相关记录!”,0+48,“提示”)endifendifusethisform.text1.setfocus数据删除——以科目删除为例设计表单Combo1的设置：RowsourceType:1-值；RowSource：科目编号，科目名称，借贷方向，期初余额；Style：2-下拉列表框Combo2的设置：RowsourceType:1-值；RowSource：=、>,；ControlSource：ysf；Style：2-下拉列表框Form1的Init过程代码：Thisform.commbo1.listindex=2Thisform.commbo2.listindex=3Thisform.text1.setfocus删除按钮的Click过程代码宏替换函数：&变量.usekjkmdocasecaseallt(thisform.combo1.value)=“科目编号”ziduan=“kmbh”caseallt(thisform.combo1.value)=“科目名称”ziduan=“kmmc”caseallt(thisform.combo1.value)=“借贷方向”ziduan=“jdfx”caseallt(thisform.combo1.value)=“期初余额”ziduan=“qcye”endcifall