中信銀行個(gè)人購房貸款合同打印程序設(shè)計(jì)

1、洛陽師范學(xué)院2009屆本科生畢業(yè)設(shè)計(jì)中信銀行個(gè)人購房貸款合同打印程序設(shè)計(jì) PAGE 58 PAGE 59摘要在21世紀(jì)，隨著計(jì)算機(jī)科學(xué)的發(fā)展，計(jì)算機(jī)在人們?nèi)粘Ｉ钪械膽?yīng)用越來越廣泛，為廣大用戶提供了更加周到和人性化的服務(wù)。合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式。而合同的打印也成了，交易是否成功的關(guān)鍵一環(huán)。長期以來，由于在合同打印實(shí)行手工作業(yè)，存在各部門之間合同流轉(zhuǎn)時(shí)間長而且特別容易出錯(cuò)等問題。合同打印系統(tǒng)就是針對當(dāng)前的合同打印業(yè)務(wù)特點(diǎn)所定制的一套系統(tǒng)，該套系統(tǒng)本著進(jìn)一步完善企業(yè)內(nèi)部合同管理制度，規(guī)范合同管理機(jī)制的目的，更加及時(shí)、準(zhǔn)確、全面地反映合同信息，輔助企業(yè)管理決策，從而實(shí)現(xiàn)該企業(yè)

2、合同管理智能化，降低管理成本，提高內(nèi)部管理水準(zhǔn)，為企業(yè)決策層及時(shí)了解合同管理業(yè)務(wù)層的工作情況提供第一手資料。本系統(tǒng)是專注于于合同管理的的一環(huán)合同打打印。并以中中信銀行個(gè)人人購房貸款為為背景的應(yīng)用用實(shí)例。關(guān)鍵詞：合同；打?。恢行判陪y行；購房房貸款 AbstracctAbstracct at the 221th CCenturry , WWith tthe deeveloppment of coomputeer sciience, Compputer sciennce iss wideely ussed inn the peoplle liffe andd workk. Thiis makkes

3、ussers ccan ennjoy mmore cconvennient and iindiviidual serviices. The ccontraact iss the produuct off the commoodity econoomy, iis thee legaal forrm of commoodity exchaange. The coontracct priint allso beecame a keyy ringg, Whiile thhe traansacttion iis succcessfful.Long-teerm siince, as a resullt o

4、f the mmanuall operrationn in tthe coontracct to printt, exiist beetweenn the varioous deepartmments of coontracct traansferr timee and errorr pronne prooblemss. A ssystemm of ccontraact prrintinng sysstem iis aimmed att the charaacteriisticss of tthe prresentt conttract printt busiiness custoom, th

5、he sysstem iin thee furtther pperfecct thee inteernal enterrprisee manaagemennt sysstem, standdardizzed meechaniism foor thee purppose oof conntractt manaagemennt, moore tiimely, accuurate, compprehennsive refleectionn of ccontraact innformaation, auxiiliaryy enteerprisse mannagemeent deecisioon, in

6、n ordeer to achieeve thhe entterpriise coontracct mannagemeent inntelliigent, reduuce thhe cosst of managgementt, impprove the iinternnal maanagemment llevel, for the eenterpprise decission-mmakingg layeer to underrstandd the work of coontracct mannagemeent buusinesss layyer too provvide ffirst-hand

7、 inforrmatioon.The sysstem iis foccused on thhe conntractt manaagemennt of a rinng, thhe conntractt prinnt. Annd to the iindiviidual housee purcchase loanss CITIIC Bannk forr the appliicatioon bacckgrouund.Keywordds: Contrract ; Printt; CITICC Bankk; Housse purrchasee loanns目 錄TOC o 1-3 h z u HYPERL

8、INK l _Toc168310671 第1章 緒論 PAGEREF _Toc168310671 h 1 HYPERLINK l _Toc168310672 1.1 程序開開發(fā)背景 PAGEREF _Toc168310672 h 1 HYPERLINK l _Toc168310673 1.2 程序研研究目的和意意義 PAGEREF _Toc168310673 h 1 HYPERLINK l _Toc168310674 1.3 可行性性分析 PAGEREF _Toc168310674 h 2 HYPERLINK l _Toc168310675 第2章 系統(tǒng)需需求分析 PAGEREF _Toc16

