【正文】 tring (ls_startupfile, database, database, ) 　　 = ProfileString (ls_startupfile, database, userid, ) 　　 = ProfileString (ls_startupfile, database, dbpass, ) 　　 = ProfileString (ls_startupfile, database, logid, ) 　　 = ProfileString (ls_startupfile, database, LogPassWord, ) 　　 = ProfileString (ls_startupfile, database, servername, ) 　　 = ProfileString (ls_startupfile, database, dbparm, ) 　　connect。 現(xiàn)在按Run圖標(biāo)運(yùn)行該程序，結(jié)果如下圖。為簡(jiǎn)化程序，我們只加入了多媒體中的圖片字段，成功后，讀者可自已增加動(dòng)畫(huà)，聲音字段。 temp2=temp+.bmp =temp2 () run(c:\ c:\,normal!) 這些都是很有用的函數(shù)，但數(shù)據(jù)多而雜時(shí)，它們就會(huì)顯得力不從心了，因?yàn)槭褂盟鼈儠r(shí)，多媒體數(shù)據(jù)并沒(méi)有內(nèi)置于數(shù)據(jù)庫(kù)之中，也就是說(shuō)數(shù)據(jù)庫(kù)內(nèi)并沒(méi)有它們的字段，想想看，假若數(shù)據(jù)庫(kù)的所有字段都用變量來(lái)代替的話，我想任何人看了都會(huì)頭大！ 167。PB提供了一個(gè)運(yùn)行外部程序的函數(shù)Run，其調(diào)用格式為Run(String{，WindowState})。其中String為要運(yùn)行的應(yīng)用程序文件名及其所需參數(shù)。WindowState為應(yīng)用程序運(yùn)行的窗口的狀態(tài)，例如Run(“D：\Fli\ ”，Maximized)。但是如果我們想通過(guò)文件對(duì)話框選擇所需運(yùn)行的程序，，這時(shí)，由于Run函數(shù)只能運(yùn)行指定的程序，因而用上述方式就無(wú)法實(shí)現(xiàn)。不過(guò)，我們可以用下述方法來(lái)實(shí)現(xiàn)：首先定義一個(gè)字符串型變量Getfile，用它來(lái)表示通過(guò)文件對(duì)話框打開(kāi)的文件名，然后再定義一個(gè)字符串變量Isthisfile，再令I(lǐng)sthisfile=“”＋Getfile。最后用函數(shù)Run(Isthisfile，Maximized)即可上述方法的原理是由于Run函數(shù)內(nèi)不能傳遞參數(shù)，所以只能運(yùn)行指定的程序，因而不能直接運(yùn)行通過(guò)對(duì)話框選擇的程序，在上述方法中，我們通過(guò)字符串型變量的賦值，使通過(guò)對(duì)話框選取的文件名成為指定的文件名，從而可以調(diào)用Run函數(shù)來(lái)運(yùn)行它。第四章 系統(tǒng)程序設(shè)計(jì)167。 主程序代碼設(shè)計(jì)通過(guò)對(duì)整個(gè)系統(tǒng)的分析和設(shè)計(jì)，可以把系統(tǒng)的主界面的程序代碼寫(xiě)入，當(dāng)寫(xiě)入主程序代碼的時(shí)候我門(mén)就可以登錄主窗口了。程序代碼如下：應(yīng)用程序CLOSE事件中代碼//恢復(fù)默認(rèn)數(shù)據(jù)庫(kù)的注冊(cè)表鍵值RegistrySet( HKEY_LOCAL_MACHINE\software\ODBC\ODBC Drivers, amp。 Adaptive Server Anywhere , RegString!, Installed) RegistrySet( HKEY_LOCAL_MACHINE\software\ODBC\Adaptive Server Anywhere , amp。 Driver,regstring!,g_binpath+\data\) RegistrySet( HKEY_LOCAL_MACHINE\software\ODBC\Adaptive Server Anywhere , amp。 setup,regstring!,g_binpath+\data\) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\ODBC Data Sources, amp。 pjty,regstring!,Adaptive Server Anywhere ) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 autostop,regstring!,yes) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 description,regstring!,databasepjty) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 driver,regstring!,g_binpath+\data\) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 databasename,regstring!,pjty)RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 enginename,regstring!,databasepjty)RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 Start,regstring!,g_binpath+\data\ m c 2m) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 databasefile,regstring!,g_binpath+\data\) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 pwd,regstring!,sql) RegistrySet( HKEY_CURRENT_USER\Software\ODBC\\pjty, amp。 uid,regstring!,dba)destroy g_api應(yīng)用程序初始化OPEN事件中的代碼連接數(shù)據(jù)庫(kù)// Profile pjty = ODBC = False = ConnectString=39。DSN=pjty。UID=dba。PWD=sql39。,DelimitIdentifier=39。No39。connect。//得到當(dāng)前的路徑GetCurrentDirectoryA(200,g_binpath)g_binpath=trim(g_binpath)g_api = create lht_nvo_apiselect fd_bz into :gs_bj from t_cs where fd_xh=39。139。if gs_bj=39。39。 or isnull(gs_bj) then gs_bj=39。39。//打開(kāi)主窗口open( w_TEST )//打開(kāi)登錄窗口//open(w_select_ch)open(w_main_login)167。 數(shù)據(jù)庫(kù)連接powerbuilder主要是進(jìn)行數(shù)據(jù)庫(kù)的前端開(kāi)發(fā)工具，那么它后臺(tái)必然要掛接數(shù)據(jù)庫(kù)。對(duì)于一個(gè)已存在的數(shù)據(jù)庫(kù)，它的掛接主要有兩種方式：對(duì)于一個(gè)已經(jīng)存在的數(shù)據(jù)庫(kù)，我們可以通過(guò)運(yùn)行Windows95(98)控制面板中的odbc工具或者選擇Power Bar中的Configure ODBC工具實(shí)現(xiàn)。啟動(dòng)Configure ODBC畫(huà)板后，對(duì)話框如下：如果數(shù)據(jù)庫(kù)是Sybase SQL Anywhere ,則我們?cè)贗nstalled Drivers列表框中選擇Sybase SQL Anywhere ，這時(shí)在Data Sources(數(shù)據(jù)源)列表框?qū)@示所有已建立的數(shù)據(jù)源。選擇Create按鈕，創(chuàng)建一個(gè)新的數(shù)據(jù)源,程序?qū)⒊霈F(xiàn)如下對(duì)話框：data source name數(shù)據(jù)源名稱description 　　數(shù)據(jù)庫(kù)說(shuō)明User ID 　　　　連結(jié)數(shù)據(jù)庫(kù)的用戶ID 默認(rèn)的管理用戶為:dbaPassword　　　　用戶password 　　　　　　　　口令:sqlDatabase File 　數(shù)據(jù)庫(kù)名稱可以按Browse..，系統(tǒng)將會(huì)用數(shù)據(jù)庫(kù)名作為默認(rèn)的數(shù)據(jù)源名稱，當(dāng)然，可以修改成你指定的數(shù)據(jù)源名。輸入完后，按OK按鈕。系統(tǒng)將建立對(duì)應(yīng)數(shù)據(jù)庫(kù)的數(shù)據(jù)源和數(shù)據(jù)庫(kù)描述文件（db Profile），其中的數(shù)據(jù)庫(kù)描述文件是系統(tǒng)自動(dòng)生成的。要啟動(dòng)后臺(tái)數(shù)據(jù)庫(kù)，可以在Power Bar上單擊Db |要啟動(dòng)的數(shù)據(jù)庫(kù),然后按connect按鈕，系統(tǒng)將自動(dòng)啟動(dòng)后臺(tái)數(shù)據(jù)庫(kù)服務(wù)器引擎以啟動(dòng)你指定的數(shù)據(jù)庫(kù).通過(guò)專(zhuān)用接口連結(jié)后臺(tái)數(shù)據(jù)庫(kù)，可以明顯提高速度。我們以sybase system 11數(shù)據(jù)庫(kù)為例，說(shuō)明一下通過(guò)專(zhuān)用接口掛接數(shù)據(jù)庫(kù)的過(guò)程。⑴服務(wù)器安裝sybase system 11，客戶機(jī)安裝open client.⑵通過(guò)sybase工具sql edit連通客戶機(jī)與服務(wù)器⑶進(jìn)入powerbuilder環(huán)境。選擇Power bar上的Db Profile按鈕.⑷ Profile Setup對(duì)話框?！、蛇x擇SYC sybase system 11 ，則在此選擇其它?！、蔰atabase Name數(shù)據(jù)庫(kù)名稱　server name 后臺(tái)服務(wù)器名稱　Login ID　　用戶名 ⑺單擊OK,返回db profiles對(duì)話框⑻按connect連結(jié)后臺(tái)數(shù)據(jù)庫(kù)這樣powerbuilder就與sybase數(shù)據(jù)庫(kù)建立了連結(jié).167。 Sybase SQL Anywhere數(shù)據(jù)庫(kù)管理 SQL命令工具的使用Sybase SQL Anywhere數(shù)據(jù)庫(kù)包含了一個(gè)交互式SQL命令解釋器ISQL。有時(shí)，直接用SQL命令來(lái)操縱數(shù)據(jù)庫(kù)，速度要比用Sybase圖形界面工具高得多。 ：選中要操作的數(shù)據(jù)庫(kù)db_alias1→單擊右鍵，彈出快捷選單→單擊“打開(kāi)ISQL”項(xiàng)→彈出ISQL界面，共有3個(gè)小窗口：數(shù)據(jù)窗口、狀態(tài)窗口、命令窗口→在命令窗口里輸入SQL命令，單擊“執(zhí)行”按鈕，即可在“數(shù)據(jù)窗口”里顯示命令結(jié)果，同時(shí)“狀態(tài)窗口”也會(huì)顯示一些系統(tǒng)提示信息。 幾個(gè)隱含功能： 在“文件”選單中選“打開(kāi)”，可以將事先編輯好的SQL命令過(guò)程調(diào)入，以批處理的方式執(zhí)行。 在“編輯”選單中選“插入”，可以看到當(dāng)前數(shù)據(jù)庫(kù)所包含的表的名稱及其字段信息。 在“命令”選單中選“重新調(diào)用”，可以看到歷史命令列表，從中點(diǎn)取一個(gè)，ISQL自動(dòng)將其粘貼進(jìn)命令窗口等待編輯或執(zhí)行，省去了重新錄入的麻煩。 數(shù)據(jù)庫(kù)表的導(dǎo)出 一個(gè)SQL Anywhere數(shù)據(jù)庫(kù)往往包含上百個(gè)二進(jìn)制格式的二維表。為了便于備份和管理，DBA經(jīng)常需要將其導(dǎo)出存為文本格式。SQL Anywhere支持兩種形式的數(shù)據(jù)庫(kù)表導(dǎo)出： 1. 數(shù)據(jù)庫(kù)停止?fàn)顟B(tài)下二維表的離線導(dǎo)出。這種形式的導(dǎo)出，比較安全完整，DBA可以在服務(wù)器比較空閑、無(wú)人使用數(shù)據(jù)庫(kù)時(shí)進(jìn)行。 2. 數(shù)據(jù)庫(kù)正在運(yùn)行時(shí)二維表的在線導(dǎo)出。這種形式的導(dǎo)出，DBA可以隨時(shí)進(jìn)行，便于為數(shù)據(jù)庫(kù)的當(dāng)前狀態(tài)保存一個(gè)“快照”。3. 操作步驟為：進(jìn)入SQL控制中心窗口→在左窗格單擊SQL Anywhere實(shí)用工具項(xiàng)→在右窗格列出當(dāng)前可用的實(shí)用工具→選擇Unload工具→出現(xiàn)導(dǎo)出詢問(wèn)窗口，選擇離線導(dǎo)出或在線導(dǎo)出。若是離線導(dǎo)出，用“瀏覽”按鈕選擇物理數(shù)據(jù)庫(kù)文件名；若是在線導(dǎo)出，錄入數(shù)據(jù)庫(kù)服務(wù)器名、數(shù)據(jù)庫(kù)名。 然后，單擊“下一步” →以DBA名義登錄→，用于以后的重新導(dǎo)入，您可以給它改名。單擊“下一步”→出現(xiàn)導(dǎo)出位置選擇窗口。一種是內(nèi)部導(dǎo)出，導(dǎo)出文件放在網(wǎng)絡(luò)服務(wù)器端；另一種是外部導(dǎo)出，導(dǎo)出文件放在網(wǎng)絡(luò)客戶端。需要DBA根據(jù)網(wǎng)絡(luò)和存儲(chǔ)設(shè)備的負(fù)載情況進(jìn)行選擇。系統(tǒng)將在指定位置下自動(dòng)創(chuàng)建一個(gè)名為“UNLOAD”的文件夾，用于存放導(dǎo)出文件。單擊“下一步”，出現(xiàn)導(dǎo)出內(nèi)容選擇窗口。可以選數(shù)據(jù)和結(jié)構(gòu)全部導(dǎo)出，也可選只導(dǎo)出數(shù)據(jù)或結(jié)構(gòu)。單擊“下一步” →出現(xiàn)“確認(rèn)”對(duì)話窗，如有需要更改的選項(xiàng)，單擊“上一步”退回修改，否則，單擊“完成”→出現(xiàn)導(dǎo)出狀況動(dòng)態(tài)顯示窗口，實(shí)時(shí)顯示某個(gè)數(shù)據(jù)庫(kù)表正在被導(dǎo)出。需要注意的是，導(dǎo)出的文件主名由SQL Anywhere自行編號(hào)設(shè)定，和表名不一定相同，其后綴為dat，可用文本編輯器打開(kāi)。 數(shù)據(jù)庫(kù)的壓縮/解壓縮 通常，SQL數(shù)據(jù)庫(kù)文件的體積都比較大，幾百M(fèi)B一個(gè)文件并不稀奇。所以，如果不進(jìn)行壓縮，備份起來(lái)費(fèi)時(shí)費(fèi)力，比較麻煩。幸好，SQL Anywhere自帶了數(shù)據(jù)庫(kù)壓縮工具，而且效率也很高，一般可壓縮掉70%以上。 1. 壓縮比較快捷的方法是：在MSDOS方式窗口中，直接使用dbshrink壓縮命令。格式為：dbshrink 〈要壓縮的數(shù)據(jù)庫(kù)文件名〉 。，鍵入：dbshrink C:\test\db\提示：將C:\test\db\:\test\db\，然后自動(dòng)進(jìn)入壓縮過(guò)程,。還有一種方法,利用SQL控制中心圖形界面工具。選中SQL Anywhere實(shí)用工具項(xiàng)→選擇“壓縮數(shù)據(jù)庫(kù)”項(xiàng)目→彈出“壓縮SQL Anywhere 數(shù)據(jù)庫(kù)”窗口→按“瀏覽”按鈕選擇要壓縮數(shù)據(jù)庫(kù)文件C:\test\db\→在“壓縮文件命名”選擇默認(rèn)文件名C:\test\db\→在確認(rèn)窗口單擊“確定”即可。 2. 解壓縮同樣地，比較快捷的方法是：使用dbexpand解壓縮命令，其格式為：dbexpand 〈壓縮文件名〉 。 ，鍵入dbexpand C:\test\db\。這時(shí)，屏幕出現(xiàn)：將C:\test\db\:\test\db\，同時(shí) 提示：C:\