vcd租赁管理系统(毕业论文)

毕业设计VCD租赁管理系统院系_专业_班级_姓名_日期年月日中文摘要VCD租赁管理系统为光盘管理者提供充足的信息和快捷的查询手段，其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI60软件及其提供的各种面向对象的开发工具，建立完整性强、安全性好的数据库，开发出功能完备，易使用的应用程序。经过调试、编译与实现，该程序界面友好、程序设计风格朴素，使用起来美观大方、方便易用。尤其是系统的“查询模块”的功能极大的减轻工作人员的工作量，并以快速、准确等优点取代人工操作，提G20652G1114光盘管理工作G6940G10587。关键词DELPHI60信息管理系统数据库模块VCD租赁信息VCDDISCSMANAGERFORTHELEASEMANAGEMENTSYSTEMTOPROVIDEADEQUATEINFORMATIONANDEFFICIENTMEANSENQUIRIES,THEDEVELOPMENTMAINLYTOTHEESTABLISHMENTANDMAINTENANCEOFDATABASESINCLUDINGBACKGROUNDAPPLICATIONSANDFRONTENDDEVELOPMENTOFTHETWODELPHI60ANDTHEUSEOFOBJECTORIENTEDSOFTWAREDEVELOPMENTTOOLS,THEESTABLISHMENTOFSTRONGINTEGRITY,GOODSAFETYDATABASEDEVELOPEDFUNCTIONS,EASYTOUSEAPPLICATIONSAFTERDEBUGGING,TRANSLATIONANDTHEREALIZATIONTHATTHEPROCESSFRIENDLYINTERFACE,SIMPLEPROGRAMMINGSTYLE,USINGUPAESTHETICGENEROUS,CONVENIENTUSERFRIENDLYINPARTICULARSYSTEM“ENQUIRIESMODULE“FUNCTIONGREATLYREDUCETHEWORKLOADOFSTAFF,ANDTOTHERAPID,ACCURATE,ANDOTHERADVANTAGESREPLACEMANUALLYOPERATED,ANDENHANCEDCDSMANAGEMENTEFFICIENCYKEYWORDDELPHI60INFORMATIONMANAGEMENTSYSTEMDATABASEMODULEVCDRENTALINFORMATION引言11DELPHI语言概述211DELPHI简介212数据库系统简介213本应用软件的基本介绍32本应用程序的构成和开发步骤421可行性研究9211经济可行性14212时间可行性15213技术可行性16214社会可行性1822数据库的建立和连接2023系统的总体设计2324系统的详细设计253本程序的技术实现及具体功能2731登录的界面与程序设计实现2832会员管理界面与代码设计实现及功能3433影碟图书界面与代码设计实现4334还租结算界面与代码设计5335现金报表界面设计与代码设计6536会员密码管理界面与代码设计72结论82致谢83参考文献84引言随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充G9397G1114多如G10287G8623的各G12193G17731G1226，G1306它们G1393然不能G9397G17287用G6155的各G12193特G8542G19668要，人们G17836不G5483不G5332发G17878G2524G14270G5061特G8542G19668G8726的G17731G1226。以G2081G5332发G58G76G81G71G82G90G86G5224用G17731G1226G7171G999业人G2604的工作，G19668要G6496G6581许多G999业G11705识和经过特G8542的培训G6177能G14000G1231。现在不G2528G1114，G2375使G1332G8821G7389G6521G2475过G1017G7696的G12255G5219设计训练，使用G39G72G79G83G75G76编程G16833G16340G1075G980G7691能够G5332发G1998功能强大、G17878G2524G14270G5061特G8542G19668G8726的G5224用G12255G5219G1114。G39G72G79G83G75G76编程G16833G16340G13499G6227G1114其G1194G16833G16340G7143学G7143用的特G9869，特别G17878G2524G1122G2033学G13785学习G58G76G81G71G82G90G86G13007G13491G13546G12255。G57G38G39G12211G17173管理G13007G13491用计算机管理G57G38G39G12211G17173的G980G12193计算机G5224用技术的G2031G7044,在计算机G17836G7422G7234及G1055G2081G57G38G39G12211G17173管理G18129G7171G11013工作人G2604人工G1082G1901,G16855G19417的方G5347来G6817作的G17现在G980G14336的G1821G11436G12211G17173管理G18129G18331用计算机G7246能G2282管理,G18331用计算机作为工具的G4466用的计算机G16758G2345管理G12255G5219来G5122助G2081G2500管理G2604进行G7368G7389G6940的G1821G11436G1998G1523管理工作。G57G38G39G12211G17173管理G13007G13491G7171G1868G3423的信息管理G13007G13491G11G48G44G54G12,其G5332发G1039要G2265G6336G2530G2500G6980G6466G5223的G5326G12447和G13512G6264以及G2081G12483G5224用G12255G5219的G5332发G1016个方面。G4557G1122G2081G13785要G8726G5326G12447G17227G6980G6466G980G14280G5627和完G6984G5627强、G6980G6466G4445G1852G5627好的G5223。而G4557G1122G2530G13785则要G8726G5224用G12255G5219功能完备,G7143使用等特G9869。经过分析,我们使用G39G72G79G83G75G76编程G16833G16340G5332发工具,利用其提供的各G12193面向G4557象的G5332发工具,尤其G7171G6980G6466窗口这G980能方便而简洁G6817纵G6980G6466G5223的G7246能G2282G4557象,首先在短时间内G5326G12447G13007G13491G5224用原G3423,然G2530,G4557G2033始原G3423G13007G13491进行G19668G8726迭代,不断修正和改进,直到形成用G6155G9397意的可行G13007G13491。因为本人能力G7389限，加上时间紧迫，所以设计G1998来的本G13007G13491可能功能比较简G2345，另外本G13007G13491G7171G2345机版，不能G4466现网络互联G6817作,这些G18129G7389待G1122我在以G2530的工作学习中进G980步改进。1DELPHI语言概述11DELPHI简介DELPHI是INPRISEG1856G2508出G2709的G980个优G12180的G2499G16282G2282程序开发工具软件，G4439G11713G4579G12946G5729，G1306功能G2376G2499以与G5234大的VISUALCG4230美。G4439易G4410易用，G3926G2528VB，G3252G13792G15999G12228为“G12544G3247代编程G16833G16340”。G11861995G5192G6524出DELPHI10G14279G1182G5062经经G2394G11147个G10268G7424，DELPHI70G17828G15904G3324WIN9XG6122WINME，WIN2000，WINXP，WINDOWSNT等操作系统G991，是G980个32G1313的应用程序开发工具。G17837G18336G6238“VB”G8616作是G1679G10928G11468G7438，DELPHI是G5114G7389G14270G2172功能的G999G1006G11468G7438。前G1135G5192，软件界G8981G15904G980G2489G16817G2495“G11507G8503的程序员用VC，G13886G7138的程序员用DELPHI”。G1075G7389的G6238DELPHIG12228作VBG7444手。12数据库系统简介数据库系统是G980个实G19481G2499G17828G15904的G4396G1660、维护和应用系统提供数据的软件系统，是G4396G1660G1183G17148、G3800理对象和管理系统的G19610G2524G1319。G4439G17902G5132G11013软件、数据库和数据管理员G13464G6116。其软件主要包括操作系统、各种G4499主G16833G16340，实用程序以及数据库管理系统。数据库是G1393G10043G7588种数据模G3423G13464G13467起来并G4396G6930G1120G13435G4396G1660G3132G1025的数据G19610G2524。G17837G1135数据为G3822个应用G7393G2165，G10432立G1122具G1319的应用程序。数据库G11013数据库管理系统统G980管理，数据的G6566G1849、G1474G6925和G7828G13046G3355要G17902过数据库管理系统G17839G15904。数据库管理系统是G980种系统软件，G4439的主要功能是维护数据库并G7389G6940G3332G16787G19394数据库G1025G1231G5859G18108G2010数据。对数据库的维护包括G1457G6357数据的完整性、G980G14280性和安全性。数据管理员G17139责创建、监控和维护整个数据库，使数据能G15999G1231何G7389权使用的人G7389G6940使用。数据库管理员G980般是G11013G1006G2165水平较G20652、资G2394较深的人员担G1231。数据库系统的个G1319含义是指G980个具G1319的数据库管理系统软件和用G4439建立起来的数据库；G4439的G4410科含义是指研究、开发、建立、维护和应用数据库系统所涉及的理论、方法、技术所构G6116的G4410科。G3324G17837G980含义G991，数据库系统是软件研究领域的G980个重要G2010支，G5132G12228为数据库领域。数据库研究跨越G1122计算G7438应用、系统软件和理论三个领域，其G1025应用促G17839新系统的研制开发，新系统G5114来新的理论研究，G13792理论研究又对前两个领域起着指导作用。数据库系统的出现是计算G7438应用的G980个G18336程碑，G4439使得计算G7438应用G1186以科G4410计算为主转向以数据G3800理为主，并G1186G13792使计算G7438得以G3324各G15904各G1006乃G14279家庭普遍使用。G3324G4439之前的文件系统虽然G1075能G3800理G6357久数据，G1306是文件系统不提供对G1231G5859G18108G2010数据的快速G16787G19394，G13792G17837对数据量不断增大的应用来说是G14279关重要的。为G1114实现对G1231G5859G18108G2010数据的快速G16787G19394，就要研究许G3822优G2282技术。G17837G1135优G2282技术往往很复杂，是普G17902用户难以实现的，所以就G11013系统软件（数据库管理系统）来完G6116，G13792提供给用户的是简单易用的数据库G16833G16340。G11013G1122对数据库的操作都G11013数据库管理系统完G6116，所以数据库就G2499以G10432立G1122具G1319的应用程序G13792G4396G3324，G1186G13792数据库又G2499以为G3822个用户所共享。G3252此，数据的G10432立性和共享性是数据库系统的重要特征。数据共享节省G1114大量人力物力，为数据库系统的广泛应用奠定G1114基础。数据库系统的出现使得普G17902用户能够方便G3332将日G5132数据G4396G1849计算G7438并G3324需要的时候快速G16787G19394G4439们，G1186G13792使的计算G7438走出科研G7438构G17839G1849各G15904各G1006、G17839G1849家庭。13本应用软件的基本介绍G7424应用软件先是打开G980个启G2172窗口，就G2499以G17839G1849应用程序的主窗口G1114。主界面是G980个图G3423界面窗口，整个平台显示采用图标方式，G2499以非G5132方便的管理会员、图书影碟、租金结算、影碟查询等基G7424信息，管理日G5132经营的基G7424情况，G17902过各种条件查询出影碟出借的基G7424信息，以及打印出查询出的基G7424信息，总之G980切影碟出借基G7424信息都会显示G3324系统平台上。另外G3324屏G5161G5050G1403G7389快捷G19145G19074，G5389出式G14768单和主窗口G14768单G11468G2528，G2499方便G17885G6333，大大提G20652G1114管理人员的工作G6940G10587。2本应用程序的构成和开发步骤G991面G1186软件工程的G16294G5242G1183G13473G7424程序的基G7424开发G8505G20600。G39G72G79G83G75G76应用程序G980般包含以G991三个基G7424G18108G2010G726应用程序G17828G15904的G6521口G726G17139责系统整G1319G10627G3671的设G13634，G17828G15904G10378G5589的监G16282，应用程序的启G2172等。应用程序的主G1319G726主要完G6116用户的G1006G2165G17935G17765功能，G3926G57G38G39光盘信息G15主G9448G15导G9448信息的G5417G1849G15用户管理G15出借G3837数等信息G17应用程序的G17753G2173G18108G2010G726G2339G2173程序主G1319完G6116的G980G1135工作。G991面G1186软件工程的G16294G5242G6563G17860G7424程序的开发G10995G2641G2620G7411，开发过程和G13464G13467过程。21可行性研究G1231何G980个系统G6122G980G20045工程，G3324建立之前，G5529G20047G20330G17885G17839G15904G2499G15904性G2010G7524，G2499G15904性G2010G7524包括两G4630含义，G980是G2499能性，G1120是G5529要性。G2499能性指开发信息系统的条件是G2554具备，G5529要性是指G4470观上是G2554G11507G8503需要，G17902过G2499G15904性研究，G2499G18003G1825G11462G11458G6249资，减G4581G6931G8847性要的G6451G3845。G991面G1186G3247方面来G16764论G726211经济可行性主要是G2494指算G980个新的系统开发所需要的G6249资G17165用和G17828算G17165用，并与G1284计的新系统G6922G11422G17839G15904G8616较，G11487是G2554G7389利。G7424系统所需的软G11840件G6116G7424G8616较G1314，G6249资G4579，具G7389G980定的G17902过性，G3252此，G3324经G8994上是G2499G15904的。212时间可行性主要包括系统G3324G11458前G10627G3671G991能G2554G8503G5132G17828G15904，G17828G15904后所G5353起的各方面，以及G17837G1135G2476G2282对G12050会G6122人的G3252素所G1147G10995的影G2721。G7424系统对人G1119的管理G8616较全面，G2499G19283G7411使用。213技术可行性利用现G7389的设备，软件及技术人员，新系统的G11458标能G2554G17810G2052，G17837G1075是G2499G15904性研究G1025需要G13783G15397的G980个G19394G20076。关系G3423数据库的G20652速发G4649使管理信息系统具备G1114G14403好的开发G10627G3671。G7424系统使用的DELPHI普及性好，操作简单，用户G2499以很快G6496G6581使用方法，G3252此，G3324技术上是完全G2499G15904的。G21G17G20G17G23社会可行性人G12879G12050会文G7138的发G4649G5062G17839G1849信息G2282的G20652速发G4649时G7411，G1268统的手工方式支G6357G991的管理模式，G5062经不能G9397足各方面的需要。开发G7424系统的G11458标不G1177是提G20652工作G6940G10587，减轻G2183G2172强G5242，G13792G1000减G4581出G19181G10587，具G7389很好的G12050会G5859义。22数据库的建立和连接G17837个程序采用的数据库是MICROSOFTACCESS2000，DELPHI作为数据库的前台开发工具，G5529G20047与后台数据库G17839G15904G17842G6521，G17837G7691G6177能控制和G17839G15904操作数据库，数据库的G17842G6521方式G7389两种，ODBC和ADO。ODBC是数据库的G17902用G6521口，其G13582点是G6940G10587G1314；G999用G6521口调用G11464G6521速G5242快，G1306是G17902用性G5058，G3926G7536用ODBCG17842G6521数据库G980般要两个G8505G20600G7261要创建数据G9316；2创建G6563G17860文件。数据库的建立G2029时G3324ACCESS2000G1025建立的，G3324G17837G18336G1332G2499以设G13634数据库的G4506G11733，对数据库G17839G15904G1457护。G3324创建数据G9316时G2499以G17902过BDEADMINISTRATORG17839G15904创建，G1075G2499以G17902过系统控制面G7507G1025的ODBC数据G9316G17839G15904建立。G13792G6563G17860文件G2029G2499以G3324DELPHI的主程序G1025用DATABASEPROFILEG1025G17839G15904建立，之后G17839G15904数据库的G17842G6521。G6521G991来的工作是建G15932。G2528G7691建G15932的过程G1075不是G2819G980的，G1306是G7380G13468实现的结G7536是G2819G980的。G1332G2499以G17902过ACCESSG17839G15904建G15932，G1075G2499以G17902过G3324DELPHI60主程序G1025建G15932，G1075G2499以G17902过POWERDESIGNERG17839G15904G2499G16282G2282的建立，不过用G17837种方法，G3324导G1849的时候要G6238数据库要先断开，G2554G2029数据库的数据容易G1014G3845。建G15932的过程G8892G5859G16280G14551G2282G2641G2529G16280G2029，G3926G15932的G4395段G2529等等。G2528时G1075要G8892G5859G15932的G4395段G19283G5242和G2499G2554为G12366。G3252为以后要设计G2052主G19202，外G19202的G19394G20076。G3926G7536G4395段G2529不G2528，G2528G980G4395段G19283G5242不G2528G2029主G19202和外G19202将会G17842G6521不上。G2499G16277建G15932时应G1582好全G4628的打算。G6117G3324程序开发的G2033G7411，G2528G7691G10371G1114G17837个G19181G16835，导G14280数据库出G19181，G7389时G17836要向G15932G1025新G2164G1849G4395段。导G14280数据窗口不好用的G17842锁反映。23系统的总体设计G17837个管理系统G11864月1日开始着手设计开发,经过G980段时间的G2010G7524，并根据对影音店光盘管理的具G1319要求及需要G7424软件实现的功能，将G7424软件G2010为5个大的模块，G2010别是G726G12544G980G18108G2010G726系统管理；G12544G1120G18108G2010G726日G5132统计；G12544三G18108G2010G726查询统计模块；G12544G3247G18108G2010G726帮G2173其他。程序G8981程图G3926G991G726A2A0A1A3A6A4A5A9A10A11A12A13A14A15A16A17A18A10A19A20A724系统的详细设计G17839G1849ACCESS后要G1582的G12544G980件G1119就是建立G980个数据库。ACCESS提供G11146种用构造数据库系统的对象，根据G7424课G20076的需要，G3324G17837G18336G17885G6333G980个G12366的数据库，G2641G2529建立G1114G980个数据库G2529G12228为“BYSJ”，G4410G10995档案管理系统。并G3324此数据库G991创建G1114六个G15932，用G1122G4396G6930原始数据。G4439G2494是G4396G6930数据，对其G1025数据的G1474G6925要G17902过对应的窗G1319来完G6116。创建各G15932的具G1319结构G3926G991G7261CASHBOOKG159322CZBG159323CZDTG159324DWG159325USERG159323本程序的技术实现及具体功能31登录的界面与程序设计实现代码设计UNITLONGINTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,EXTCTRLS,MENUS,COMCTRLS,TOOLWIN,BUTTONS,STDCTRLS,APPEVNTS,LABELBUTTON,TRADEIMAGE,MASKIMAGEBUTTON,MOVEIMAGEBUTTON,TRAYBARICONTYPETFRM_LONGCLASSTFORMPALUPTPANELPALLEFTUPTPANELIMGLEFTUPTIMAGEPALRIGHTUPTPANELIMGRIGHTUPTIMAGEPALUPMIDTPANELIMGCAPTIONTIMAGEPALDOWNTPANELIMGLEFTDOWNTIMAGEIMGRIGHTDOWNTIMAGEIMGDOWNMINTIMAGEPALLEFTTPANELPALRIGHTTPANELIMGRIGHTTIMAGEIMGCLOSEBUTTONTIMAGEIMGMINBUTTONTIMAGEIMGSIZEBUTTONTIMAGEIMGMAXBUTTONTIMAGEIMGRESTOREBUTTONTIMAGEIMGSYSICONTIMAGEPOPSYSTEMMENUTPOPUPMENUN_RESTORETMENUITEMN_MAXTMENUITEMN_MINTMENUITEMN_MOVETMENUITEMN_SIZETMENUITEMN_SPEATERTMENUITEMN_CLOSETMENUITEMPALCLIENTTPANELLBCAPTIONTLABELCOOLBARMENUTCOOLBARTOOLBARMENUTTOOLBARIMGLEFTTIMAGEIMGCOLORLEFTUPTIMAGEIMGGRAYCAPTIONTIMAGEIMGGRAYMENUBARTIMAGEIMGGRAYRIGHTUPTIMAGEIMGCOLORCAPTIONTIMAGEIMGGRAYLEFTUPTIMAGEIMGCOLORRIGHTUPTIMAGEIMGRIGHTUP1TIMAGEIMGLEFTUP1TIMAGEIMGCOLORMENUBARTIMAGELABEL1TLABELLABEL2TLABELE_PASSTEDITE_ZZYTCOMBOBOXB_OKTMOVEIMGBTNBLABEL_OKTLABELBTNBLABEL_EXITTLABELBTNB_EXITTMOVEIMGBTNB_EDITTMOVEIMGBTNLABELBTN1TLABELBTNPROCEDUREIMGMINBUTTONCLICKSENDERTOBJECTPROCEDUREIMGSIZEBUTTONCLICKSENDERTOBJECTPROCEDUREIMGCLOSEBUTTONCLICKSENDERTOBJECTPROCEDUREIMGCAPTIONMOUSEDOWNSENDERTOBJECTBUTTONTMOUSEBUTTONSHIFTTSHIFTSTATEX,YINTEGERPROCEDUREIMGCAPTIONMOUSEMOVESENDERTOBJECTSHIFTTSHIFTSTATEX,YINTEGERPROCEDUREIMGCAPTIONMOUSEUPSENDERTOBJECTBUTTONTMOUSEBUTTONSHIFTTSHIFTSTATEX,YINTEGERPROCEDUREFORMCREATESENDERTOBJECTPROCEDUREIMGSYSICONMOUSEDOWNSENDERTOBJECTBUTTONTMOUSEBUTTONSHIFTTSHIFTSTATEX,YINTEGERPROCEDUREPOPSYSTEMMENUPOPUPSENDERTOBJECTPROCEDUREN_SIZECLICKSENDERTOBJECTPROCEDUREN_MOVECLICKSENDERTOBJECTPROCEDUREFORMSHOWSENDERTOBJECTPROCEDUREE_ZZYCHANGESENDERTOBJECTPROCEDUREB_OKCLICKSENDERTOBJECTPROCEDUREFORMACTIVATESENDERTOBJECTPROCEDUREB_EXITCLICKSENDERTOBJECTPROCEDUREB_EDITCLICKSENDERTOBJECTPROCEDUREE_PASSKEYPRESSSENDERTOBJECTVARKEYCHARPROCEDUREFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONPRIVATEPRIVATEDECLARATIONSCANMOVEBOOLEANCURPOINTTPOINTOLDPOINTTPOINTCANVASTCANVASIINTEGER/密码循环三次PROTECTEDPROCEDURECREATEPARAMSVARPARAMSTCREATEPARAMSOVERRIDEPROCEDUREWMACTIVATEVARMSGTWMACTIVATEMESSAGEWM_ACTIVATEPUBLICPUBLICDECLARATIONSENDVARFRM_LONGTFRM_LONGIMPLEMENTATIONUSESPUBLICVAR,PASSEDIT,DATAM,MAINRDFMPROCEDURETFRM_LONGCREATEPARAMSVARPARAMSTCREATEPARAMSBEGININHERITEDCREATEPARAMSPARAMSIFBORDERSTYLEBSNONETHENPARAMSSTYLEWS_THICKFRAMEORWS_POPUPORWS_BORDERENDPROCEDURETFRM_LONGIMGMINBUTTONCLICKSENDERTOBJECTBEGINIFAPPLICATIONMAINFORMSELFTHENAPPLICATIONMINIMIZEELSEDEFWINDOWPROCHANDLE,WM_SYSCOMMAND,SC_MINIMIZE,0ENDPROCEDURETFRM_LONGIMGSIZEBUTTONCLICKSENDERTOBJECTBEGINIFSELFWINDOWSTATEWSNORMALTHENBEGINDEFWINDOWPROCHANDLE,WM_SYSCOMMAND,SC_MAXIMIZE,0IMGSIZEBUTTONPICTUREIMGRESTOREBUTTONPICTUREENDELSEBEGINDEFWINDOWPROCHANDLE,WM_SYSCOMMAND,SC_RESTORE,0IMGSIZEBUTTONPICTUREIMGMAXBUTTONPICTUREENDENDPROCEDURETFRM_LONGIMGCLOSEBUTTONCLICKSENDERTOBJECTBEGINDEFWINDOWPROCHANDLE,WM_SYSCOMMAND,SC_CLOSE,0ENDPROCEDURETFRM_LONGIMGCAPTIONMOUSEDOWNSENDERTOBJECTBUTTONTMOUSEBUTTONSHIFTTSHIFTSTATEX,YINTEGERBEGINIFBUTTONMBLEFTANDSSLEFTINSHIFTTHENBEGINCANMOVETRUECANVASTCANVASCREATEWITHCANVASDOBEGINPENSTYLEPSDOTBRUSHSTYLEBSCLEARPENWIDTH2PENMODEPMNOTXORHANDLEGETDC0RECTANGLELEFT,TOP,LEFTWIDTH,TOPHEIGHTCURPOINTXXCURPOINTYYOLDPOINTXLEFTOLDPOINTYTOPEND/ENDWITHEND/ENDIFENDPROCEDURETFRM_LONGIMGCAPTIONMOUSEMOVESENDERTOBJECTSHIFTTSHIFTSTATEX,YINTEGERBEGINIFNOTCANMOVETHENEXITWITHCANVASDOBEGINRECTANGLEOLDPOINTX,OLDPOINTY,OLDPOINTXWIDTH,OLDPOINTYHEIGHTOLDPOINTXLEFTXCURPOINTXOLDPOINTYTOPYCURPOINTYRECTANGLEOLDPOINTX,OLDPOINTY,OLDPOINTXWIDTH,OLDPOINTYHEIGHTENDENDPROCEDURETFRM_LONGIMGCAPTIONMOUSEUPSENDERTOBJECTBUTTONTMOUSEBUTTONSHIFTTSHIFTSTATEX,YINTEGERBEGINIFNOTCANMOVETHENEXITWITHCANVASDOBEGINRECTANGLEOLDPOINTX,OLDPOINTY,OLDPOINTXWIDTH,OLDPOINTYHEIGHTLEFTOLDPOINTXTOPOLDPOINTYFREEENDCANMOVENOTCANMOVEENDPROCEDURETFRM_LONGFORMCREATESENDERTOBJECTBEGINLBCAPTIONCAPTIONCAPTIONDMADO_USEROPENDMADO_USERSORT编号WHILENOTDMADO_USEREOFDOBEGINE_ZZYITEMSADDDMADO_USERFIELDBYNAME操作员ASSTRINGDMADO_USERNEXTENDE_ZZYITEMINDEX0ENDPROCEDURETFRM_LONGIMGSYSICONMOUSEDOWNSENDERTOBJECTBUTTONTMOUSEBUTTONSHIFTTSHIFTSTATEX,YINTEGERBEGINPOPSYSTEMMENUPOPUPLEFTIMGSYSICONLEFT,TOPIMGSYSICONTOPIMGSYSICONHEIGHTENDPROCEDURETFRM_LONGPOPSYSTEMMENUPOPUPSENDERTOBJECTBEGINN_RESTOREENABLEDIMGSIZEBUTTONVISIBLEANDWINDOWSTATEWSMAXIMIZEDN_MAXENABLEDIMGSIZEBUTTONVISIBLEANDWINDOWSTATEWSNORMALN_MINENABLEDIMGMINBUTTONVISIBLEN_SIZEENABLEDIMGSIZEBUTTONVISIBLEENDPROCEDURETFRM_LONGN_SIZECLICKSENDERTOBJECTBEGINDEFWINDOWPROCHANDLE,WM_SYSCOMMAND,SC_SIZE,0ENDPROCEDURETFRM_LONGN_MOVECLICKSENDERTOBJECTBEGINDEFWINDOWPROCHANDLE,WM_SYSCOMMAND,SC_MOVE,0ENDPROCEDURETFRM_LONGFORMSHOWSENDERTOBJECTBEGINIFWINDOWSTATEWSNORMALTHENIMGSIZEBUTTONPICTUREBITMAPIMGMAXBUTTONPICTUREBITMAPELSEIFWINDOWSTATEWSMAXIMIZEDTHENIMGSIZEBUTTONPICTUREBITMAPIMGRESTOREBUTTONPICTUREBITMAPENDPROCEDURETFRM_LONGWMACTIVATEVARMSGTWMACTIVATEBEGINIFMSGACTIVEWA_ACTIVEORMSGACTIVEWA_CLICKACTIVETHENBEGINIMGCAPTIONPICTUREBITMAPIMGCOLORCAPTIONPICTUREBITMAPIMGLEFTUP1PICTUREBITMAPIMGCOLORLEFTUPPICTUREBITMAPIMGRIGHTUP1PICTUREBITMAPIMGCOLORRIGHTUPPICTUREBITMAPCOOLBARMENUBITMAPIMGCOLORMENUBARPICTUREBITMAPENDELSEBEGINIMGCAPTIONPICTUREBITMAPIMGGRAYCAPTIONPICTUREBITMAPIMGLEFTUP1PICTUREBITMAPIMGGRAYLEFTUPPICTUREBITMAPIMGRIGHTUP1PICTUREBITMAPIMGGRAYRIGHTUPPICTUREBITMAPCOOLBARMENUBITMAPIMGGRAYMENUBARPICTUREBITMAPENDENDPROCEDURETFRM_LONGE_ZZYCHANGESENDERTOBJECTBEGINE_PASSTEXTE_PASSSETFOCUSENDPROCEDURETFRM_LONGB_OKCLICKSENDERTOBJECTVARKLVARIANTPASSSTRINGBEGINZZYNAMEE_ZZYTEXTKLDMADO_USERLOOKUP操作员,ZZYNAME,口令IFVARISNULLKLTHENPASSELSEPASSKLIFE_PASSTEXTPASSTHENBEGINII1IFI3THENBEGINAPPLICATIONMESSAGEBOXPCHAR密码验证错误，拒绝访问,PCHAR提示,MB_ICONEXCLAMATIONAPPLICATIONTERMINATECLOSEENDAPPLICATIONMESSAGEBOXPCHAR密码验证错误，重新录入,PCHAR提示,MB_ICONQUESTIONE_PASSTEXTE_PASSSETFOCUSEXITENDDMADO_USERCLOSEFRM_LONGHIDEFRM_MAINTFRM_MAINCREATEAPPLICATIONFRM_MAINSHOWMODALENDPROCEDURETFRM_LONGFORMACTIVATESENDERTOBJECTBEGINE_PASSSETFOCUSENDPROCEDURETFRM_LONGB_EXITCLICKSENDERTOBJECTBEGINCLOSEENDPROCEDURETFRM_LONGB_EDITCLICKSENDERTOBJECTBEGINZZYNAMEE_ZZYTEXTFRM_PASSEDITTFRM_PASSEDITCREATEAPPLICATIONFRM_PASSEDITSHOWMODALENDPROCEDURETFRM_LONGE_PASSKEYPRESSSENDERTOBJECTVARKEYCHARBEGINIFKEY13THENBEGINB_OKONCLICKB_OKENDENDPROCEDURETFRM_LONGFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINDMADO_USERCLOSEAPPLICATIONTERMINATEENDEND32会员管理界面与代码设计实现及功能代码设计UNITHYGLINTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,TEMPLETFORM,GRIDS,DBGRIDS,LABELBUTTON,TRADEIMAGE,COMCTRLS,MENUS,TOOLWIN,STDCTRLS,EXTCTRLS,DBACTNS,DB,ACTNLISTTYPETFRM_HYGLCLASSTMYFORMZTLTSTATUSBARDBGRIDTDBGRIDBACTIONLIST1TACTIONLISTDATASETFIRST1TDATASETFIRSTDATASETPRIOR1TDATASETPRIORDATASETNEXT1TDATASETNEXTDATASETLAST1TDATASETLASTDATASETDELETE1TDATASETDELETEDATASETINSERT1TDATASETINSERTDATASETEDIT1TDATASETEDITACTION_HELPTACTIONPALTOOLBARTPANELTIHELPTTRADEIMGTIPRINTTTRADEIMGTILOCATETTRADEIMGTILASTTTRADEIMGTINEXTTTRADEIMGTIPRIORTTRADEIMGTIFIRSTTTRADEIMGB_TZTTRADEIMGTIDELETETTRADEIMGTIEDITTTRADEIMGTINEWTTRADEIMGLABELBTN1TLABELBTNLABELBTN2TLABELBTNLABELBTN3TLABELBTNBLABEL_TZTLABELBTNLABELBTN4TLABELBTNLABELBTN5TLABELBTNLABELBTN6TLABELBTNLABELBTN7TLABELBTNLABELBTN8TLABELBTNLABELBTN9TLABELBTNLABELBTN10TLABELBTNDATASOURCE1TDATASOURCEGROUPTRADIOGROUPPROCEDUREDATASETINSERT1EXECUTESENDERTOBJECTPROCEDUREDATASETEDIT1EXECUTESENDERTOBJECTPROCEDUREFORMCREATESENDERTOBJECTPROCEDUREFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONPROCEDUREDATASETDELETE1EXECUTESENDERTOBJECT