9、8310675 h 3 HYPERLINK l _Toc168310676 2.1 程序需需求分析 PAGEREF _Toc168310676 h 3 HYPERLINK l _Toc168310677 2.2 程序性性能要求4 HYPERLINK l _Toc168310679 第3章 程序所所采用技術(shù)5 HYPERLINK l _Toc168310680 3.1 開發(fā)工工具簡介5 HYPERLINK l _Toc168310681 3.1.1 VVisuall Basiic 6.00開發(fā)工具5 HYPERLINK l _Toc168310687 3.2 運(yùn)用的的控件和主要要對象5 HYPE

10、RLINK l _Toc168310689 第4章 程序詳詳細(xì)設(shè)計(jì)6 HYPERLINK l _Toc168310690 4.1 開發(fā)及及運(yùn)行環(huán)境6 HYPERLINK l _Toc168310691 4.2 創(chuàng)建工工程6 HYPERLINK l _Toc168310692 4.3 界面設(shè)設(shè)計(jì)6 HYPERLINK l _Toc168310690 4.4 程序設(shè)設(shè)計(jì)11 HYPERLINK l _Toc168310693 4.4.1 打打印功能設(shè)置置13 HYPERLINK l _Toc168310694 4.4.2 頁頁面初始化17 HYPERLINK l _Toc168310695 4.4

11、.3 代代碼編輯18 HYPERLINK l _Toc168310692 4.5 功能實(shí)實(shí)現(xiàn)33 HYPERLINK l _Toc168310698 第5章 軟件測測試和調(diào)試36 HYPERLINK l _Toc168310699 5.1 白盒測測試法36 HYPERLINK l _Toc168310700 5.2 黑盒測測試法37 HYPERLINK l _Toc168310701 第6章 工作總總結(jié)和展望38 HYPERLINK l _Toc168310702 參考文獻(xiàn)399 HYPERLINK l _Toc168310703 致 謝400洛陽師范學(xué)院2013屆本科生畢業(yè)設(shè)計(jì)第1章 緒論1

12、.1 程序開開發(fā)背景在21世紀(jì)，隨隨著計(jì)算機(jī)科科學(xué)的發(fā)展，計(jì)計(jì)算機(jī)在人們們?nèi)粘Ｉ钪兄械膽?yīng)用越來來越廣泛，為為廣大用戶提提供了更加周周到和人性化化的服務(wù)?，F(xiàn)現(xiàn)代化的企業(yè)業(yè)越來越重視視科學(xué)技術(shù)，只只有把科學(xué)技技術(shù)應(yīng)用到企企業(yè)中才能獲獲取更大的效效益。合同是是商品經(jīng)濟(jì)的的產(chǎn)物，是商商品交換的法法律表現(xiàn)形式式?，F(xiàn)代企業(yè)業(yè)的經(jīng)濟(jì)往來來，主要是通通過合同形式式進(jìn)行的。所所以，合同的的確立以書面面簽字的形式式體現(xiàn)，要確確保合同有效效，雙方的簽簽字必須是法法人或者委托托代理人。而而合同的打印印也成了，交交易是否成功功的關(guān)鍵一環(huán)環(huán)。合同管理是企業(yè)業(yè)經(jīng)營管理中中不可缺少的的組成部分，無無論是企業(yè)內(nèi)內(nèi)部人員管理理

13、，還是企業(yè)業(yè)業(yè)務(wù)往來管管理，都離不不開合同。由由于合同形式式的多樣性，履履行過程的多多變性，同時(shí)時(shí)合同執(zhí)行周周期長，信息息量大，重復(fù)復(fù)性高，許多多企業(yè)對合同同打印一直沒有有好的辦法。如如果采用計(jì)算算機(jī)管理合同同，不但能對對企業(yè)合同的的起草、修改改、審閱、簽簽訂和查詢等等一系列工作作明確化，簡簡單化。并可可以為企業(yè)管管理者提供科科學(xué)的操作工工具，為決策策者提供及時(shí)時(shí)、完整的決決策參考資料料，提升企業(yè)業(yè)的管理水平平和競爭能力力。本系統(tǒng)是專注于于合同管理的的一環(huán)合同打打印。并以中中信銀行個(gè)人人購房貸款為為背景的應(yīng)用用實(shí)例。1.2 程序研研究目的和意意義合同，又稱契約約，它是當(dāng)事事人雙方或數(shù)數(shù)方設(shè)立、

