詳細(xì)源代碼及數(shù)據(jù)庫請聯(lián)系本人UNITMAININTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,GRIDS,DBGRIDS,STDCTRLS,BUTTONS,EXTCTRLS,COMCTRLS,DB,DBTABLES,DBCTRLS,TEENGINE,SERIES,TEEPROCS,CHART,DBCHART,MENUS,MASK,IMGLIST,SHELLAPITYPETMAINFORMCLASSTFORMPAGECONTROL1TPAGECONTROLTABSHEET1TTABSHEETTABSHEET2TTABSHEETTABSHEET3TTABSHEETPANEL1TPANELTABSHEET4TTABSHEETTABSHEET5TTABSHEETTABSHEET6TTABSHEETBEVEL1TBEVELLABEL1TLABELLABEL2TLABELLABEL3TLABELLABEL4TLABELLABEL5TLABELLABEL6TLABELLABEL7TLABELEDIT1TEDITEDIT2TEDITEDIT3TEDITEDIT4TEDITEDIT5TEDITBITBTN1TBITBTNDBGRID1TDBGRIDBEVEL2TBEVELCOMBOBOX1TCOMBOBOXCOMBOBOX2TCOMBOBOXDATASOURCE1TDATASOURCETABLE1TTABLETABSHEET7TTABSHEETBEVEL3TBEVELDBNAVIGATOR1TDBNAVIGATORTABLE1BIANHAOTSTRINGFIELDTABLE1XINGMINGTSTRINGFIELDTABLE1SEXTSTRINGFIELDTABLE1BUMENTSTRINGFIELDTABLE1ZHUZHITSTRINGFIELDTABLE1GONGZITFLOATFIELDTABLE1ZHICHENGTSTRINGFIELDDATASOURCE2TDATASOURCETABLE2TTABLEDBCHART1TDBCHARTSERIES1TPIESERIESDBGRID2TDBGRIDBEVEL4TBEVELTABLE2BIANHAOTSTRINGFIELDTABLE2YUEFENTSTRINGFIELDTABLE2YCHUQINTFLOATFIELDTABLE2CHIDAOTFLOATFIELDTABLE2ZAOTUITFLOATFIELDTABLE2QINGJIATFLOATFIELDTABLE2KUANGGONGTFLOATFIELDBITBTN2TBITBTNBITBTN3TBITBTNBITBTN4TBITBTNDATASOURCE3TDATASOURCETABLE3TTABLETABLE3BIANHAOTSTRINGFIELDTABLE3YUEFENTSTRINGFIELDTABLE3GONGZITFLOATFIELDTABLE3JIANGJINTFLOATFIELDTABLE3SGONGZITFLOATFIELDDBGRID3TDBGRIDBEVEL5TBEVELPANEL2TPANELLABEL8TLABELLABEL9TLABELEDIT6TEDITCOMBOBOX3TCOMBOBOXRADIOGROUP1TRADIOGROUPLABEL10TLABELLABEL11TLABELEDIT7TEDITEDIT8TEDITBITBTN5TBITBTNBITBTN6TBITBTNBITBTN7TBITBTNBITBTN8TBITBTNDATASOURCE4TDATASOURCEQUERY1TQUERYLABEL12TLABELEDIT9TEDITGROUPBOX1TGROUPBOXGROUPBOX2TGROUPBOXLABEL14TLABELEDIT11TEDITUPDOWN1TUPDOWNLABEL16TLABELEDIT12TEDITUPDOWN2TUPDOWNLABEL17TLABELDBGRID4TDBGRIDGROUPBOX3TGROUPBOXDBGRID5TDBGRIDLABEL15TLABELEDIT13TEDITUPDOWN3TUPDOWNLABEL18TLABELEDIT14TEDITUPDOWN4TUPDOWNLABEL19TLABELBITBTN10TBITBTNBITBTN11TBITBTNLABEL21TLABELEDIT16TEDITLABEL20TLABELEDIT15TEDITDBGRID6TDBGRIDBITBTN9TBITBTNQUERY1BIANHAOTSTRINGFIELDQUERY1XINGMINGTSTRINGFIELDQUERY1SEXTSTRINGFIELDQUERY1BUMENTSTRINGFIELDQUERY1ZHICHENGTSTRINGFIELDQUERY1ZHUZHITSTRINGFIELDQUERY1GONGZITFLOATFIELDQUERY1BIANMATSTRINGFIELDQUERY2TQUERYDATASOURCE5TDATASOURCEQUERY2BIANHAOTSTRINGFIELDQUERY2YUEFENTSTRINGFIELDQUERY2GONGZITFLOATFIELDQUERY2JIANGJINTFLOATFIELDQUERY2SGONGZITFLOATFIELDDATASOURCE6TDATASOURCETABLE2SCHUQINTFLOATFIELDBITBTN12TBITBTNBITBTN13TBITBTNTABLE1BIANMATSTRINGFIELDQUERY3TQUERYQUERY3BIANHAOTSTRINGFIELDQUERY3YUEFENTSTRINGFIELDQUERY3YCHUQINTFLOATFIELDQUERY3CHIDAOTFLOATFIELDQUERY3ZAOTUITFLOATFIELDQUERY3QINGJIATFLOATFIELDQUERY3KUANGGONGTFLOATFIELDQUERY3SCHUQINTINTEGERFIELDTIMER1TTIMERGROUPBOX4TGROUPBOXLABEL23TLABELLABEL22TLABELLABEL13TLABELEDIT10TEDITEDIT17TEDITEDIT18TEDITBITBTN14TBITBTNGROUPBOX5TGROUPBOXIMAGE1TIMAGELABEL24TLABELLABEL25TLABELTREEVIEW1TTREEVIEWIMAGELIST1TIMAGELISTLABEL26TLABELBEVEL6TBEVELBITBTN15TBITBTNRICHEDIT1TRICHEDITBUTTON1TBUTTONBUTTON2TBUTTONBUTTON3TBUTTONLABEL27TLABELIMAGE2TIMAGEPROCEDUREFORMACTIVATESENDERTOBJECTPROCEDUREBITBTN1CLICKSENDERTOBJECTPROCEDUREEDIT1KEYPRESSSENDERTOBJECTVARKEYCHARPROCEDURETABLE2CALCFIELDSDATASETTDATASETPROCEDUREBITBTN3CLICKSENDERTOBJECTPROCEDUREBITBTN2CLICKSENDERTOBJECTPROCEDUREDBGRID2COLEXITSENDERTOBJECTPROCEDUREBITBTN4CLICKSENDERTOBJECTPROCEDUREBITBTN5CLICKSENDERTOBJECTPROCEDUREBITBTN6CLICKSENDERTOBJECTPROCEDUREBITBTN8CLICKSENDERTOBJECTPROCEDUREBITBTN9CLICKSENDERTOBJECTPROCEDUREBITBTN11CLICKSENDERTOBJECTPROCEDUREBITBTN10CLICKSENDERTOBJECTPROCEDUREQUERY3CALCFIELDSDATASETTDATASETPROCEDUREBITBTN12CLICKSENDERTOBJECTPROCEDUREBITBTN13CLICKSENDERTOBJECTPROCEDUREBITBTN7CLICKSENDERTOBJECTPROCEDUREFORMPAINTSENDERTOBJECTPROCEDURETIMER1TIMERSENDERTOBJECTPROCEDURETABSHEET5SHOWSENDERTOBJECTPROCEDUREBITBTN14CLICKSENDERTOBJECTPROCEDUREEDIT18EXITSENDERTOBJECTPROCEDURETREEVIEW1CHANGESENDERTOBJECTNODETTREENODEPROCEDUREBITBTN15CLICKSENDERTOBJECTPROCEDUREBUTTON1CLICKSENDERTOBJECTPROCEDUREBUTTON3CLICKSENDERTOBJECTPROCEDUREBUTTON2CLICKSENDERTOBJECTPROCEDUREEDIT10EXITSENDERTOBJECTPRIVATEPASSWORDINBOOLEANTRUESALARYREALFUNCTIONCMPPASSWORDS1STRINGS2STRINGBOOLEANPRIVATEDECLARATIONSPUBLICPUBLICDECLARATIONSSUPERPOWER,USERPOWER1,USERPOWER2,USERPOWER3BOOLEANENDVARMAINFORMTMAINFORMX,W,HINTEGERPICTRECTSS,A1,A2,A3,USERNAME,USERPASSSTRING60IMPLEMENTATIONUSESPASSDLG,CHUQIN,ZUOZHERDFMFUNCTIONTMAINFORMCMPPASSWORDS1STRINGS2STRINGBOOLEANVARDATAFILEFILERTBOOLEANNUMREADINTEGERBUF1,BUF2STRING30BEGINRTFALSEASSIGNFILEDATAFILE,SYSTEMINIRESETDATAFILE,1REPEATBLOCKREADDATAFILE,BUF1,12,NUMREADBLOCKREADDATAFILE,BUF2,12,NUMREADIFS1BUF1ANDS2BUF2THENBEGINUSERNAMES1USERPASSS2RESULTTRUEEXITENDUNTILNUMREAD0CLOSEFILEDATAFILECMPPASSWORDRTENDPROCEDURETMAINFORMFORMACTIVATESENDERTOBJECTVARCMPTIMES,BNINTEGERSS1,SS2STRING200BEGINCMPTIMES1IFPASSWORDINFALSETHENBEGINPASSWORDINTRUEREPEATBNPASSWORDDLGSHOWMODALIFBNMROKTHENBEGINSS1PASSWORDDLGCOMBOBOX1TEXTSS2PASSWORDDLGPASSWORDTEXTIFCMPPASSWORDSS1,SS2THENCMPTIMES100ELSEBEGINCMPTIMESCMPTIMES1IFCMPTIMES3THENCLOSEELSEMESSAGEDLGA1A0A2A3A5A6A4A7A8A9A5A11A10A12A13A14A15A17,MTWARNING,MBOK,0ENDENDELSEBNMRCANCELBEGINCMPTIMES100CLOSEENDUNTILCMPTIMES3IFPASSWORDDLGCOMBOBOX1TEXTSYSTEMTHENBEGINMAINFORMUPDATEACTIONSPAGECONTROL1ACTIVEPAGETABSHEET1DBNAVIGATOR1VISIBLETRUEENDELSEIFPASSWORDDLGCOMBOBOX1TEXTRENSHITHENBEGINMAINFORMUPDATEACTIONSPAGECONTROL1ACTIVEPAGETABSHEET1DBNAVIGATOR1VISIBLETRUETABSHEET3TABVISIBLEFALSEENDELSEIFPASSWORDDLGCOMBOBOX1TEXTCAIWUTHENBEGINMAINFORMUPDATEACTIONSPAGECONTROL1ACTIVEPAGETABSHEET3TABSHEET1TABVISIBLEFALSETABSHEET2TABVISIBLEFALSEENDELSEIFPASSWORDDLGCOMBOBOX1TEXTGUESTTHENBEGINMAINFORMUPDATEACTIONSPAGECONTROL1ACTIVEPAGETABSHEET1DBGRID1ALIGNALCLIENTDBGRID1SHOWHINTTRUEDBGRID1HINTA18A16A19A20A21A22A23A24A17DBGRID1READONLYTRUEDBGRID2READONLYTRUEBITBTN1VISIBLEFALSEBITBTN4ENABLEDFALSEBITBTN2ENABLEDFALSETABSHEET3TABVISIBLEFALSETABSHEET5TABVISIBLEFALSEENDENDENDPROCEDURETMAINFORMBITBTN1CLICKSENDERTOBJECTBEGINIFCOMBOBOX1TEXTOREDIT1TEXTOREDIT2TEXTOREDIT3TEXTOREDIT4TEXTOREDIT5TEXTORCOMBOBOX2TEXTTHENBEGINMESSAGEDLGA26A25A8A9A27A28,MTWARNING,MBOK,0EXITENDTABLE1ACTIVETRUEWITHTABLE1DOBEGINAPPENDFIELDVALUESBIANHAOTRIMEDIT1TEXTFIELDVALUESXINGMINGTRIMEDIT2TEXTFIELDVALUESSEXTRIMCOMBOBOX1TEXTFIELDVALUESBIANMATRIMEDIT16TEXTFIELDVALUESZHICHENGTRIMEDIT3TEXTFIELDVALUESBUMENTRIMCOMBOBOX2TEXTFIELDVALUESZHUZHITRIMEDIT4TEXTFIELDVALUESGONGZISTRTOFLOATTRIMEDIT5TEXTPOSTENDCOMBOBOX1TEXTA30COMBOBOX2TEXTA31A29A32A33A34EDIT1TEXTEDIT2TEXTEDIT3TEXTEDIT4TEXTEDIT5TEXTEDIT16TEXTENDPROCEDURETMAINFORMEDIT1KEYPRESSSENDERTOBJECTVARKEYCHARBEGINIFNOTKEYIN09,8,13THENKEY0ENDPROCEDURETMAINFORMTABLE2CALCFIELDSDATASETTDATASETVARA1,A2,A3,A4,A5REALBEGINWITHTABLE2DOBEGINA1FIELDBYNAMEYCHUQINVALUEA2FIELDBYNAMECHIDAOVALUE05A3FIELDBYNAMEZAOTUIVALUE05A4FIELDBYNAMEQINGJIAVALUE03A5FIELDBYNAMEKUANGGONGVALUEFIELDBYNAMESCHUQINVALUEA1A2A3A4A5ENDENDPROCEDURETMAINFORMBITBTN3CLICKSENDERTOBJECTBEGINTABLE1OPENTABLE1MASTERSOURCEDATASOURCE2TABLE1MASTERFIELDSBIANHAOPAGECONTROL1ACTIVEPAGETABSHEET1BITBTN12VISIBLETRUEBITBTN12BRINGTOFRONTBITBTN12SETFOCUSDBGRID1ALIGNALCLIENTDBGRID1READONLYTRUEENDPROCEDURETMAINFORMBITBTN2CLICKSENDERTOBJECTVARBNINTEGERBEGINBNMESSAGEDLGA36A22A35A37A38A39A41,MTCONFIRMATION,MBOK,MBCANCEL,0IFBNMROKTHENTABLE2DELETEENDPROCEDURETMAINFORMDBGRID2COLEXITSENDERTOBJECTBEGINDBCHART1SHOWENDPROCEDURETMAINFORMBITBTN4CLICKSENDERTOBJECTVARRNINTEGERBEGINFORMCHUQINSHOWMODALIFRNMROKTHENDBGRID2SETFOCUSTABLE2CLOSETABLE2OPENENDPROCEDURETMAINFORMBITBTN5CLICKSENDERTOBJECTBEGINIFCOMBOBOX3TEXTOREDIT6TEXTOREDIT7TEXTOREDIT8TEXTTHENBEGINMESSAGEDLGA26A25A8A9A27A28,MTWARNING,MBOK,0EXITENDBITBTN6ENABLEDTRUEIFRADIOGROUP1ITEMINDEX0THENTRUESALARYSTRTOFLOATEDIT7TEXTSTRTOFLOATEDIT8TEXT03IFRADIOGROUP1ITEMINDEX1THENTRUESALARYSTRTOFLOATEDIT7TEXTSTRTOFLOATEDIT8TEXT08IFRADIOGROUP1ITEMINDEX2THENTRUESALARYSTRTOFLOATEDIT7TEXTSTRTOFLOATEDIT8TEXT10IFRADIOGROUP1ITEMINDEX3THENTRUESALARYSTRTOFLOATEDIT7TEXTSTRTOFLOATEDIT8TEXT12EDIT9TEXTEDIT9TEXTFLOATTOSTRTRUESALARYSHOWMESSAGEA42A40A43A44A45A22A46A47A43A26A48FLOATTOSTRTRUESALARYENDPROCEDURETMAINFORMBITBTN6CLICKSENDERTOBJECTBEGINIFCOMBOBOX3TEXTOREDIT6TEXTOREDIT7TEXTOREDIT8TEXTTHENBEGINMESSAGEDLGA26A25A8A9A27A28,MTWARNING,MBOK,0EXITENDTABLE3ACTIVETRUEWITHTABLE3DOBEGINAPPENDFIELDVALUESBIANHAOTRIMEDIT6TEXTFIELDVALUESYUEFENTRIM2001COMBOBOX3TEXTFIELDVALUESJIANGJINSTRTOFLOATTRIMEDIT8TEXTFIELDVALUESGONGZISTRTOFLOATTRIMEDIT7TEXTFIELDVALUESSGONGZISTRTOFLOATTRIMEDIT9TEXTPOSTENDCOMBOBOX3TEXTEDIT6TEXTEDIT7TEXTEDIT8TEXTEDIT9TEXTBITBTN6ENABLEDFALSEENDPROCEDURETMAINFORMBITBTN8CLICKSENDERTOBJECTBEGINTABLE1OPENTABLE1MASTERSOURCEDATASOURCE3TABLE1MASTERFIELDSBIANHAOPAGECONTROL1ACTIVEPAGETABSHEET1BITBTN13VISIBLETRUEBITBTN13BRINGTOFRONTBITBTN13SETFOCUSDBGRID1ALIGNALCLIENTDBGRID1READONLYTRUEENDPROCEDURETMAINFORMBITBTN9CLICKSENDERTOBJECTBEGINWITHQUERY1DOBEGINCLOSESQLCLEARSQLADDSELECTFROMINFORMATIONDBSQLADDWHEREBIANMAP1PARAMBYNAMEP1ASSTRINGTRIMEDIT15TEXTPREPAREOPENENDEDIT15TEXTENDPROCEDURETMAINFORMBITBTN11CLICKSENDERTOBJECTBEGINWITHQUERY2DOBEGINCLOSESQLCLEARSQLADDSELECTFROMSALARYWHERESGONGZIBETWEENP1ANDP2PARAMS0ASINTEGERSTRTOINTTRIMEDIT13TEXTPARAMS1ASINTEGERSTRTOINTTRIMEDIT14TEXTPREPAREOPENENDEDIT13TEXTEDIT14TEXTENDPROCEDURETMAINFORMBITBTN10CLICKSENDERTOBJECTBEGINWITHQUERY3DOBEGINCLOSESQLCLEARSQLADDSELECTFROMONDUTYWHEREYCHUQINCHIDAO05ZAOTUI05QINGJIA03KUANGGONGBETWEENP1ANDP2QUERY3PARAMS0ASINTEGERSTRTOINTTRIMEDIT11TEXTQUERY3PARAMS1ASINTEGERSTRTOINTTRIMEDIT12TEXTQUERY3ACTIVETRUEENDENDPROCEDURETMAINFORMQUERY3CALCFIELDSDATASETTDATASETVARA1,A2,A3,A4,A5REALBEGINWITHQUERY3DOBEGINA1FIELDBYNAMEYCHUQINVALUEA2FIELDBYNAMECHIDAOVALUE05A3FIELDBYNAMEZAOTUIVALUE05A4FIELDBYNAMEQINGJIAVALUE03A5FIELDBYNAMEKUANGGONGVALUEFIELDBYNAMESCHUQINVALUEA1A2A3A4A5ENDENDPROCEDURETMAINFORMBITBTN12CLICKSENDERTOBJECTBEGINPAGECONTROL1ACTIVEPAGETABSHEET2TABLE1MASTERFIELDSTABLE1ACTIVEFALSETABLE1ACTIVETRUEDBGRID1ALIGNALNONEDBGRID1LEFT280DBGRID1TOP0DBGRID1HEIGHT217DBGRID1WIDTH255BITBTN12VISIBLEFALSEENDPROCEDURETMAINFORMBITBTN13CLICKSENDERTOBJECTBEGINPAGECONTROL1ACTIVEPAGETABSHEET3TABLE1MASTERFIELDSTABLE1ACTIVEFALSETABLE1ACTIVETRUEDBGRID1ALIGNALNONEDBGRID1LEFT280DBGRID1TOP0DBGRID1HEIGHT217DBGRID1WIDTH255BITBTN13VISIBLEFALSEENDPROCEDURETMAINFORMBITBTN7CLICKSENDERTOBJECTVARBNINTEGERBEGINBNMESSAGEDLGA36A22A35A37A38A39A41,MTCONFIRMATION,MBOK,MBCANCEL,0IFBNMROKTHENTABLE3DELETEENDPROCEDURETMAINFORMFORMPAINTSENDERTOBJECTBEGIN/IFPAGECONTROL1ACTIVEPAGETABSHEET5ENDPROCEDURETMAINFORMTIMER1TIMERSENDERTOBJECTBEGINXX1IFXA3THENBEGINMESSAGEDLGA118A117A1A0A27A119A120A5A6A4A7A8A9A17,MTWARNING,MBOK,0EXITEDIT18SETFOCUSENDENDPROCEDURETMAINFORMTREEVIEW1CHANGESENDERTOBJECTNODETTREENODEVARIIINTEGERBEGINIITREEVIEW1SELECTEDABSOLUTEINDEXIFII0THENRICHEDIT1LINESLOADFROMFILEWELCO