毕业设计（论文）-delphi程序电脑公司管理系统设计.doc

重庆大学计算机学院计算机及应用毕业设计重庆XX电脑公司管理系统设计人员刘巍DELPHI70设计曾黎UML设计李铃SQL数据库表设计目录一、前言一、课题名称二、开发背景三、使用的主技术及技术现状二、需求分析三、电脑公司信息管理系统DFD图四、UML建模过程一、业务用例模型二、业务用例图五、数据库设计六、源程序七、总结八、参考文献一、前言一、课题名称电脑公司信息管理系统二、开发背景随着个人计算机的普及，电脑行业的迅速发展，使得电脑销售行业的竟争越来越激烈。怎样才能在激烈的竟争中提高公司运行效率，保持竟争优势伴随着计算机技术在各行各业日益广泛和深入的应用，会计电算化的概念也早已经不仅仅限于甩帐，即使用一套财务软件代替原来的手工记帐，在对于系统进行了适当的置后，一旦登入凭证资料，执行审核和记帐的功能后，将自动产生需要的各种总明细帐。计算机产业硬件和软件的更新和升级及管理工作在经济领域地位的日益提高，是两个不断前进着的车轮，在各自发展的进程中，又彼此促进和推动着，将会计电算化推向一个新的高度。回顾五年之内财务软件在国内运用情况，我们可以得出这样的结论95年是实行手工记帐向计算机记帐的转变的一年，主要解决的问题是甩帐；96年中大多数企业使用网络版WINDOWS操作平台下的财务软件取代单用户版DOS支持的财务软件，使一套软件可以同时被多个用户使用，并提高了系统运行的速度和稳定性；97年后，人们强调的是财务软件的管理功能，除了帐务系统之外，企业的生产、经营的业务活动也必需纳入计算机系统的全局管理，建立包括财务、生产、采购、销售、仓储等在内的子系统，各个系统之间共享数据，实现无缝连接，对于企业整体生产经营运作实现整体管理的要求被提上议事日程；98年国内南北两大财务软件公司，北京用友和深圳金蝶分别推出了自己的决策支持型管理软件ERP和K3，标志着国内企业会计电算化水平更进一步的提高。因此必须使用先进的管理方式对公司进行管理，而先进的管理方式在很大程度上依赖于信息管理系统的使用。本系统包括电脑配件的进销存管理、客户关系管理、产品售后服务管理、公司人事管理四大部分。本系统实施后可使公司节省更多的人力、物力、财力，使公司经营运作物流更清晰、经营状况更详细准确，使公司的经营管理体系更加科学化、规范化、合理化。三、使用的主要技术及技术现状本系统采用SQL2000做为后台数据库系统，使用DELPHI70设计前台应用程序，使用UML作为分析画图软件。SQL2000存在以下明显优点SQL是在1974年由BOYCE和CHAMBERLIN提出，并在IBM公司研制关系数据库管理系统原型SYSTEMR上实现的。它的前身是1972年提出的SQUARE（SPECIFYINGQUERIESASRELATIONALEXPRESSION语言，1974年修改为SEQUEL（STRUCTUREDENGLISHQUERYLANGUAGE），简称SQL。经各公司的不断修改、扩充和完善，SQL已得到解决业界的认可。1986年10月，美国国家标准局（AMERICANNATIONALSTANDARDINSTITUTE,ANSI）的数据库委员X3H2批准了SQL作为关系数据库语言美国标准。同年，公布了SQL标准文本（简称SQL86）。1987年，国际标准化组织（INTERNATIONALORGANIZATIONFORSTANDARDIZATION,ISO）也通过了这一标准。目前，各个数据库厂商都有各自的SQL软件或与SQL的接口软件，并开发了各种图形界面的输入输出软件，报表生成器，软件开发工具等，大大方便了应用程序的开发，并且使得开发出的应用程序的界面更丰富，更方便用户的使用。SQL的组成数据定义DATADEFINITION，数据操纵DATAMANIPULATION，数据控制DATACONTROL，嵌入式SQLEMBEDEDSQLSQL的特点综合统一、高度非过程化、面向集合的操作方式、以同一种语法结构提供两种使用方式、语言简捷、易学易用。存取速度在服务器级的数据库中，效率还算相当不错。即使是单一表格数据记录数在10万条时，仍有相当不划的表现，但在单机使用时，数据不多时，速度可能会比小型数据库慢。容易使用简易的用户接口，不需要背命令也能轻松操作，非常适合初中级人员使用。支持SQL语言现在的数据库系统都使用这种语言，可以合程序开发上节省更多的时间。性能MICROSOFTSQLSERVER70后的版本可以在WINDOWS98或WINDOWNT等系统上运行，效率很高，也可以和多种数据库格式沟通，而且自动备份等功能也相当完善。网络联机可利用ODBC作为联机工具，也可利用INTERNET作为联机方式，使用上更具灵活性。网络安全每个数据库和表都可以设置权限。在使用上相当好的防护措施。DELPHI是BORLAND公司推出的一个激动人心的WINDOWS应用程序开发工具。它以易用、功能强大和稳定可靠的特性以及拥有OBJECTPASCAL语言语法严谨、执行效率高的特有优点而深受广大开发人员的表睐，是WINDOWS平台下最好的开发工具之一。尤其在数据库开发、分布计算和WEB应用程序开发等方面，DELPHI更是体现出了它相对于其他开发工具在开发周期和执行效率上的明显优势。DELPHI7可以轻松的实现跨平台，DELPHI7的模型驱动结构和UML可视化设计的新特性使开发企业应用程序变得更加快捷方便，DELPHI7的RAD可视化服务器端WEB应用程序开发技术使构造动态WEB应用程序变得轻而易举。总之，DELPHI7相对于早期版本有很大的改进，具体表现在增加了INTRAWEB组件，从而向程序员提供了更加高效的WEB应用程序开发方式；增加了RAVE报表组件，在报表方面相对原有的QUICKREPORT系统组件有很相当大的提高；WEBSNAP技术更加完善；增强的DATASNAP技术，不但支持状态无关的远程数据模块，而且提供了新的INTERNETEXPRESS组件，使得开发基于WEB的多层数据库应用大为简便；增强的WEBSERVIC技术；加强了对COM/COM/NET的支持；新增了一些有时代特色的VCL组件，现在DELPHI支持XP风格的界面开发；IDE、编译器、调试工具上都有了很大的改进和加强。UML的简介UML的产生二、需求分析公司人事管理本部分的功能包括对公司人员的基本数据进行管理，在人员发生变化（转正、调动、职务变动等）的情况下，能够对其数据进行修改，能对人员工资、奖金进行管理。公司领导有权对其人事、薪资信息进行分级查询。进销存管理本部分功能包括对货品的进货、销售、库存进行管理。能够实现原始数据的录入、处理、存储和输出，完成订货管理、销售管理、仓库管理和统计分析的功能。客户关系管理本部分功能包括对客户所购产品信息进行管理、统计，分析；对客户回访信息进行管理。产品售后服务管理对用户报修情况、产品退换货情况、产品修复情况及产品报损情况进行管理。实现原始数据的录入、修改、存储和统计功能。三、电脑公司信息管理系统DFD图电脑公司信息管理系统顶层图是和五个实体（顾客、报销顾客、维修人员、经理、商家）关联。顾客向该系统提交一个购货单，系统回返回一个购货发票；报销客户提供报销信息给系统由系统处理；维修人员，从系统中取得客户维修信息单进行处理，处理后返回维修物件单给系统；经理，随时可以查询系统所有信息；商家把到货单提交给系统。电脑公司信息管理系统0层图当商家把货送到后，将送货单写入到货处理模块，到货处理模块向到货数据表|库存数据表写入相关数据以便查询。当顾客将购货单写入销售系统模块，销售系统模块向库存数据表、销售数据表、客户信息表里写入数据。当顾客将报修信息写入维修处理模块后，维修处理模块向客户信息表、报修信息表写入数据，并打印客户维修信息单。维修人员接维修信息单后，将维修物件单通过维修处理模块写入维修物件表里。经理可以通过查询处理模块对到货数据表、库存数据表、销售数据表，客户信息表、报修信息表进行查询。电脑公司管理系统销售子系统流程图将顾客填写的购货单输入客户类别判断模块，写入客户信息表中，一单位客户，选择支负的方式，A挂账，通过挂账处理模块将挂账购货单写入单位挂账表中，用单位客户购货单来更新库存各销售数据表。B现金支付方式，直接用单位客户购货单更新库存销售数据表。二个体客户A一般客户，用一般客户购货单更新库存销售数据表。B购机客户，将购机单通过刚强机处理模块将客户信息写入客户信息表中，并同时写计算机配置信息到用户计算机配置登记表中，同时用购机客户购货单来更新库存销售数据表。以上各部分都通过更新库存销售数据模块获得一个购货单，用这个单子来打印用户购货收据并交给顾客。四、UML建模过程一业务用例模型二业务用例图主要有销售管理、查询处理、到货处理、维修修理四个用例。查询处理模块当经理发送一个查询请求时，能过查询处理模块返回查询后的信息销售管理销售人员通过处理销售模块和顾客交易。到货处理当商家把货物送到时将送货单写入到货处理模块。维修处理维修处理模块把客户维修信息单送到维修人员，维修人员接到后到维修处理模块得到维修物件单。业务角色顾客，派生出商家和保修客户员工，派生出维修人员、销售员各经理。五、数据库设计一、部门信息表CREATETABLEDBODEPARTMENTIDINTNOTNULL,DEPARTMENTVARCHAR50COLLATECHINESE_PRC_CI_ASNOTNULLONPRIMARYGO二、员工信息表CREATETABLEDBOEMPLOYEEIDINTNOTNULL,NAMEVARCHAR50COLLATECHINESE_PRC_CI_ASNOTNULL,SEXCHAR10COLLATECHINESE_PRC_CI_ASNULL,AGECHAR10COLLATECHINESE_PRC_CI_ASNULL,BIRTHDAYDATETIMENULL,ADDRESSVARCHAR50COLLATECHINESE_PRC_CI_ASNULL,PHONE1VARCHAR50COLLATECHINESE_PRC_CI_ASNULL,PHONE2VARCHAR50COLLATECHINESE_PRC_CI_ASNULL,DEPARTMENTVARCHAR50COLLATECHINESE_PRC_CI_ASNULL,EDUCATIONVARCHAR50COLLATECHINESE_PRC_CI_ASNULL,PYDATEDATETIMENULL,XFZNUMCHAR18COLLATECHINESE_PRC_CI_ASNOTNULL,REMARKVARCHAR255COLLATECHINESE_PRC_CI_ASNULLONPRIMARYGO三、厂家信息表CREATETABLEDBOCOMPANYIDINTNOTNULL,厂家名称VARCHAR50COLLATECHINESE_PRC_CI_ASNOTNULL,联系人CHAR10COLLATECHINESE_PRC_CI_ASNULL,联系电话1CHAR10COLLATECHINESE_PRC_CI_ASNULL,联系电话2CHAR10COLLATECHINESE_PRC_CI_ASNULL,传真电话CHAR10COLLATECHINESE_PRC_CI_ASNULL,法人代表CHAR10COLLATECHINESE_PRC_CI_ASNULL,公司地址VARCHAR50COLLATECHINESE_PRC_CI_ASNULL,邮编CHAR10COLLATECHINESE_PRC_CI_ASNULL,代理产品VARCHAR50COLLATECHINESE_PRC_CI_ASNULL,银行开户行名称CHAR10COLLATECHINESE_PRC_CI_ASNULL,银行开户行帐号VARCHAR50COLLATECHINESE_PRC_CI_ASNULLONPRIMARYGO四、销售信息表CREATETABLEDBOSALEDETAILIDUNIQUEIDENTIFIERNOTNULL,销售单号INTNOTNULL,商品编号CHAR10COLLATECHINESE_PRC_CI_ASNULL,商品名称VARCHAR50COLLATECHINESE_PRC_CI_ASNULL,商品数量INTNULL,单位CHAR10COLLATECHINESE_PRC_CI_ASNULL,商品价格MONEYNULL,合计金额MONEYNULLONPRIMARYGO五、产品信息表CREATETABLEDBOPRODUCTIDINTNOTNULL,产品名称VARCHAR50COLLATECHINESE_PRC_CI_ASNOTNULL,产品编号CHAR10COLLATECHINESE_PRC_CI_ASNOTNULL,型号CHAR10COLLATECHINESE_PRC_CI_ASNULL,价格MONEYNULL,单位CHAR10COLLATECHINESE_PRC_CI_ASNULL,供货商家VARCHAR50COLLATECHINESE_PRC_CI_ASNULLONPRIMARYGO六、销售数量表CREATETABLEDBOSALEMASTERIDUNIQUEIDENTIFIERNOTNULL,销售单号INTNOTNULL,销售日期DATETIMENULL,总件数INTNULL,总金额MONEYNULL,经手人VARCHAR50COLLATECHINESE_PRC_CI_ASNULLONPRIMARYGO七、员工编号性别CREATETABLEDBOSEXIDINTNOTNULL,SEXCHAR10COLLATECHINESE_PRC_CI_ASNULLONPRIMARYGO六、源程序系统主界面使用ACTIONMANAGER控件对整个系统的菜单和工具栏按钮进行管理，以下为ACTIONMANAGER控件的部分源代码PROCEDURETFRM_MAINYGXXEXECUTESENDERTOBJECTBEGINTRYFRM_YGXXTFRM_YGXXCREATESELFFRM_YGXXSHOWMODALFINALLYFRM_YGXXFREEENDENDPROCEDURETFRM_MAINFORMCREATESENDERTOBJECT/生成数据模块BEGINFRM_DMMTFRM_DMMCREATESELFENDPROCEDURETFRMMAINFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEAN/关闭数据模块BEGINFRM_DMMDESTROYENDPROCEDURETFRM_MAINBMCSEXECUTESENDERTOBJECTBEGINTRYFRM_BMCSTFRM_BMCSCREATESELFFRM_BMCSSHOWMODALFINALLYFRM_BMCSFREEENDENDPROCEDURETFRM_MAINGSXXEXECUTESENDERTOBJECTBEGINTRYFRM_GSXXTFRM_GSXXCREATESELFFRM_GSXXSHOWMODALFINALLYFRM_GSXXFREEENDENDPROCEDURETFRM_MAINSPXXEXECUTESENDERTOBJECTBEGINTRYFRM_SPXXTFRM_SPXXCREATESELFFRM_SPXXSHOWMODALFINALLYFRM_SPXXFREEENDENDPROCEDURETFRM_MAINSXKDEXECUTESENDERTOBJECTBEGINTRYFRM_XSKDTFRM_XSKDCREATESELFFRM_XSKDSHOWMODALFINALLYFRM_XSKDFREEENDEND员工信息维护窗体在些窗体中能对员工信息进行增，删，改、查询操作。此窗体源代码如下PROCEDURETFRM_YGXXBTN_FINDCLICKSENDERTOBJECT/查询按钮代码VARSTRNAMESTRINGSUCESSBOOLBEGINIFTRIMEDIT_NAMETEXTTHENBEGINSTRNAMETRIMEDIT_NAMETEXTSUCESSADT_EMPYLOCATENAME,STRNAME,LOCASEINSENSITIVE,LOPARTIALKEYIFNOTSUCESSTHENBEGINSHOWMESSAGE没有查找到你需要查询的员工资料EDIT_NAMESETFOCUSENDENDELSEBEGINSHOWMESSAGE请输入查询的员工姓名EDIT_NAMESETFOCUSENDENDPROCEDURETFRM_YGXXBTN_APPDCLICKSENDERTOBJECT/增加按钮代码VARMAXNUMINTEGERBEGINDBE_NAMEENABLEDTRUEDBLUCBB_SEXENABLEDTRUEDTPICK_BIRTHDAYENABLEDTRUEDTPICK_PYDATEENABLEDTRUEDBLCBB_DEPTENABLEDTRUEDBE_AGEENABLEDTRUEDBE_EDUCATIONENABLEDTRUEDBE_SFZHMENABLEDTRUEDBE_PHONE1ENABLEDTRUEDBE_PHONE2ENABLEDTRUEDBE_ADDRESSENABLEDTRUEDBE_REMARKENABLEDTRUEDBE_BIRTHDAYVISIBLEFALSEDBE_PYDATEVISIBLEFALSEDTPICK_BIRTHDAYVISIBLETRUEDTPICK_PYDATEVISIBLETRUEDBE_IDENABLEDFALSEBTN_APPDENABLEDFALSEBTN_DELENABLEDFALSEBTN_MODIENABLEDFALSEBTN_SAVEENABLEDTRUEBTN_CANLENABLEDTRUEBTN_CLOSEENABLEDTRUEDBE_NAMESETFOCUSMAXNUM1IFADT_EMPYRECORDCOUNT0THENBEGINADT_EMPYLASTMAXNUMADT_EMPYFIELDBYNAMEIDASINTEGERMAXNUMADT_EMPYAPPENDADT_EMPYFIELDBYNAMEIDASINTEGERMAXNUMENDELSEBEGINADT_EMPYAPPENDADT_EMPYFIELDBYNAMEIDASINTEGERMAXNUMENDDTPICK_BIRTHDAYDATENOWDTPICK_PYDATEDATENOWENDPROCEDURETFRM_YGXXBTN_DELCLICKSENDERTOBJECT删除按钮代码BEGINDBE_BIRTHDAYVISIBLETRUEDBE_PYDATEVISIBLETRUEDTPICK_BIRTHDAYVISIBLEFALSEDTPICK_PYDATEVISIBLEFALSEDBE_IDENABLEDFALSEBTN_APPDENABLEDTRUEBTN_DELENABLEDTRUEBTN_MODIENABLEDTRUEBTN_SAVEENABLEDFALSEBTN_CANLENABLEDFALSEBTN_CLOSEENABLEDTRUEIFIDYESAPPLICATIONMESSAGEBOX请的要删除数据吗,员工信息管理,MB_YESNOTHENBEGINIFADT_EMPYRECORDCOUNT0THENBEGINADT_EMPYDELETEADT_EMPYREFRESHENDELSESHOWMESSAGE没有数据，不能删除ENDENDPROCEDURETFRM_YGXXBTN_SAVECLICKSENDERTOBJECT保存按钮代码BEGINIFTRIMDBE_NAMETEXTANDTRIMDBE_SFZHMTEXTTHENBEGINIFADT_EMPYSTATEINDSEDIT,DSINSERTTHENBEGINADT_EMPYFIELDBYNAMEBIRTHDAYASDATETIMEDTPICK_BIRTHDAYDATEADT_EMPYFIELDBYNAMEPYDATEASDATETIMEDTPICK_PYDATEDATEADT_EMPYPOSTADT_EMPYREFRESHDBE_NAMEENABLEDFALSEDBLUCBB_SEXENABLEDFALSEDTPICK_BIRTHDAYENABLEDFALSEDTPICK_PYDATEENABLEDFALSEDBE_BIRTHDAYENABLEDFALSEDBLCBB_DEPTENABLEDFALSEDBE_AGEENABLEDFALSEDBE_EDUCATIONENABLEDFALSEDBE_SFZHMENABLEDFALSEDBE_PHONE1ENABLEDFALSEDBE_PHONE2ENABLEDFALSEDBE_ADDRESSENABLEDFALSEDBE_PYDATEENABLEDFALSEDBE_REMARKENABLEDFALSEDBE_BIRTHDAYVISIBLETRUEDBE_PYDATEVISIBLETRUEDTPICK_BIRTHDAYVISIBLEFALSEDTPICK_PYDATEVISIBLEFALSEDBE_IDENABLEDFALSEBTN_APPDENABLEDTRUEBTN_DELENABLEDTRUEBTN_MODIENABLEDTRUEBTN_SAVEENABLEDFALSEBTN_CANLENABLEDFALSEBTN_CLOSEENABLEDTRUEBTN_APPDSETFOCUSENDENDELSEBEGINSHOWMESSAGE员工姓名或身份证号码中没有输入数据，请重新输入DBE_BIRTHDAYVISIBLEFALSEDBE_PYDATEVISIBLEFALSEDTPICK_BIRTHDAYVISIBLETRUEDTPICK_PYDATEVISIBLETRUEENDENDPROCEDURETFRM_YGXXBTN_CANLCLICKSENDERTOBJECT/取消按钮代码BEGINIFDS_EMPYSTATEINDSINSERT,DSEDITTHENIFIDYESAPPLICATIONMESSAGEBOX你所做的操作没有保存，真的要取消吗,员工信息维护,MB_YESNOTHENBEGINDBE_BIRTHDAYVISIBLETRUEDBE_PYDATEVISIBLETRUEDTPICK_BIRTHDAYVISIBLEFALSEDTPICK_PYDATEVISIBLEFALSEDBE_IDENABLEDFALSEBTN_APPDENABLEDTRUEBTN_DELENABLEDTRUEBTN_MODIENABLEDTRUEBTN_SAVEENABLEDFALSEBTN_CANLENABLEDFALSEBTN_CLOSEENABLEDTRUEADT_EMPYCANCELADT_EMPYREFRESHDBE_NAMEENABLEDFALSEDBLUCBB_SEXENABLEDFALSEDTPICK_BIRTHDAYENABLEDFALSEDTPICK_PYDATEENABLEDFALSEDBE_BIRTHDAYENABLEDFALSEDBLCBB_DEPTENABLEDFALSEDBE_AGEENABLEDFALSEDBE_EDUCATIONENABLEDFALSEDBE_SFZHMENABLEDFALSEDBE_PHONE1ENABLEDFALSEDBE_PHONE2ENABLEDFALSEDBE_ADDRESSENABLEDFALSEDBE_PYDATEENABLEDFALSEDBE_REMARKENABLEDFALSEENDELSEBEGINDBE_NAMEENABLEDTRUEDBLUCBB_SEXENABLEDTRUEDTPICK_BIRTHDAYENABLEDTRUEDTPICK_PYDATEENABLEDTRUEDBE_BIRTHDAYENABLEDFALSEDBLCBB_DEPTENABLEDTRUEDBE_AGEENABLEDTRUEDBE_EDUCATIONENABLEDTRUEDBE_SFZHMENABLEDTRUEDBE_PHONE1ENABLEDTRUEDBE_PHONE2ENABLEDTRUEDBE_ADDRESSENABLEDTRUEDBE_PYDATEENABLEDFALSEDBE_REMARKENABLEDTRUEBTN_SAVESETFOCUSENDENDPROCEDURETFRM_YGXXBTN_MODICLICKSENDERTOBJECT/编辑按钮代码BEGINADT_EMPYEDITDTPICK_BIRTHDAYDATEADT_EMPYFIELDBYNAMEBIRTHDAYASDATETIMEDTPICK_PYDATEDATEADT_EMPYFIELDBYNAMEPYDATEASDATETIMEDBE_NAMEENABLEDTRUEDBLUCBB_SEXENABLEDTRUEDTPICK_BIRTHDAYENABLEDTRUEDTPICK_PYDATEENABLEDTRUEDBLCBB_DEPTENABLEDTRUEDBE_AGEENABLEDTRUEDBE_EDUCATIONENABLEDTRUEDBE_SFZHMENABLEDTRUEDBE_PHONE1ENABLEDTRUEDBE_PHONE2ENABLEDTRUEDBE_ADDRESSENABLEDTRUEDBE_REMARKENABLEDTRUEDBE_NAMESETFOCUSDBE_BIRTHDAYVISIBLEFALSEDBE_PYDATEVISIBLEFALSEDTPICK_BIRTHDAYVISIBLETRUEDTPICK_PYDATEVISIBLETRUEDBE_IDENABLEDFALSEBTN_APPDENABLEDFALSEBTN_DELENABLEDFALSEBTN_MODIENABLEDFALSEBTN_SAVEENABLEDTRUEBTN_CANLENABLEDTRUEBTN_CLOSEENABLEDTRUEEND厂家信息维护窗体在些窗体中能对厂商信息进行增，删，改、查询操作。此窗体源代码如下PROCEDURETFRM_GSXXSET_DBEDIT_STATUSSTATUSBOOLEAN/自定义的设置编缉框状态子函数BEGINDB_NAMEENABLEDSTATUSDB_LXRENABLEDSTATUSDB_PHONE1ENABLEDSTATUSDB_PHONE2ENABLEDSTATUSDB_PHONE3ENABLEDSTATUSDB_ADDRESSENABLEDSTATUSDB_YBENABLEDSTATUSDB_PRODUCEENABLEDSTATUSDB_HRDBENABLEDSTATUSDB_BANKENABLEDSTATUSDB_ACCOUNTENABLEDSTATUSENDPROCEDURETFRM_GSXXFORMCREATESENDERTOBJECT/打开公司信息表BEGINIFNOTADT_COMPANYACTIVETHENADT_COMPANYOPENENDPROCEDURETFRM_GSXXFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANBEGIN/关闭公司信息表ADT_COMPANYCLOSEENDPROCEDURETFRM_GSXXEDT_FINDENTERSENDERTOBJECTBEGINEDT_FINDSELECTALLENDPROCEDURETFRM_GSXXSET_BUTTON_STATUS/自定义按钮状态子函数BEGINBTN_ADDENABLEDADT_COMPANYSTATEINDSBROWSEBTN_DELETEENABLEDADT_COMPANYSTATEINDSBROWSEBTN_MODIFYENABLEDADT_COMPANYSTATEINDSBROWSEBTN_SAVEENABLEDADT_COMPANYSTATEINDSEDIT,DSINSERTBTN_CANCELENABLEDADT_COMPANYSTATEINDSEDIT,DSINSERTENDPROCEDURETFRM_GSXXFORMSHOWSENDERTOBJECTBEGINSET_BUTTON_STATUSDB_IDENABLEDFALSESET_DBEDIT_STATUSFALSEENDPROCEDURETFRM_GSXXBTN_ADDCLICKSENDERTOBJECT/增加按钮代码VARNUMMAXINTEGERBEGINNUMMAX1SET_DBEDIT_STATUSTRUEIFADT_COMPANYFILTEREDTHENADT_COMPANYFILTEREDFALSEIFADT_COMPANYRECORDCOUNT0THENBEGINADT_COMPANYLASTNUMMAXNUMMAXADT_COMPANYFIELDBYNAMEIDASINTEGERADT_COMPANYAPPENDADT_COMPANYFIELDBYNAMEIDASINTEGERNUMMAXDB_NAMESETFOCUSENDELSEBEGINADT_COMPANYAPPENDADT_COMPANYFIELDBYNAMEIDASINTEGERNUMMAXDB_NAMESETFOCUSENDSET_BUTTON_STATUSENDPROCEDURETFRM_GSXXBTN_CANCELCLICKSENDERTOBJECT/取消按钮代码BEGINIFIDYESAPPLICATIONMESSAGEBOX真的要取消操作吗,厂商信息维护,MB_YESNOTHENBEGINADT_COMPANYCANCELSET_BUTTON_STATUSBTN_ADDSETFOCUSSET_DBEDIT_STATUSFALSEENDELSEBEGINDB_NAMESETFOCUSSET_BUTTON_STATUSENDIFADT_COMPANYFILTEREDTHENADT_COMPANYFILTEREDFALSEENDPROCEDURETFRM_GSXXBTN_SAVECLICKSENDERTOBJECT/保存按钮代码BEGINIFTRIMDB_NAMETEXTTHENBEGINSHOWMESSAGE厂家名称中无数据不能保存，请重新输入DB_NAMESETFOCUSENDELSEBEGINADT_COMPANYPOSTADT_COMPANYREFRESHSET_BUTTON_STATUSSET_DBEDIT_STATUSFALSEENDIFADT_COMPANYFILTEREDTHENADT_COMPANYFILTEREDFALSEENDPROCEDURETFRM_GSXXBTN_DELETECLICKSENDERTOBJECT/删除按钮代码BEGINIFNOTADT_COMPANYEOFTHENBEGINIFIDYESAPPLICATIONMESSAGEBOX请的要删除些条纪录吗,厂商信息维护,MB_YESNOTHENBEGINADT_COMPANYDELETEADT_COMPANYREFRESHSET_BUTTON_STATUSENDBTN_ADDSETFOCUSSET_DBEDIT_STATUSFALSEENDELSEBEGINSHOWMESSAGE没有数据，不能删除SET_BUTTON_STATUSENDIFADT_COMPANYFILTEREDTHENADT_COMPANYFILTEREDFALSEENDPROCEDURETFRM_GSXXBTN_MODIFYCLICKSENDERTOBJECT/编缉按钮代码BEGINIFADT_COMPANYRECORDCOUNT0THENBEGINADT_COMPANYEDITSET_BUTTON_STATUSSET_DBEDIT_STATUSTRUEENDELSEBEGINSHOWMESSAGE没有数据，不能修改SET_BUTTON_STATUSSET_DBEDIT_STATUSFALSEENDENDPROCEDURETFRM_GSXXBTN_CLOSECLICKSENDERTOBJECT/关闭按钮代码BEGINIFADT_COMPANYSTATEINDSINSERT,DSEDITTHENBEGINSHOWMESSAGE数据没有保存，请先保存数据BTN_SAVESETFOCUSENDELSECLOSEENDPROCEDURETFRM_GSXXFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINBTN_CLOSECLICKENDPROCEDURETFRM_GSXXBTN_FNDCLICKSENDERTOBJECT/查找按钮代码BEGINADT_COMPANYFILTEREDFALSEADT_COMPANYFILTER厂家名称TRIMEDT_FINDTEXTADT_COMPANYFILTEREDTRUEIFADT_COMPANYRECORDCOUNT0THENBEGINSHOWMESSAGE对不起，没有你所要查找的数据ADT_COMPANYFILTEREDFALSEENDEDT_FINDTEXT请输入厂商名称END商品信息维护窗体在些窗体中能对商品信息进行增，删，改、查询操作。此窗体源代码如下PROCEDURETFRM_SPXXSETDBEDITSTATEBOOLEAN/自定义的设置编缉框状态子函数BEGINDB_NAMEENABLEDSTATEDB_BHENABLEDSTATEDB_XHENABLEDSTATEDB_PRICEENABLEDSTATEDB_UNITENABLEDSTATEDBLPCB_CJMCENABLEDSTATEENDPROCEDURETFRM_SPXXFORMCREATESENDERTOBJECTBEGINIFNOTADT_PRODUCTACTIVETHENADT_PRODUCTOPENADT_COMPANYOPENENDPROCEDURETFRM_SPXXBTN_CLOSECLICKSENDERTOBJECTBEGINIFADT_PRODUCTSTATEINDSINSERT,DSEDITTHENBEGINSHOWMESSAGE有数据未保存，不能退出BTN_SAVESETFOCUSENDELSECLOSEENDPROCEDURETFRM_SPXXSETBUTTON/自定义的设置按钮状态的子函数BEGINBTN_ADDENABLEDADT_PRODUCTSTATEDSBROWSEBTN_MODIFYENABLEDADT_PRODUCTSTATEDSBROWSEBTN_DELETEENABLEDADT_PRODUCTSTATEDSBROWSEBTN_SAVEENABLEDADT_PRODUCTSTATEINDSINSERT,DSEDITBTN_CANCELENABLEDADT_PRODUCTSTATEINDSINSERT,DSEDITENDPROCEDURETFRM_SPXXFORMSHOWSENDERTOBJECTBEGINSETBUTTONDB_IDENABLEDFALSESETDBEDITFALSEENDPROCEDURETFRM_SPXXBTN_ADDCLICKSENDERTOBJECT/增加按钮代码VARNUMMAXINTEGERBEGINNUMMAX1SETDBEDITTRUEIFADT_PRODUCTRECORDCOUNT0THENBEGINADT_PRODUCTLASTNUMMAXNUMMAXADT_PRODUCTFIELDBYNAMEIDASINTEGERADT_PRODUCTAPPENDADT_PRODUCTFIELDBYNAMEIDASINTEGERNUMMAXENDELSEBEGINADT_PRODUCTAPPENDADT_PRODUCTFIELDBYNAMEIDASINTEGERNUMMAXENDDB_NAMESETFOCUSSETBUTTONENDPROCEDURETFRM_SPXXBTN_DELETECLICKSENDERTOBJECT/删除按钮代码BEGINIFADT_PRODUCTRECORDCOUNT0THENBEGINIFIDYESAPPLICATIONMESSAGEBOX真的要删除些条纪录吗,商品信息维护,MB_YESNOTHENBEGINADT_PRODUCTDELETEADT_PRODUCTREFRESHENDSETBUTTONENDELSEBEGINSHOWMESSAGE没有数据，不能删除SETBUTTONENDENDPROCEDURETFRM_SPXXBTN_SAVECLICKSENDERTOBJECT/保存按钮代码BEGINIFTRIMDB_NAMETEXTORTRIMDB_BHTEXTTHENBEGINSHOWMESSAGE产品名称或产品编号中没有数据，不能保存DB_NAMESETFOCUSENDELSEBEGINADT_PRODUCTPOSTADT_PRODUCTREFRESHSETBUTTONSETDBEDITFALSEBTN_ADDSETFOCUSENDENDPROCEDURETFRM_SPXXBTN_MODIFYCLICKSENDERTOBJECT/编缉按钮代码BEGINIFADT_PRODUCTRECORDCOUNT0THENBEGINADT_PRODUCTEDITSETDBEDITTRUEDB_NAMESETFOCUSSETBUTTONENDELSEBEGINSHOWMESSAGE没有数据，不能进行修改BTN_ADDSETFOCUSENDENDPROCEDURETFRM_SPXXBTN_CANCELCLICKSENDERTOBJECT/取消按钮代码BEGINIFADT_PRODUCTSTATEINDSINSERT,DSEDITTHENBEGINIFIDYESAPPLICATIONMESSAGEBOX请的要取消吗,商品信息维护,MB_YESNOTHENBEGINADT_PRODUCTCANCELSETBUTTONBTN_ADDSETFOCUSSETDBEDITFALSEENDELSEDB_NAMESETFOCUSENDENDPROCEDURETFRM_SPXXFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANBEGINADT_COMPANYCLOSEADT_PRODUCTCLOSEENDPROCEDURETFRM_SPXXBTN_FINDCLICKSENDERTOBJECT/查找按钮代码BEGINADT_PRODUCTFILTEREDFALSEADT_PRODUCTFILTER产品编号TRIMEDT_FINDTEXTADT_PRODUCTFILTEREDTRUEIFADT_PRODUCTRECORDCOUNT0THENBEGINSHOWMESSAGE对不起，没有你所要查找的数据ADT_PRODUCTFILTEREDFALSEENDENDPROCEDURETFRM_SPXXFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINBTN_CLOSECLICKEND部门参数窗体在些窗体中能对部门参数信息进行增，删，改操作。此窗体源代码如下PROCEDURETFRM_BMCSFORMSHOWSENDERTOBJECTBEGINDBGRID1COLUMNS0WIDTH50/初始化DBGRID、BUTTON控件DBGRID1COLUMNS1WIDTH80ADT_DEPTOPENSPBSAVENABLEDFALSESPBCNLENABLEDFALSEDBEDIT1ENABLEDFALSEDBEDIT2ENABLEDFALSEENDPROCEDURETFRM_BMCSFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINADT_DEPTCLOSEENDPROCEDURETFRM_BMCSSPCLOCLICKSENDERTOBJECTBEGINCLOSEENDPROCEDURETFRM_BMCSSPBADDCLICKSENDERTOBJECT/增加按钮代码VARMAXNUMINTEGERBEGINMAXNUM1SPBADDENABLEDFALSESPBDELENABLEDFALSESPBMDIENABLEDFALSESPBSAVENABLEDTRUESPBCNLENABLEDTRUEDBEDIT1ENABLEDFALSEDBEDIT2ENABLEDTRUEIFADT_DEPTRECORDCOUNT0THEN/自动生成ID编号BEGINADT_DEPTREFRESHADT_DEPTLASTMAXNUMMAXNUMADT_DEPTFIELDBYNAMEIDASINTEGERENDADT_DEPTAPPEND/添加纪录ADT_DEPTFIELDBYNAMEIDASSTRINGINTTOSTRMAXNUMDBEDIT2SETFOCUSENDPROCEDURETFRM_BMCSSPBSAVCLICKSENDERTOBJECT/保存按钮代码BEGINIFLENGTHTRIMDBEDIT2TEXT0THEN/判断部门名称是否存在数据，存在则提交纪录BEGINADT_DEPTPOSTSPBADDENABLEDTRUESPBDELENABLEDTRUESPBMDIENABLEDTRUESPBSAVENABLEDFALSESPBCNLENABLEDFALSEDBEDIT2ENABLEDFALSEDBGRID1SETFOCUSENDELSE/部门名称没有输入数据，则提示用户输入数据BEGINSHOWMESSAGE部门名称无数据，请输入DBEDIT2SETFOCUSENDENDPROCEDURETFRM_BMCSSPBCNLCLICKSENDERTOBJECT/取消按钮代码BEGINIFIDYESAPPLICATIONMESSAGEBOX你真的要取消吗,部门参数,MB_YESNOTHENBEGINADT_DEPTCANCELDBEDIT2ENABLEDFALSESPBADDENABLEDTRUESPBDELENABLEDTRUESPBMDIENABLEDTRUESPBSAVENABLEDFALSESPBCNLENABLEDFALSEDBGRID1SETFOCUSENDENDPROCEDURETFRM_BMCSSPBDELCLICKSENDERTOB