14、變變更和中止相相互權(quán)利和義義務(wù)關(guān)系的協(xié)協(xié)議。合同制制度在我國有有著悠久的歷歷史，合同作作為一種企業(yè)業(yè)之間橫向聯(lián)聯(lián)系的工具，是是現(xiàn)代生產(chǎn)和和商品交換高高度發(fā)展的結(jié)結(jié)果。合同管理即合同同行為的監(jiān)督督管理，是規(guī)規(guī)范、制約、完完善合同行為為的一種活動(dòng)動(dòng)，是國家法律賦予予管理主體的的一種職能，是是企業(yè)在經(jīng)濟(jì)濟(jì)活動(dòng)中保證證企業(yè)利益的的重要環(huán)節(jié)。改改革開放以來來，我國的經(jīng)經(jīng)濟(jì)建設(shè)取得得了長足的發(fā)發(fā)展，然而長長期以來，由由于在合同管管理中實(shí)行手手工作業(yè)，合合同審批流程程不明確，造造成合同管理理過程中業(yè)務(wù)務(wù)處理效率低低，浪費(fèi)了大大量的人力、物物力，各部門門之間合同流流轉(zhuǎn)時(shí)間長而而且特別容易易出錯(cuò)等問題題。為了解

15、決決這一問題，需需要開發(fā)一套套功能完整的的智能化的合合同管理系統(tǒng)統(tǒng)軟件，用于于各行各業(yè)的的大中小型企企業(yè)的合同制制定、評審、實(shí)實(shí)施動(dòng)態(tài)控制制等方面的具具體應(yīng)用需求求，并以先進(jìn)進(jìn)成熟的計(jì)算算機(jī)網(wǎng)絡(luò)和通通信技術(shù)為手手段，覆蓋整整個(gè)企業(yè)的各各部門，實(shí)現(xiàn)現(xiàn)該企業(yè)合同同管理智能化化，提高辦公公效率及人員員的利用率成成為促進(jìn)企業(yè)業(yè)迅速發(fā)展的的一支很好的的催化劑。1.3 可行性性分析該系統(tǒng)采用Viisual Basicc6.0軟件件作為工具進(jìn)進(jìn)行系統(tǒng)開發(fā)發(fā)。Visuual Baasic6.0工具軟件件以其功能強(qiáng)強(qiáng)大、使用靈靈活的數(shù)據(jù)窗窗口，其面向向?qū)ο蟮拈_發(fā)發(fā)能力等優(yōu)勢勢在數(shù)據(jù)庫應(yīng)應(yīng)用程序開發(fā)發(fā)領(lǐng)域占據(jù)了了

16、領(lǐng)先地位，這這些特點(diǎn)為開開發(fā)功能全面面的應(yīng)用程序序創(chuàng)造了良好好的條件。因因此利用它作作為合同打印印系統(tǒng)的工具具是完全可行行的。傳統(tǒng)的合同打印印方法，存在在諸多缺點(diǎn)，如如：效率低，保保密性差，時(shí)時(shí)間一長就會(huì)會(huì)產(chǎn)生大量的的文件和數(shù)據(jù)據(jù)積壓，這對對于往后的合合同管理帶來來了不少困難難，也造成了了勞動(dòng)力的浪浪費(fèi)。使用計(jì)計(jì)算機(jī)合同打打印系統(tǒng)，可可以促進(jìn)企業(yè)業(yè)工作效率和和經(jīng)營管理能能力的提高。此中信銀行個(gè)人人借貸款合同同打印系統(tǒng)，使使用方便，簡簡單易讀，修修改簡便，非非常便于顧客客閱讀查詢。且對管理人員不需要太多的專業(yè)培訓(xùn)。主要可以應(yīng)用于中信銀行個(gè)人購房借貸款合同的生成和打印。因此具有良好的操作可行性。在

