【正文】 rivate Sub Text123_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text133_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text134_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 29 / 43 End IfEnd SubPrivate Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text17_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text20_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text21_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text124_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text125_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text126_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text127_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text128_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text129_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text130_KeyPress(KeyAscii As Integer)31 / 43 If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text131_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text132_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text74_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text75_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text76_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text77_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text78_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text79_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text80_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text81_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text82_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If33 / 43End SubPrivate Sub Text61_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd Sub 功能實(shí)現(xiàn)/*…………………………………………………………………………………………………該 module 把 TextBox 中錄入的內(nèi)容轉(zhuǎn)換到頁(yè)面上成為我們需要的內(nèi)容，包含了驗(yàn)證數(shù)據(jù)，轉(zhuǎn)換金額的大小寫數(shù)字以及漢字的表達(dá)。 Trim() PrintStr 39。定位 16 行坐標(biāo) = 12 PrintSpaceY (13) 39。7 行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(31) amp。3 行 = 15 PrintSpaceY (0) = 10 PrintStr = makeSpace(17) amp。打印橫坐標(biāo)為 1 厘米 = 0 39。先判斷輸入內(nèi)容是否合法 = vbCentimeters 39。選擇工具箱中的標(biāo)簽，通過(guò)雙擊或鼠標(biāo)拖動(dòng)將其對(duì)象拖放在窗體的合適位置；用同樣的方法創(chuàng)建文本框和命令按鈕的對(duì)象放置在適當(dāng)?shù)奈恢?，如圖所示。 本系統(tǒng)的界面友好,操作方便，能夠達(dá)到所見(jiàn)即所得的效果,方便用戶的使用。要需要保證人的賬戶名稱和賬戶號(hào)以作擔(dān)保。第二到第八頁(yè)都是個(gè)人申請(qǐng)住房貸款程序以及多方在購(gòu)房貸款中應(yīng)盡的義務(wù)和享有的權(quán)利。在各大商業(yè)銀行紛紛收緊貸款的大環(huán)境下，如何成功申請(qǐng)購(gòu)房貸款成為眼下很多購(gòu)方者必須重視的問(wèn)題。Visual 工具軟件以其功能強(qiáng)大、使用靈活的數(shù)據(jù)窗口，其面向?qū)ο蟮拈_(kāi)發(fā)能力等優(yōu)勢(shì)在數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)領(lǐng)域占據(jù)了領(lǐng)先地位，這些特點(diǎn)為開(kāi)發(fā)功能全面的應(yīng)用程序創(chuàng)造了良好的條件。本系統(tǒng)是專注于合同管理的一環(huán)合同打印。合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式。合同打印系統(tǒng)就是針對(duì)當(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è)合同管理智能化，降低管理成本，提高內(nèi)部管理水準(zhǔn)，為企業(yè)決策層及時(shí)了解合同管理業(yè)務(wù)層的工作情況提供第一手資料。長(zhǎng)期以來(lái)，由于在合同打印實(shí)行手工作業(yè)，存在各部門之間合同流轉(zhuǎn)時(shí)間長(zhǎng)而且特別容易出錯(cuò)等問(wèn)題?，F(xiàn)代化的企業(yè)越來(lái)越重視科學(xué)技術(shù)，只有把科學(xué)技術(shù)應(yīng)用到企業(yè)中才能獲取更大的效益。并可以為企業(yè)管理者提供科學(xué)的操作工具，為決策者提供及時(shí)、完整的決策參考資料，提升企業(yè)的管理水平和競(jìng)爭(zhēng)能力。 可行性分析該系統(tǒng)采用 Visual 軟件作為工具進(jìn)行系統(tǒng)開(kāi)發(fā)。因此具有良好的操作可行性。借款為了保證銀行的利益，還要有個(gè)借款的保證人，保證人可以是個(gè)人也可是公司集體，需要保證人的身份證明和聯(lián)系方式。第十頁(yè)：標(biāo)明合同的貸款期限，總共幾個(gè)月，從某年某月某日到某年某月某日。使用此智能鐵路查詢系統(tǒng)既可以方便旅客及時(shí)獲取所需的信息，又可以大大減輕鐵路工作人員的負(fù)擔(dān)，與人工服務(wù)相比效率得到了很大的提高。 界面設(shè)計(jì)新建窗體后，利用工具箱可以在窗體上依次添加控件對(duì)象。開(kāi)始循環(huán)打印 For k = 1 To PrintPages On Error GoTo error 39。....其它類似.... = 0 39。 Trim() PrintStr 39。 Trim() PrintStr 39。 Trim() PrintStr 15 / 43 39。19 行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。第十頁(yè) Combo 初始化 = 1 個(gè)月 (1 個(gè)月) (3 個(gè)月) (6 個(gè)月) (12 個(gè)月)3. 第十一頁(yè)初始化：39。定義變量 Dim intLen As Integer, intCounter As Integer Dim strCh As String, strTempCh As String Dim strSeqCh1 As String, strSeqCh2 As String Dim strEng2Ch As String strEng2Ch