VB530 成本、费用管理系统VB+SQL

伴随着计算机软硬件技术的发展，计算机的技术和应用获得了突飞猛进的发展，计算机已经在大致如下的领域得到广泛的应用：
1、科学计算：如在天文学、生物学、空气动力学、核物理学、地质勘探、新材料的研制和天气预报等领域中。
2、数据处理：与科学计算不同，数据处理涉及的数据量大，但计算方法较简单。
3、过程控制：指由计算机通过传感器及时采集数据，根据采集的数据和预先设定的要求，由计算机处理后，产生控制信号并通过控制系统对受控对象进行控制或调整。
4、计算机模拟：用计算机程序及相应的设备代替或模拟实物或实际环境，用于实验、测试、特殊训练等。
5、计算机辅助系统：包括计算机辅助设计，计算机辅助制造、计算机辅助教育等。
6、人工智能：指用计算机模拟人的思维和行为，包括推理，学习，模拟人的感知等。现在机器人、专家系统、虚拟现实等方面已经获得了实际的应用。
7、办公自动化：可分为事务型、管理型和决策型三个层次。事务型主要处理日常的办公事务。管理型办公自动化系统又称为管理信息系统。决策型办公自动化系统是在上述两个系统的基础上增加决策支持系统构成的。随着互联网、远程会议系统、多媒体技术的发展，同计算机网络连接起来的新型办公室不久将展现在人们面前。 think58.com [资料来源：www.THINK58.com]
8、信息高速公路。
9、电子商务

[资料来源：www.THINK58.com]