17、各大商業(yè)銀行行紛紛收緊貸貸款的大環(huán)境境下，如何成成功申請購房房貸款成為眼眼下很多購方方者必須重視視的問題。不不少以前能貸貸款的人，現(xiàn)現(xiàn)在不符合貸貸款條件了；不少以前能能獲得優(yōu)惠利利率的人，現(xiàn)現(xiàn)在只能按基基準(zhǔn)利率甚至至上浮利率貸貸款。因此，在在看中房屋簽簽署相關(guān)購房房協(xié)議前，了了解貸款政策策、確認(rèn)貸款款細(xì)節(jié)是購房房者必不可少少的一門功課課。如果采用用計(jì)算機(jī)管理理合同，不但但能對銀行合合同的起草，修修改，審閱和和簽訂等一系系列工作進(jìn)行行有效管理。并并可以為銀行行管理者提供供科學(xué)的操作作工具，為用用戶提供及時(shí)時(shí)、完整的決決策參考資料料，提升銀行行的管理水平平和競爭能力力。 中信銀行個(gè)人購房貸款合同打

18、印程序設(shè)計(jì)第2章 程序需需求分析2.1 程序需需求分析設(shè)計(jì)系統(tǒng)時(shí)應(yīng)該該首先充分了了解用戶各個(gè)個(gè)方面的需求求，包括現(xiàn)有有的以及將來來可能增加的的需求，本人人通過對洛陽陽、鄭州等站站點(diǎn)進(jìn)行詳細(xì)細(xì)的實(shí)地考察察以及利用網(wǎng)網(wǎng)絡(luò)等多種渠渠道，了解了了中信銀行在在個(gè)人購房貸貸款方面的一一些現(xiàn)狀以及及政府出臺(tái)的的政策，對個(gè)個(gè)人借貸款方方面的調(diào)控，針針對中信銀行行個(gè)人購房借借貸款合同的的各種要求，需需要對合同的的每一頁都進(jìn)進(jìn)行明確的規(guī)規(guī)劃，合同基基本信息錄入入：第一頁：要有借借款人的姓名名，身份證件件和號(hào)碼，家家庭住址，聯(lián)聯(lián)系電話，郵郵政編碼。由由于現(xiàn)在個(gè)人人購房貸款一一般都不是單單人的，所有有還要考慮有有共同

19、借款人人，也就需要要這位共同借借款人的各項(xiàng)項(xiàng)身份證明，聯(lián)聯(lián)系電話和住住址。借款為為了保證銀行行的利益，還還要有個(gè)借款款的保證人，保保證人可以是是個(gè)人也可是是公司集體，需需要保證人的的身份證明和和聯(lián)系方式。第二到第八頁都都是個(gè)人申請請住房貸款程程序以及多方方在購房貸款款中應(yīng)盡的義義務(wù)和享有的的權(quán)利。極少少情況有需要要變更的，是是成文重復(fù)的的規(guī)定，就不不需要在系統(tǒng)統(tǒng)中進(jìn)行贅述述。第九頁：借款合合同中最重要要的就是貸款款的金額。我我們不止要用用科學(xué)的計(jì)數(shù)數(shù)法，還要明明確規(guī)范金額額的大寫。需需要注意貸款款當(dāng)年的貸款款年利率，月月利率。根據(jù)據(jù)實(shí)際情況，利利率會(huì)有所波波動(dòng)，也就要要明確貸款利利率調(diào)整的情情

20、況下，可能能采取的措施施，供用戶進(jìn)進(jìn)行直觀有效效的選擇?？偪偣灿兴姆N方方法：（1）浮動(dòng)利率率，本合同的的利率以同簽簽訂日中國人人民銀行公布布的同期同檔檔次貸款基準(zhǔn)準(zhǔn)利率為基礎(chǔ)礎(chǔ)；（2）階段固定定利率，在某某一固定時(shí)期期，本合同貸貸款利率以中中國人民銀行行公布的同期期同檔次利率率為定價(jià)依據(jù)據(jù)，期間內(nèi)利利率保持不變變；（3）固定利率率，借款合同同履行期間，本本合同貸款以以中國人民銀銀行公布的同同期同檔次貸貸款基準(zhǔn)利率率為定價(jià)依據(jù)據(jù)，期間保持持不變。第十頁：標(biāo)明合合同的貸款期期限，總共幾幾個(gè)月，從某某年某月某日日到某年某月月某日。要需需要保證人的的賬戶名稱和和賬戶號(hào)以作作擔(dān)保。第十一頁：要明明確借款

