畢業(yè)設(shè)計VCD租賃管理系統(tǒng)院系_專業(yè)_班級_姓名_日期年月日中文摘要VCD租賃管理系統(tǒng)為光盤管理者提供充足的信息和快捷的查詢手段，其開發(fā)內(nèi)容主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。利用DELPHI60軟件及其提供的各種面向?qū)ο蟮拈_發(fā)工具，建立完整性強(qiáng)、安全性好的數(shù)據(jù)庫，開發(fā)出功能完備，易使用的應(yīng)用程序。經(jīng)過調(diào)試、編譯與實現(xiàn)，該程序界面友好、程序設(shè)計風(fēng)格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“查詢模塊”的功能極大的減輕工作人員的工作量，并以快速、準(zhǔn)確等優(yōu)點取代人工操作，提G20652G1114光盤管理工作G6940G10587。關(guān)鍵詞DELPHI60信息管理系統(tǒng)數(shù)據(jù)庫模塊VCD租賃信息VCDDISCSMANAGERFORTHELEASEMANAGEMENTSYSTEMTOPROVIDEADEQUATEINFORMATIONANDEFFICIENTMEANSENQUIRIES,THEDEVELOPMENTMAINLYTOTHEESTABLISHMENTANDMAINTENANCEOFDATABASESINCLUDINGBACKGROUNDAPPLICATIONSANDFRONTENDDEVELOPMENTOFTHETWODELPHI60ANDTHEUSEOFOBJECTORIENTEDSOFTWAREDEVELOPMENTTOOLS,THEESTABLISHMENTOFSTRONGINTEGRITY,GOODSAFETYDATABASEDEVELOPEDFUNCTIONS,EASYTOUSEAPPLICATIONSAFTERDEBUGGING,TRANSLATIONANDTHEREALIZATIONTHATTHEPROCESSFRIENDLYINTERFACE,SIMPLEPROGRAMMINGSTYLE,USINGUPAESTHETICGENEROUS,CONVENIENTUSERFRIENDLYINPARTICULARSYSTEM“ENQUIRIESMODULE“FUNCTIONGREATLYREDUCETHEWORKLOADOFSTAFF,ANDTOTHERAPID,ACCURATE,ANDOTHERADVANTAGESREPLACEMANUALLYOPERATED,ANDENHANCEDCDSMANAGEMENTEFFICIENCYKEYWORDDELPHI60INFORMATIONMANAGEMENTSYSTEMDATABASEMODULEVCDRENTALINFORMATION引言11DELPHI語言概述211DELPHI簡介212數(shù)據(jù)庫系統(tǒng)簡介213本應(yīng)用軟件的基本介紹32本應(yīng)用程序的構(gòu)成和開發(fā)步驟421可行性研究9211經(jīng)濟(jì)可行性14212時間可行性15213技術(shù)可行性16214社會可行性1822數(shù)據(jù)庫的建立和連接2023系統(tǒng)的總體設(shè)計2324系統(tǒng)的詳細(xì)設(shè)計253本程序的技術(shù)實現(xiàn)及具體功能2731登錄的界面與程序設(shè)計實現(xiàn)2832會員管理界面與代碼設(shè)計實現(xiàn)及功能3433影碟圖書界面與代碼設(shè)計實現(xiàn)4334還租結(jié)算界面與代碼設(shè)計5335現(xiàn)金報表界面設(shè)計與代碼設(shè)計6536會員密碼管理界面與代碼設(shè)計72結(jié)論82致謝83參考文獻(xiàn)84引言隨著經(jīng)濟(jì)的發(fā)展，社會的進(jìn)步，計算機(jī)越來越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充G9397G1114多如G10287G8623的各G12193G17731G1226，G1306它們G1393然不能G9397G17287用G6155的各G12193特G8542G19668要，人們G17836不G5483不G5332發(fā)G17878G2524G14270G5061特G8542G19668G8726的G17731G1226。以G2081G5332發(fā)G58G76G81G71G82G90G86G5224用G17731G1226G7171G999業(yè)人G2604的工作，G19668要G6496G6581許多G999業(yè)G11705識和經(jīng)過特G8542的培訓(xùn)G6177能G14000G1231。現(xiàn)在不G2528G1114，G2375使G1332G8821G7389G6521G2475過G1017G7696的G12255G5219設(shè)計訓(xùn)練，使用G39G72G79G83G75G76編程G16833G16340G1075G980G7691能夠G5332發(fā)G1998功能強(qiáng)大、G17878G2524G14270G5061特G8542G19668G8726的G5224用G12255G5219G1114。G39G72G79G83G75G76編程G16833G16340G13499G6227G1114其G1194G16833G16340G7143學(xué)G7143用的特G9869，特別G17878G2524G1122G2033學(xué)G13785學(xué)習(xí)G58G76G81G71G82G90G86G13007G13491G13546G12255。G57G38G39G12211G17173管理G13007G13491用計算機(jī)管理G57G38G39G12211G17173的G980G12193計算機(jī)G5224用技術(shù)的G2031G7044,在計算機(jī)G17836G7422G7234及G1055G2081G57G38G39G12211G17173管理G18129G7171G11013工作人G2604人工G1082G1901,G16855G19417的方G5347來G6817作的G17現(xiàn)在G980G14336的G1821G11436G12211G17173管理G18129G18331用計算機(jī)G7246能G2282管理,G18331用計算機(jī)作為工具的G4466用的計算機(jī)G16758G2345管理G12255G5219來G5122助G2081G2500管理G2604進(jìn)行G7368G7389G6940的G1821G11436G1998G1523管理工作。G57G38G39G12211G17173管理G13007G13491G7171G1868G3423的信息管理G13007G13491G11G48G44G54G12,其G5332發(fā)G1039要G2265G6336G2530G2500G6980G6466G5223的G5326G12447和G13512G6264以及G2081G12483G5224用G12255G5219的G5332發(fā)G1016個方面。G4557G1122G2081G13785要G8726G5326G12447G17227G6980G6466G980G14280G5627和完G6984G5627強(qiáng)、G6980G6466G4445G1852G5627好的G5223。而G4557G1122G2530G13785則要G8726G5224用G12255G5219功能完備,G7143使用等特G9869。經(jīng)過分析,我們使用G39G72G79G83G75G76編程G16833G16340G5332發(fā)工具,利用其提供的各G12193面向G4557象的G5332發(fā)工具,尤其G7171G6980G6466窗口這G980能方便而簡潔G6817縱G6980G6466G5223的G7246能G2282G4557象,首先在短時間內(nèi)G5326G12447G13007G13491G5224用原G3423,然G2530,G4557G2033始原G3423G13007G13491進(jìn)行G19668G8726迭代,不斷修正和改進(jìn),直到形成用G6155G9397意的可行G13007G13491。因為本人能力G7389限，加上時間緊迫，所以設(shè)計G1998來的本G13007G13491可能功能比較簡G2345，另外本G13007G13491G7171G2345機(jī)版，不能G4466現(xiàn)網(wǎng)絡(luò)互聯(lián)G6817作,這些G18129G7389待G1122我在以G2530的工作學(xué)習(xí)中進(jìn)G980步改進(jìn)。1DELPHI語言概述11DELPHI簡介DELPHI是INPRISEG1856G2508出G2709的G980個優(yōu)G12180的G2499G16282G2282程序開發(fā)工具軟件，G4439G11713G4579G12946G5729，G1306功能G2376G2499以與G5234大的VISUALCG4230美。G4439易G4410易用，G3926G2528VB，G3252G13792G15999G12228為“G12544G3247代編程G16833G16340”。G11861995G5192G6524出DELPHI10G14279G1182G5062經(jīng)經(jīng)G2394G11147個G10268G7424，DELPHI70G17828G15904G3324WIN9XG6122WINME，WIN2000，WINXP，WINDOWSNT等操作系統(tǒng)G991，是G980個32G1313的應(yīng)用程序開發(fā)工具。G17837G18336G6238“VB”G8616作是G1679G10928G11468G7438，DELPHI是G5114G7389G14270G2172功能的G999G1006G11468G7438。前G1135G5192，軟件界G8981G15904G980G2489G16817G2495“G11507G8503的程序員用VC，G13886G7138的程序員用DELPHI”。G1075G7389的G6238DELPHIG12228作VBG7444手。12數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)是G980個實G19481G2499G17828G15904的G4396G1660、維護(hù)和應(yīng)用系統(tǒng)提供數(shù)據(jù)的軟件系統(tǒng)，是G4396G1660G1183G17148、G3800理對象和管理系統(tǒng)的G19610G2524G1319。G4439G17902G5132G11013軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員G13464G6116。其軟件主要包括操作系統(tǒng)、各種G4499主G16833G16340，實用程序以及數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫是G1393G10043G7588種數(shù)據(jù)模G3423G13464G13467起來并G4396G6930G1120G13435G4396G1660G3132G1025的數(shù)據(jù)G19610G2524。G17837G1135數(shù)據(jù)為G3822個應(yīng)用G7393G2165，G10432立G1122具G1319的應(yīng)用程序。數(shù)據(jù)庫G11013數(shù)據(jù)庫管理系統(tǒng)統(tǒng)G980管理，數(shù)據(jù)的G6566G1849、G1474G6925和G7828G13046G3355要G17902過數(shù)據(jù)庫管理系統(tǒng)G17839G15904。數(shù)據(jù)庫管理系統(tǒng)是G980種系統(tǒng)軟件，G4439的主要功能是維護(hù)數(shù)據(jù)庫并G7389G6940G3332G16787G19394數(shù)據(jù)庫G1025G1231G5859G18108G2010數(shù)據(jù)。對數(shù)據(jù)庫的維護(hù)包括G1457G6357數(shù)據(jù)的完整性、G980G14280性和安全性。數(shù)據(jù)管理員G17139責(zé)創(chuàng)建、監(jiān)控和維護(hù)整個數(shù)據(jù)庫，使數(shù)據(jù)能G15999G1231何G7389權(quán)使用的人G7389G6940使用。數(shù)據(jù)庫管理員G980般是G11013G1006G2165水平較G20652、資G2394較深的人員擔(dān)G1231。數(shù)據(jù)庫系統(tǒng)的個G1319含義是指G980個具G1319的數(shù)據(jù)庫管理系統(tǒng)軟件和用G4439建立起來的數(shù)據(jù)庫；G4439的G4410科含義是指研究、開發(fā)、建立、維護(hù)和應(yīng)用數(shù)據(jù)庫系統(tǒng)所涉及的理論、方法、技術(shù)所構(gòu)G6116的G4410科。G3324G17837G980含義G991，數(shù)據(jù)庫系統(tǒng)是軟件研究領(lǐng)域的G980個重要G2010支，G5132G12228為數(shù)據(jù)庫領(lǐng)域。數(shù)據(jù)庫研究跨越G1122計算G7438應(yīng)用、系統(tǒng)軟件和理論三個領(lǐng)域，其G1025應(yīng)用促G17839新系統(tǒng)的研制開發(fā)，新系統(tǒng)G5114來新的理論研究，G13792理論研究又對前兩個領(lǐng)域起著指導(dǎo)作用。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)是計算G7438應(yīng)用的G980個G18336程碑，G4439使得計算G7438應(yīng)用G1186以科G4410計算為主轉(zhuǎn)向以數(shù)據(jù)G3800理為主，并G1186G13792使計算G7438得以G3324各G15904各G1006乃G14279家庭普遍使用。G3324G4439之前的文件系統(tǒng)雖然G1075能G3800理G6357久數(shù)據(jù)，G1306是文件系統(tǒng)不提供對G1231G5859G18108G2010數(shù)據(jù)的快速G16787G19394，G13792G17837對數(shù)據(jù)量不斷增大的應(yīng)用來說是G14279關(guān)重要的。為G1114實現(xiàn)對G1231G5859G18108G2010數(shù)據(jù)的快速G16787G19394，就要研究許G3822優(yōu)G2282技術(shù)。G17837G1135優(yōu)G2282技術(shù)往往很復(fù)雜，是普G17902用戶難以實現(xiàn)的，所以就G11013系統(tǒng)軟件（數(shù)據(jù)庫管理系統(tǒng)）來完G6116，G13792提供給用戶的是簡單易用的數(shù)據(jù)庫G16833G16340。G11013G1122對數(shù)據(jù)庫的操作都G11013數(shù)據(jù)庫管理系統(tǒng)完G6116，所以數(shù)據(jù)庫就G2499以G10432立G1122具G1319的應(yīng)用程序G13792G4396G3324，G1186G13792數(shù)據(jù)庫又G2499以為G3822個用戶所共享。G3252此，數(shù)據(jù)的G10432立性和共享性是數(shù)據(jù)庫系統(tǒng)的重要特征。數(shù)據(jù)共享節(jié)省G1114大量人力物力，為數(shù)據(jù)庫系統(tǒng)的廣泛應(yīng)用奠定G1114基礎(chǔ)。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)使得普G17902用戶能夠方便G3332將日G5132數(shù)據(jù)G4396G1849計算G7438并G3324需要的時候快速G16787G19394G4439們，G1186G13792使的計算G7438走出科研G7438構(gòu)G17839G1849各G15904各G1006、G17839G1849家庭。13本應(yīng)用軟件的基本介紹G7424應(yīng)用軟件先是打開G980個啟G2172窗口，就G2499以G17839G1849應(yīng)用程序的主窗口G1114。主界面是G980個圖G3423界面窗口，整個平臺顯示采用圖標(biāo)方式，G2499以非G5132方便的管理會員、圖書影碟、租金結(jié)算、影碟查詢等基G7424信息，管理日G5132經(jīng)營的基G7424情況，G17902過各種條件查詢出影碟出借的基G7424信息，以及打印出查詢出的基G7424信息，總之G980切影碟出借基G7424信息都會顯示G3324系統(tǒng)平臺上。另外G3324屏G5161G5050G1403G7389快捷G19145G19074，G5389出式G14768單和主窗口G14768單G11468G2528，G2499方便G17885G6333，大大提G20652G1114管理人員的工作G6940G10587。2本應(yīng)用程序的構(gòu)成和開發(fā)步驟G991面G1186軟件工程的G16294G5242G1183G13473G7424程序的基G7424開發(fā)G8505G20600。G39G72G79G83G75G76應(yīng)用程序G980般包含以G991三個基G7424G18108G2010G726應(yīng)用程序G17828G15904的G6521口G726G17139責(zé)系統(tǒng)整G1319G10627G3671的設(shè)G13634，G17828G15904G10378G5589的監(jiān)G16282，應(yīng)用程序的啟G2172等。應(yīng)用程序的主G1319G726主要完G6116用戶的G1006G2165G17935G17765功能，G3926G57G38G39光盤信息G15主G9448G15導(dǎo)G9448信息的G5417G1849G15用戶管理G15出借G3837數(shù)等信息G17應(yīng)用程序的G17753G2173G18108G2010G726G2339G2173程序主G1319完G6116的G980G1135工作。G991面G1186軟件工程的G16294G5242G6563G17860G7424程序的開發(fā)G10995G2641G2620G7411，開發(fā)過程和G13464G13467過程。21可行性研究G1231何G980個系統(tǒng)G6122G980G20045工程，G3324建立之前，G5529G20047G20330G17885G17839G15904G2499G15904性G2010G7524，G2499G15904性G2010G7524包括兩G4630含義，G980是G2499能性，G1120是G5529要性。G2499能性指開發(fā)信息系統(tǒng)的條件是G2554具備，G5529要性是指G4470觀上是G2554G11507G8503需要，G17902過G2499G15904性研究，G2499G18003G1825G11462G11458G6249資，減G4581G6931G8847性要的G6451G3845。G991面G1186G3247方面來G16764論G726211經(jīng)濟(jì)可行性主要是G2494指算G980個新的系統(tǒng)開發(fā)所需要的G6249資G17165用和G17828算G17165用，并與G1284計的新系統(tǒng)G6922G11422G17839G15904G8616較，G11487是G2554G7389利。G7424系統(tǒng)所需的軟G11840件G6116G7424G8616較G1314，G6249資G4579，具G7389G980定的G17902過性，G3252此，G3324經(jīng)G8994上是G2499G15904的。212時間可行性主要包括系統(tǒng)G3324G11458前G10627G3671G991能G2554G8503G5132G17828G15904，G17828G15904后所G5353起的各方面，以及G17837G1135G2476G2282對G12050會G6122人的G3252素所G1147G10995的影G2721。G7424系統(tǒng)對人G1119的管理G8616較全面，G2499G19283G7411使用。213技術(shù)可行性利用現(xiàn)G7389的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的G11458標(biāo)能G2554G17810G2052，G17837G1075是G2499G15904性研究G1025需要G13783G15397的G980個G19394G20076。關(guān)系G3423數(shù)據(jù)庫的G20652速發(fā)G4649使管理信息系統(tǒng)具備G1114G14403好的開發(fā)G10627G3671。G7424系統(tǒng)使用的DELPHI普及性好，操作簡單，用戶G2499以很快G6496G6581使用方法，G3252此，G3324技術(shù)上是完全G2499G15904的。G21G17G20G17G23社會可行性人G12879G12050會文G7138的發(fā)G4649G5062G17839G1849信息G2282的G20652速發(fā)G4649時G7411，G1268統(tǒng)的手工方式支G6357G991的管理模式，G5062經(jīng)不能G9397足各方面的需要。開發(fā)G7424系統(tǒng)的G11458標(biāo)不G1177是提G20652工作G6940G10587，減輕G2183G2172強(qiáng)G5242，G13792G1000減G4581出G19181G10587，具G7389很好的G12050會G5859義。22數(shù)據(jù)庫的建立和連接G17837個程序采用的數(shù)據(jù)庫是MICROSOFTACCESS2000，DELPHI作為數(shù)據(jù)庫的前臺開發(fā)工具，G5529G20047與后臺數(shù)據(jù)庫G17839G15904G17842G6521，G17837G7691G6177能控制和G17839G15904操作數(shù)據(jù)庫，數(shù)據(jù)庫的G17842G6521方式G7389兩種，ODBC和ADO。ODBC是數(shù)據(jù)庫的G17902用G6521口，其G13582點是G6940G10587G1314；G999用G6521口調(diào)用G11464G6521速G5242快，G1306是G17902用性G5058，G3926G7536用ODBCG17842G6521數(shù)據(jù)庫G980般要兩個G8505G20600G7261要創(chuàng)建數(shù)據(jù)G9316；2創(chuàng)建G6563G17860文件。數(shù)據(jù)庫的建立G2029時G3324ACCESS2000G1025建立的，G3324G17837G18336G1332G2499以設(shè)G13634數(shù)據(jù)庫的G4506G11733，對數(shù)據(jù)庫G17839G15904G1457護(hù)。G3324創(chuàng)建數(shù)據(jù)G9316時G2499以G17902過BDEADMINISTRATORG17839G15904創(chuàng)建，G1075G2499以G17902過系統(tǒng)控制面G7507G1025的ODBC數(shù)據(jù)G9316G17839G15904建立。G13792G6563G17860文件G2029G2499以G3324DELPHI的主程序G1025用DATABASEPROFILEG1025G17839G15904建立，之后G17839G15904數(shù)據(jù)庫的G17842G6521。G6521G991來的工作是建G15932。G2528G7691建G15932的過程G1075不是G2819G980的，G1306是G7380G13468實現(xiàn)的結(jié)G7536是G2819G980的。G1332G2499以G17902過ACCESSG17839G15904建G15932，G1075G2499以G17902過G3324DELPHI60主程序G1025建G15932，G1075G2499以G17902過POWERDESIGNERG17839G15904G2499G16282G2282的建立，不過用G17837種方法，G3324導(dǎo)G1849的時候要G6238數(shù)據(jù)庫要先斷開，G2554G2029數(shù)據(jù)庫的數(shù)據(jù)容易G1014G3845。建G15932的過程G8892G5859G16280G14551G2282G2641G2529G16280G2029，G3926G15932的G4395段G2529等等。G2528時G1075要G8892G5859G15932的G4395段G19283G5242和G2499G2554為G12366。G3252為以后要設(shè)計G2052主G19202，外G19202的G19394G20076。G3926G7536G4395段G2529不G2528，G2528G980G4395段G19283G5242不G2528G2029主G19202和外G19202將會G17842G6521不上。G2499G16277建G15932時應(yīng)G1582好全G4628的打算。G6117G3324程序開發(fā)的G2033G7411，G2528G7691G10371G1114G17837個G19181G16835，導(dǎo)G14280數(shù)據(jù)庫出G19181，G7389時G17836要向G15932G1025新G2164G1849G4395段。導(dǎo)G14280數(shù)據(jù)窗口不好用的G17842鎖反映。23系統(tǒng)的總體設(shè)計G17837個管理系統(tǒng)G11864月1日開始著手設(shè)計開發(fā),經(jīng)過G980段時間的G2010G7524，并根據(jù)對影音店光盤管理的具G1319要求及需要G7424軟件實現(xiàn)的功能，將G7424軟件G2010為5個大的模塊，G2010別是G726G12544G980G18108G2010G726系統(tǒng)管理；G12544G1120G18108G2010G726日G5132統(tǒng)計；G12544三G18108G2010G726查詢統(tǒng)計模塊；G12544G3247G18108G2010G726幫G2173其他。程序G8981程圖G3926G991G726A2A0A1A3A6A4A5A9A10A11A12A13A14A15A16A17A18A10A19A20A724系統(tǒng)的詳細(xì)設(shè)計G17839G1849ACCESS后要G1582的G12544G980件G1119就是建立G980個數(shù)據(jù)庫。ACCESS提供G11146種用構(gòu)造數(shù)據(jù)庫系統(tǒng)的對象，根據(jù)G7424課G20076的需要，G3324G17837G18336G17885G6333G980個G12366的數(shù)據(jù)庫，G2641G2529建立G1114G980個數(shù)據(jù)庫G2529G12228為“BYSJ”，G4410G10995檔案管理系統(tǒng)。并G3324此數(shù)據(jù)庫G991創(chuàng)建G1114六個G15932，用G1122G4396G6930原始數(shù)據(jù)。G4439G2494是G4396G6930數(shù)據(jù)，對其G1025數(shù)據(jù)的G1474G6925要G17902過對應(yīng)的窗G1319來完G6116。創(chuàng)建各G15932的具G1319結(jié)構(gòu)G3926G991G7261CASHBOOKG159322CZBG159323CZDTG159324DWG159325USERG159323本程序的技術(shù)實現(xiàn)及具體功能31登錄的界面與程序設(shè)計實現(xiàn)代碼設(shè)計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/密碼循環(huán)三次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,口令I(lǐng)FVARISNULLKLTHENPASSELSEPASSKLIFE_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會員管理界面與代碼設(shè)計實現(xiàn)及功能代碼設(shè)計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