【文章內(nèi)容簡介】 復(fù)雜的 SQL 語言，除提供 SQL 接口外，還提供了具有簡單邏輯的可視化查詢。具體作法是對每一個模板化報(bào)表都提供了幾個可選擇的條件以及它們之間的關(guān)系供使用，具體條件根據(jù)經(jīng)驗(yàn)而定。 ⑧ 打印問題 ? 方法一：直接打印窗體法，在 FORM1 中增加命令按鈕 (mand)， CAPTION屬性設(shè)為直接打印，再寫入下列編碼： Sub mand_click End sub ? 方法二：通過 PRINTER 實(shí)現(xiàn)打印。這種方法 使用這種方法，必須加入打印命令按鈕 (mand1)、函數(shù) (prnt1)，由此可實(shí)現(xiàn)打印功能。 以下代碼，稍加改動，可寫成標(biāo)準(zhǔn)的函數(shù)或過程。 函數(shù) prnt1 的功能是設(shè)置打印報(bào)表的頁面初始位置，設(shè)置默認(rèn)字體：字體大小，是否為粗體。最后將文本打印出來。 Function prnt1 (x As Integer, y As Integer,font As Single, txt As String) = x = y = False = font txt End Function Sub mand1_click Dim fnt As Single Dim pp as integer Pp=0 39。設(shè)置開始頁碼 0 Dim stry,strx,strx1,stry1,linw,page1,p As Integer Static a(8) As Integer 39。定義打印的列數(shù) ss$ = 內(nèi)部結(jié)算存入款對帳單 39。定義表頭 kan = 0 For i = 0 To 8 a(i) = 1500 39。定義每列寬 kan = kan + a(i) 39。計(jì)算表格總寬度 Next page1 = 50 39。定義每頁行數(shù) strx = 200 strx1 = 200 39。定義 X 方向起始位置 stry = 1400 stry1 = 1400 39。定義 Y 方向起始位置 linw = 240 39。定義行寬 fnt = 8 39。定義字體大小 = 宋體 39。定義字體 dd = prnt1(4000, 700, 18, ss$) 39。打印標(biāo)題 (strx 50, stry 30)(strx + kan 10, stry 30) For j = 0 To gridrow – 1 39。gridrow 為所要打印的行數(shù) = j strx = strx1 (strx 50, stry 30)(strx + kan 10, stry 30) p = p + 1 For i = 0 To 8 = i dd = prnt1(strx, stry, fnt, ) strx = strx + a(i) Next If p page1 Then p = 0 strx = strx1 (strx 50, stry + linw)(strx + kan 10, stry + linw) stry = stry1 39。line col For n = 0 To 8 (strx 30, stry 30)(strx 30, stry + (page1 + 2) * linw) strx = strx + a(n) Next (strx 30, stry 30)(strx 30, stry + (page1 + 2) * linw) pp=pp+1 foot$=第 +cstr(pp)+頁 dd = prnt1(strx 301000, stry + (page1 + 2)* linw+100, 10, foot$) 39。打印頁碼 39。next page dd = prnt1(4000, 700, 18, ss$) 39。打印標(biāo)題 strx = strx1 stry = stry1 (strx 50, stry 30)(strx + kan 10, stry 30)39。 print first row Else stry = stry + linw End If Next st = stry If p page1 Then 39。在最后頁剩余劃空行 For o = p To page1 + 1 strx = strx1 (strx 50, stry 30)(strx + kan 10, stry 30) stry = stry + linw Next End If stry = stry1 strx = strx1 stry = stry1 39。line col For n = 0 To 8 (strx 30, stry 30)(strx 30, stry + (page1 + 2) * linw) strx = strx + a(n) Next (strx 30, stry 30) (strx 30, stry + (page1 + 2) * linw) pp=pp+1 foot$=第 +cstr(pp)+頁 dd = prnt1(strx 301000, stry + (page1 + 2)* linw+100, 10, foot$)39。打印頁角碼 39。打印結(jié)束 Endsub ? 方法三： 通過生成 MICROSOFT WORD 表格打印 在 declaration 中寫入 : Dim msword As Object 加入打印命令按鈕 (mand2)， CAPTION 設(shè)為 生成 WORD 表格 ，寫入下面代碼， Private Sub mand2_Click() = 11 Set msword = CreateObject() Dim AppID, ReturnValue appID = Shell(d:\office97\office\, 1) 39。 Run Microsoft Word. Microsoft Word full = 0 End Sub 寫入以下過程 full() Sub full() Dim i As Integer, j As Integer, col As Integer, row As Integer Dim cellcontent As String cols = 439。表格的列數(shù) row = gridrow39。打印表的行數(shù) 正在建立 MS_WORD 報(bào)表，請稍候 ......., , 1 0 , col, row, , , 16, 167 for j=0 to gridrow39。 表格的行數(shù) =j For i = 1 To cols =i If IsNull() Then cellcontent$ = Else cellcontent$ = End If cellcontent$ Next i Next j 1 39。 1 結(jié)束 , , 1 End Sub 第二部分 系統(tǒng)開發(fā)工具簡介 Visual Basic 簡介 ⑴ Basic 到 Visual Basic 的發(fā)展 BASIC 是 Beginner39。s Allpurpose symbolic instruction Code（初學(xué)者通用符號指令代碼）的縮寫，是國際上廣泛使用的一種計(jì)算機(jī)高級語言。 BASIC 簡單、易學(xué)，目前仍是計(jì)算機(jī)入門的主要學(xué)習(xí)語言之一。 BASIC 語言的問世及發(fā)展 BASIC 語言自其問世經(jīng)歷了以下四個階段： 第一階段：（ 1964 年～ 70 年代初） 1964 年 BASIC 語言問世。 第二階段：（ 1975 年～ 80 年代中） 微機(jī)上固化的 BASIC 第三階段：（ 80 年代中～ 90 年代初） 結(jié)構(gòu)化 BASIC 語言。 第四階段：（ 1991 年以來） Visual BASIC BASIC 是種易學(xué)易用的高級語言 ,非常適合初學(xué)者學(xué)習(xí)運(yùn)用。常用的編譯軟件有True BASIC, Turbo BASIC Quick BASIC, Visual BASIC,CAREALIZER,GFA BASIC,POWER BASIC 等等 1991 年，微軟推出了 Visual 版。這在當(dāng)時引起了很大的轟動。許多專家把VB 的出現(xiàn)當(dāng)作是軟件開發(fā)史上的一個具有劃時代意義的事件。其實(shí)，以我們現(xiàn)在的目光來看 ， VB10 的功能實(shí)在是太弱了。但在當(dāng)時，它是第一個“可視”的編程軟件。這使得程序員欣喜之極，都嘗試在 VB 的平臺上進(jìn)行軟件創(chuàng)作。微軟也不失時機(jī)地在四年內(nèi)接連推出 ， ， 三個版本。并且從 VB3 開始，微軟將 ACCESS 的數(shù)據(jù)庫驅(qū)動集成到了 VB 中，這使得 VB 的數(shù)據(jù)庫編程能力大大提高。從 VB4 開始， VB 也引入了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。 VB 功能強(qiáng)大，學(xué)習(xí)簡單。而且， VB 還引入了“控件：的概念，使得大量已經(jīng)編好的 VB 程序可以被我們直接拿來使用，如今， VB 已經(jīng)有了 版。 通過幾年的發(fā)展，它已成為一 種真正專業(yè)化的開發(fā)語言和環(huán)境。用戶認(rèn)為可用 Visual Basic 快速創(chuàng)建 Windows 程序，在現(xiàn)在還可以編寫企業(yè)水平的客戶／服務(wù)器程序及強(qiáng)大的數(shù)據(jù)庫應(yīng)用程序， Visual Basic 新版中還有更多可用功能。 ⑵ Visual Basic 的編程基礎(chǔ) 首先需要知道下面這個問題的答案：“程序到底是什么？”計(jì)算機(jī)程序是指令集，它告訴計(jì)算機(jī)如何執(zhí)行特殊的任務(wù)。讀者也許對許多種指令熟悉，如按菜譜烹調(diào)特殊的食物或按指定的方向到達(dá)不熟悉的目的地。沒有這些特殊的指令，就不能執(zhí)行預(yù)期的任務(wù)。 計(jì)算機(jī)也是一樣，只是它們需要 為執(zhí)行的每一個任務(wù)提供指令。甚至對最簡單的任務(wù)也需要指令，例如如何取得擊鍵，怎樣在屏幕上放一個字母，怎樣在磁盤中保存訊息。 幸運(yùn)的是，許多這樣的指令包含在處理器芯片中或內(nèi)置于操作系統(tǒng)中，因此用戶不必?fù)?dān)心它們。 相反，應(yīng)集中于為任務(wù)提供指令，如計(jì)算雇員工資，創(chuàng)建鄰居郵件列表，或設(shè)置格式化文本以顯示最近的年度報(bào)表信息。 雖然我們用自然語言讀這些指令，但計(jì)算機(jī)指令必須是二進(jìn)制代碼，即一系列在計(jì)算機(jī)內(nèi)存和處理器中的開或關(guān)的狀態(tài)。有些語言，如匯編程序，可以允許直接寫這種類型的代碼。但是，以這種方法編程十分困難，因此Visual Basic 和其他編程語言使程序員可以用與自然語言有點(diǎn)相近的方式編寫指令。然而，即使是這些指令仍有限，并要遵循高度定義的結(jié)構(gòu)。 ⑶ 事件驅(qū)動編程 Visual Basic 允許創(chuàng)建反映用戶動作和系統(tǒng)事件的程序。這種編程叫事件驅(qū)動編程。要了解事件驅(qū)動程序是怎樣工作的，先要了解過去的程序怎樣運(yùn)行及在 Windows 環(huán)境中有何不同。 在 Windows 之前（回到往日的 DOS 和“史前時代” ＰＣ之前），程序以順序方式運(yùn)行。也就是說，一旦程序啟動，它就一條指令接一條指令的向前執(zhí)行，直到程序結(jié)束或出 現(xiàn)致命錯誤。 ⑷ 面向?qū)ο缶幊? 使創(chuàng)建 Windows 程序較為容易的關(guān)鍵技術(shù)是面向?qū)ο缶幊蹋?OOP。這種技術(shù)可以創(chuàng)建可重用組建，它是程序的組成模塊。 ⑸ 幾個基本概念 在討論 Visual Basic 時，經(jīng)?？梢月牭竭@些術(shù)語，因此對這些術(shù)語的基本理解十分有幫助。控件提供程序可見界面的可重用對象。控件的示例有文本框、標(biāo)簽和命令按鈕。 事件 由用戶或操作系統(tǒng)引發(fā)的動作。事件的示例有擊鍵、單擊鼠標(biāo)、一段時間的限制，或從端口接收數(shù)據(jù)。 方法 嵌入在對象定義中的程序代碼，它定義對象怎樣處理信息并響應(yīng)某事件。 例如，數(shù)據(jù)庫對象有打開紀(jì)錄集并從一個記錄移動到另一個記錄的方法。 對象 程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識別它可以響應(yīng)的事件的方法?？丶痛绑w是 Visual Basic 中所有對象的示例。 過程 為完成任務(wù)而編寫的代碼段。過程通常用于響應(yīng)特定的事件。 屬性 對象的特征，如尺寸、位置、顏色或文本。屬性決定對象的外觀，有時也決定對象的行為。屬性也用于為對象提供數(shù)據(jù)和從對象取回信息。 數(shù)據(jù)庫簡介 數(shù)據(jù)庫概述 ⑴ 數(shù)據(jù)庫 給數(shù)據(jù)庫下了一個比較完整的定義 ：數(shù)據(jù)庫是存儲在一起的相關(guān)數(shù)據(jù)的集合，這些數(shù)據(jù)是結(jié)構(gòu)化的，無有害的或不必要的冗余，并為多種應(yīng)用服務(wù)；數(shù)據(jù)的存儲獨(dú)立于使用它的程序；對數(shù)據(jù)庫插入新數(shù)據(jù)，修改和檢索原有數(shù)據(jù)均能按一種公用的和可控制的方式進(jìn)行。當(dāng)某個系統(tǒng)中存在結(jié)構(gòu)上完全分開的若干個數(shù)據(jù)庫時，則該系統(tǒng)包含一個 數(shù)據(jù)庫集合 。 ⑵ 數(shù)據(jù)庫的優(yōu)點(diǎn) 使用數(shù)據(jù)庫可以帶來許多好