21、人的的還款方式。共共有11種還還款方式。（1）到期一次次還本付息法法（2）按月等額額本息還款法法（3）按月等額額本金還款法法（4）按單周或或雙周等額本本息還款法（5）按單周或或雙周等額本本金還款法（6）等比遞增增還款法（7）等比遞減減還款法（8）等額遞增增還款法（9）等額遞減減還款法（10）寬限期期等額本息還還款法（11）寬限期期等額本金還還款法第十二頁：要明明確借款人的的還款賬戶，逾逾期貸款的相相關(guān)舉措，提提前還款的相相關(guān)規(guī)定和程程序途徑以及及貸款所購買買并作為抵押押物的房屋也也要有明確的的標(biāo)示。第十三頁：確認(rèn)認(rèn)合同的公平平公正性。2.2 程序性性能要求1.安全性該系統(tǒng)的安全性性主要是防止止

22、他人非法進(jìn)進(jìn)入系統(tǒng)，從從而保證了數(shù)數(shù)據(jù)的安全性性，數(shù)據(jù)存儲(chǔ)儲(chǔ)的完整性和和數(shù)據(jù)的可靠靠性。設(shè)置三三種不同的身身份進(jìn)行登錄錄，即特級管管理員、一般般管理員和普普通用戶；系系統(tǒng)也設(shè)立了了數(shù)據(jù)備份和和恢復(fù)機(jī)制，從從一定程度上上可以降低數(shù)數(shù)據(jù)的損壞程程度。2.高效性使用此智能鐵路路查詢系統(tǒng)既既可以方便旅旅客及時(shí)獲取取所需的信息息，又可以大大大減輕鐵路路工作人員的的負(fù)擔(dān)，與人人工服務(wù)相比比效率得到了了很大的提高高。 3.便捷性本系統(tǒng)的界面友友好,操作方方便，能夠達(dá)達(dá)到所見即所所得的效果,方便用戶的的使用。第3章 程序所所采用技術(shù)3.1開發(fā)工具具簡介3.1.1 VVisuall Basiic 6.00開發(fā)工

23、具Visual Basicc6.0作為VVisuall Studdio 家族中的一一員，以其開開發(fā)速度快、使使用簡單而被被廣泛使用。Visual Basicc的主要功能能特點(diǎn)：(11)可視化編編程、（）面面向?qū)ο蟮某坛绦蛟O(shè)計(jì)、（）結(jié)構(gòu)化程程序設(shè)計(jì)語言言、（）事事件驅(qū)動(dòng)編程程機(jī)制、（）訪問數(shù)據(jù)據(jù)庫Visual Basicc6.0是由由微軟公司推推出的一套完完整的winndows系系統(tǒng)軟件開發(fā)發(fā)工具，可用用股開發(fā)wiindowss環(huán)境下的各各類應(yīng)用程序序，是一種可可視化、真正正面向?qū)ο?、采采用事件?qū)動(dòng)動(dòng)方式的結(jié)構(gòu)構(gòu)化高級程序序設(shè)計(jì)語言和和工具的完美美集成。它編編程簡單方便便、功能強(qiáng)大大，具有與其其

24、他語言及環(huán)環(huán)境的良好借借口，不需要要變成惡開發(fā)發(fā)人員具備語語言知識(shí)和特特別高深的專專業(yè)知識(shí)，只只要懂得Wiindowss的界面及基基本操作，就就可以迅速上上手，而VBB在程序界面面設(shè)計(jì)、多媒媒體開發(fā)方面面更是獨(dú)具優(yōu)優(yōu)勢。3.2 運(yùn)用的的控件和主要要對象在程序設(shè)計(jì)過程程中主要用到到的控件有：Commaand控件；Lablee 控件；TTextBoox 控件；TabSttrip 控控件等。第4章 程序詳詳細(xì)設(shè)計(jì)4.1 開發(fā)及及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：Visuaal Bassic 6.0運(yùn)行平臺(tái)：Wiindowss XP / Windoows 20000 / Windoows 200034.2 創(chuàng)建工

25、工程啟動(dòng)Visuaal Bassic 6.0后，在“新建工程”對話框中選選擇“標(biāo)準(zhǔn)EXEE”文件，單擊擊“確定”按鈕。此時(shí)時(shí)，工程資源源管理器窗口口中顯示已創(chuàng)創(chuàng)建了一個(gè)工工程，默認(rèn)名名字為“工程1”，并創(chuàng)建了了一個(gè)窗體，默默認(rèn)名稱為“Form11”。4.3界面設(shè)計(jì)計(jì)新建窗體后，利利用工具箱可可以在窗體上上依次添加控控件對象。選選擇工具箱中中的標(biāo)簽，通通過雙擊或鼠鼠標(biāo)拖動(dòng)將其其對象拖放在在窗體的合適適位置；用同同樣的方法創(chuàng)創(chuàng)建文本框和和命令按鈕的的對象放置在在適當(dāng)?shù)奈恢弥?，如圖所示示。第一頁：圖4-1 第一一頁第九頁：表4-2 第九九頁3. 第十頁：圖4-3 第十十頁4. 第十一頁頁：圖4-4