管理信息系统是一个由人和计算机等组成的，能进行管理信息的收集、传递、加工、保存、维护和使用的系统，它能实测国民经济和企业的各种运行情况；利用历史数据预测未来；从全局出发辅助管理决策；利用信息控制企业的行为、帮助实现其规划目标。也就是说，管理信息系统不仅是一个能对管理者提供帮助的基于计算机的人机系统，而且是一个社会技术系统。应当将管理信息系统放到社会这个大背景去考察，在解决技术问题的同时，充分考虑使用信息技术的组织与人，重视系统与组织、环境的交互作用。
管理信息系统是介于信息论、经济管理理论、统计学与运筹学以及计算机科学之间的一门边缘性、综合性、系统性的交叉学科。它是伴随着管理科学、信息技术、计算机技术等的发展而产生和发展起来的。
20世纪20年代以来，人们对管理的重视是管理信息系统产生的前提。从以“泰勒制”为代表的科学管理的出现，经过了行为科学学派、数学管理学派、计算机管理学派、系统工程学派的发展，使管理水平不断提高。计算机的诞生和飞速发展使信息管理现代化成为可能。而信息技术的不断进步为信息管理提供了强有力的工具和手段，使人类开发利用信息资源的能力大大增强，使整个社会的信息化水平不断提高。 [资料来源：http://think58.com]

学校教师费用管理信息系统的目标是：按照管理信息系统的原理和方法，采用先进的计算机信息技术和手段，充分利用现有微机设备，加强教务管理活动中的各种信息资源的管理和应用，提高学校教务管理的现代化水平，人事管理、工资管理等的微机化。在为学校教务管理活动提供有关信息服务的基础上，提供教务管理决策支持功能，为实现教务管理的科学化、信息化进行技术准备。
 4.2.3劳务费用管理系统的范围和边界
劳务费用管理信息系统的范围和边界是：为学校提供各次教师费用各项工作，涉及劳务管理的各项功能。由微机管理室工作人员负责录入。系统范围不涉及数据实时采集功能，也不涉及远程信息传输功能。功能有不全面的地方，下次继续改进。
第五章 系统分析
§５.1 劳务费用管理系统的详细调查
对现行管理业务进行详细调查是了解系统需求和进行系统分析和设计的重要基础工作，因此要对学校的教师费用管理工作进行全面、细致而充分的调查研究。系统调研采取的主要方法是到现场去，通过座谈、询问、观察甚至直接参与管理活动，自上而下、逐步细化的进行了解。
首先与分管校长、教导主任交流意见，了解他们对现有信息系统的看法，有无新的信息需求，原系统有无多余的功能。然后，与教师、班主任、年级主任那里了解他们对原有信息系统的看法。在此基础上，深入到具体业务职能管理部门即微机管理室进行详细的调查，了解他们对现有系统的看法，在操作上有无需要改进的地方。 内容来自think58

[版权所有：http://think58.com]

通过调查得知，原劳务费用管理系统已经初步实现了用计算机劳务费用管理的规范化，所以现在准备建立一个适用性、通用性较强的管理信息系统。也就是说，新建立的系统要求在保持原有系统的功能的基础之上，要求具有良好 本文来自think58

1、 返回上一级按钮（ ）的代码是：
do form main
thisform.release
2、 下一个、上一个这四个按钮（ ）的代码是：
store recno() to x
i=0
locate for alltrim(thisform.text1.value)=班主任编号
if found ()
   i=i+1
   continue
   if found ()
      i=i+1
   endif
endif
go x       
do case
 case i>1
        =messagebox("记录重复了，请更改后重试！",0+64+0,"数据录入错误！")
        thisform.text1.value=""
        thisform.text1.setfocus                                         
 case len(alltrim(thisform.text1.value))=0     

think58.com [来源：http://www.think58.com]

        =messagebox("漏填了，请补添后重试！",0+64+0,"数据录入错误！")
        thisform.text1.setfocus
 case len(alltrim(thisform.text2.value))=0
        =messagebox("漏填了，请补添后重试！",0+64+0,"数据录入错误！")
        thisform.text2.setfocus
 case len(alltrim(thisform.text5.value))=0
        =messagebox("漏填了，请补添后重试！",0+64+0,"数据录入错误！")
        thisform.text5.setfocus
 case len(alltrim(thisform.text6.value))=0
        =messagebox("漏填了，请补添后重试！",0+64+0,"数据录入错误！")
        thisform.text6.setfocus                                             [来源：http://think58.com]
 otherwise
   skip -2
   if bof () =.t.
      thisform.command1.enabled=.f.
      thisform.command2.enabled=.f.
   endif
   go x-1
   if eof () =.f.
      thisform.command3.enabled=.t.
      thisform.command4.enabled=.t.
   endif
   thisform.text1.enabled=.f.
   thisform.text2.enabled=.f.
   thisform.text3.enabled=.f.
   thisform.text4.enabled=.f.
   thisform.text5.enabled=.f.
   thisform.text6.enabled=.f.
endcase
thisform.refresh
3、 添加按扭（ ）的源代码是：
do form main
thisform.release
4、 修改按钮的原代码（ ）是：
yn=messagebox("真的要 修改 吗？请单击 确定 。",1+64+0,"修改")
if yn=1
   thisform.text1.enabled=.t.
   thisform.text2.enabled=.t.
   thisform.text3.enabled=.t.
   thisform.text4.enabled=.t.
   thisform.text5.enabled=.t.
   thisform.text6.enabled=.t.
   thisform.text1.setfocus
   replace 班主任编号 with alltrim(thisform.text1.value)
   a = recno()
   b=reccount()
   delete
   pack
   if reccount()<>0
     if a=b
       if a=2
       thisform.command1.enabled=.f.
          thisform.command2.enabled=.f.
       endif 
    go bottom
      else
    if a=b-1
       thisform.command3.enabled=.f.
          thisform.command4.enabled=.f.
       endif       
    go a

think58

[资料来源：http://THINK58.com]

  endif
   endif
   if b=1
     go top
     thisform.command1.enabled=.f.
     thisform.command2.enabled=.f.
     thisform.command3.enabled=.f.
     thisform.command4.enabled=.f.
     thisform.command6.enabled=.f.
     thisform.command7.enabled=.f.
     thisform.command8.enabled=.f.
     thisform.command9.enabled=.f.
   endif                            

think58好，好think58 [资料来源：http://think58.com]

[资料来源：http://think58.com]