26、第十十一頁5. 第十二頁頁：圖4-5 第十十二頁6. 第十三頁頁：圖4-6 第十十三頁4.4 程序設(shè)設(shè)計(jì)應(yīng)用程序進(jìn)行到到現(xiàn)在僅僅只只做了一個(gè)空空殼，當(dāng)程序序運(yùn)行，我們們單擊任何命命令按鈕，并并沒有事情發(fā)發(fā)生，這是因因?yàn)槲覀冞€沒沒有進(jìn)行最重重要的一個(gè)步步驟代碼編輯輯。根據(jù)程序需求，我我們要在代碼碼窗口中對每每個(gè)命令按鈕鈕的單擊事件件編程。4.4.1 打打印功能設(shè)置置1.Commaand事件代代碼如下：/*分別有Commmand1，CCommannd2，Coommandd3，Commmand44，Commmand5，CCommannd6六個(gè)CCommannd事件，功功能類似，主主要完成當(dāng)前前頁的錄

27、入內(nèi)內(nèi)容是否合法法，頁面設(shè)置置，字體段落的的確定，把打打印內(nèi)容送交交打印機(jī)最后后把計(jì)算單位位改為默認(rèn)值值。下面以CCommannd1為例的的事件代碼。*/Privatee Sub Commaand1_CClick() Dimm k Ass Inteeger Dimm i Ass Inteeger Dimm PrinntStr As Sttring 清除除輸入框多余余的空格 ClrrEmptyy = CllearEmmpty() PriintPagges = Val(TTrim(TText655.Textt) If PrinttPagess 0 Then Text665.Texxt = Text

28、665.SettFocuss Exit Sub Endd If 開始始循環(huán)打印 Forr k = 1 To PrinttPagess On Errorr GoToo erroor 先判判斷輸入內(nèi)容容是否合法 Prinnter.SScaleMMode = vbCeentimeeters 設(shè)置計(jì)算算單位為厘米米 Prinnter.SScaleWWidth = 19 紙張寬度度 Prinnter.SScaleHHeightt = 277 紙張高度度 Prinnter.FFont.SSize = 12 打印字號(hào) Prinnter.FFontBoold = True 字體不加加粗 Prinnter.FF

29、ont.NName = 宋體 打打印字體 其它類似似 Prinnter.CCurrenntX = 0 打印橫坐標(biāo)標(biāo)為1厘米 Prinnter.CCurrenntY = 0 打印縱坐坐標(biāo)為1厘米米 Prinnter.PPrint 初始化化 定位第第第一行的YY坐標(biāo) PriintSpaaceY (14) 1行行 Priinter.Font.Size = 10 PriintStrr = maakeSpaace(444) & TTrim(ttxtL1SS1.Texxt) Priinter.Printt PrinntStr 22行 Priinter.Font.Size = 14 PriintSpaace

30、Y (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(311) & TTrim(ttxtL2SS1.Texxt) Priinter.Printt PrinntStr 3行 Priinter.Font.Size = 15 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(177) & TTrim(ttxtL3SS1.Texxt) Priinter.Printt PrinntStr 4行 Priinter.Font.Size = 15 PriintSpaace

31、Y (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL4SS1.Texxt) Priinter.Printt PrinntStr 5行 Priinter.Font.Size = 15 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL5SS1.Texxt) Priinter.Printt PrinntStr 6行行 Priinter.Font.Size = 12 PriintSpaac

32、eY (2) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(244) & TTrim(ttxtL6SS1.Texxt) Priinter.Printt PrinntStr 77行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(311) & TTrim(ttxtL7SS1.Texxt) Priinter.Printt PrinntStr 8行 Priinter.Font.Size = 16 PriintSpaa

33、ceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(177) & TTrim(ttxtL8SS1.Texxt) Priinter.Printt PrinntStr 9行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL9SS1.Texxt) Priinter.Printt PrinntStr 10行 Priinter.Font.Size = 16 PriintSpa

34、aceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL100S1.Teext) Priinter.Printt PrinntStr 定位位16行坐標(biāo)標(biāo) Prrinterr.Fontt.Sizee = 122 PriintSpaaceY (13) 16行行 Priinter.Font.Size = 18 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(355) & TTrim(ttxtL166S1.Teext) P

35、riinter.Printt PrinntStr 17行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(233) & TTrim(ttxtL177S1.Teext) Priinter.Printt PrinntStr 188行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(177) & TTrim(ttxtL188S1.Tee

36、xt) Priinter.Printt PrinntStr 19行行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL199S1.Teext) Priinter.Printt PrinntStr 20行行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL200

37、S1.Teext) Priinter.Printt PrinntStr 將打印印內(nèi)容送交打打印機(jī) Prinnter.EEndDocc 將計(jì)算算單位改回默默認(rèn)設(shè)置 Prinnter.SScaleMMode = vbTwwips Nexxt Commmand77.SetFFocuserror: errr.CleaarEnd SubbPrivatee Sub Commaand10_Clickk() Texxt43.TText = Texxt44.TText = Texxt45.TText = TText500.Textt = Texxt51.TText = Texxt52.TText = Texxt

38、53.TText = Texxt54.TText = Texxt55.TText = Teext43.SetFoocusEnd Subb4.4.2 頁頁面初始化 根據(jù)不不同頁面的內(nèi)內(nèi)容不同，每每次程序啟動(dòng)動(dòng)或打印結(jié)束束時(shí)，要清楚楚緩存數(shù)據(jù)，給給變量賦一個(gè)個(gè)起始的滿足足實(shí)際需要的的值。1. 第九頁初初始化：第九頁Commbo初始化化 Cmbb21_2SS3.Texxt = (1) Cmbb21_2SS3.AdddItem (1) Cmbb21_2SS3.AdddItem (2) Cmbb21_2SS3.AdddItem (3) Cmbb21_2SS3.AdddItem (4)2. 第十頁初初始化

39、：第十頁Commbo初始化化 Cmbb21_2_1_aS44.Textt = 11個(gè)月 Cmbb21_2_1_aS44.AddIItem (1個(gè)月) Cmbb21_2_1_aS44.AddIItem (3個(gè)月) Cmbb21_2_1_aS44.AddIItem (6個(gè)月) Cmbb21_2_1_aS44.AddIItem (12個(gè)月月)3. 第十一頁頁初始化：第十一頁Coombo初始始化 CommboL288S1.Teext = (1) CommboL288S1.AdddItemm (11) CommboL288S1.AdddItemm (22) CommboL288S1.AdddItemm

40、(33) CommboL288S1.AdddItemm (44) CommboL288S1.AdddItemm (55) CommboL288S1.AdddItemm (66) CommboL288S1.AdddItemm (77) CommboL288S1.AdddItemm (88) CommboL288S1.AdddItemm (99) CommboL288S1.AdddItemm (110) CommboL288S1.AdddItemm (111) SSTTab2.SSetFoccus Endd Sub4.4.3 代代碼編輯1.第九頁：Privatee Sub Text330_Keyy

41、Presss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt31.SeetFocuus Endd IfEnd SubbPrivatee Sub Text331_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt33.SeetFocuus Endd IfEnd SubbPrivatee Sub Text333_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt32.SeetFocuu

42、s Endd IfEnd SubbPrivatee Sub Text332_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Cmb221_2S33.SetFFocus Endd IfEnd SubbPrivatee Sub Cmb211_2S3_KeyPrress(KKeyAsccii Ass Inteeger) If KeyAsscii = 13 TThen Textt35.SeetFocuus Endd IfEnd SubbPrivatee Sub Text335_KeyyPresss(KeyAAscii As Innt

43、egerr) If KeyAsscii = 13 TThen Textt36.SeetFocuus Endd IfEnd SubbPrivatee Sub Text336_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt37.SeetFocuus Endd IfEnd SubbPrivatee Sub Text337_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt38.SeetFocuus Endd IfEnd SubbPrivate

44、e Sub Text338_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt39.SeetFocuus Endd IfEnd SubbPrivatee Sub Text339_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt40.SeetFocuus Endd IfEnd SubbPrivatee Sub Text440_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen

45、 Textt65.SeetFocuus Endd IfEnd Subb2.第十頁P(yáng)rivatee Sub Text884_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt85.SeetFocuus Endd IfEnd SubbPrivatee Sub Text885_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt86.SeetFocuus Endd IfEnd SubbPrivatee Sub Text886_KeyyPresss(

46、KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Cmb221_2_11_aS4.SetFoocus Endd IfEnd SubbPrivatee Sub Cmb211_2_1_aS4_KKeyPreess(KeeyAsciii As Integger) If KeyAsscii = 13 TThen Textt87(0).SetFFocus Endd IfEnd SubbPrivatee Sub Text990_KeyyPresss(Indeex As Integger, KKeyAsccii Ass Inteeger) If KeyAssci

47、i = 13 TThen Textt91(0).SetFFocus Endd IfEnd SubbPrivatee Sub Text991_KeyyPresss(Indeex As Integger, KKeyAsccii Ass Inteeger) If KeyAsscii = 13 TThen Textt92(0).SetFFocus Endd IfEnd SubbPrivatee Sub Text992_KeyyPresss(Indeex As Integger, KKeyAsccii Ass Inteeger) If KeyAsscii = 13 TThen Textt93.SeetF

48、ocuus Endd IfEnd SubbPrivatee Sub Text993_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt34.SeetFocuus Endd IfEnd SubbPrivatee Sub Text334_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt41.SeetFocuus Endd IfEnd SubbPrivatee Sub Text441_KeyyPresss(KeyAAscii As Innteg

49、err) If KeyAsscii = 13 TThen Textt42.SeetFocuus Endd IfEnd SubbPrivatee Sub Text442_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Combbo2.SeetFocuus Endd IfEnd SubbPrivatee Sub Comboo2_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt94.SeetFocuus Endd IfEnd SubbPrivatee

50、Sub Text994_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt95.SeetFocuus Endd IfEnd SubbPrivatee Sub Text995_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt96.SeetFocuus Endd IfEnd SubbPrivatee Sub Text996_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen T

51、extt97.SeetFocuus Endd IfEnd SubbPrivatee Sub Text997_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt98.SeetFocuus Endd IfEnd SubbPrivatee Sub Text998_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt99.SeetFocuus Endd IfEnd SubbPrivatee Sub Text999_KeyyPresss(KeyAAsc

52、ii As Inntegerr) If KeyAsscii = 13 TThen Textt100.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1100_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt101.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1101_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt63.SeetFocuus Endd I

53、fEnd Subb3.第十一頁P(yáng)rivatee Sub Text443_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt44.SeetFocuus Endd IfEnd SubbPrivatee Sub Text444_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt45.SeetFocuus Endd IfEnd SubbPrivatee Sub Text445_KeyyPresss(KeyAAscii As Inntegerr) I

54、f KeyAsscii = 13 TThen Combbo3.SeetFocuus Endd IfEnd SubbPrivatee Sub Comboo3_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt50.SeetFocuus Endd IfEnd SubbPrivatee Sub Text550_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt52.SeetFocuus Endd IfEnd SubbPrivatee Sub Te

55、xt552_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt54.SeetFocuus Endd IfEnd SubbPrivatee Sub Text554_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt51.SeetFocuus Endd IfEnd SubbPrivatee Sub Text551_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt53

56、.SeetFocuus Endd IfEnd SubbPrivatee Sub Text553_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt55.SeetFocuus Endd IfEnd SubbPrivatee Sub Text555_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt56.SeetFocuus Endd IfEnd SubbPrivatee Sub Text556_KeyyPresss(KeyAAscii As

57、Inntegerr) If KeyAsscii = 13 TThen Textt57.SeetFocuus Endd IfEnd SubbPrivatee Sub Text557_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt58.SeetFocuus Endd IfEnd SubbPrivatee Sub Text558_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt102.SSetFoccus Endd IfEnd SubbPr

58、ivatee Sub Text1102_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt59.SeetFocuus Endd IfEnd SubbPrivatee Sub Text559_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt60.SeetFocuus Endd IfEnd SubbPrivatee Sub Text660_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 1

59、3 TThen Textt103.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1103_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt49.SeetFocuus Endd IfEnd SubbPrivatee Sub Text449_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt104.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1104_Keey

60、Presss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt105.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1105_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt106.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1106_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt107.S