二 查詢系統的制作
制作從鍵盤輸入記錄號可查詢到該人的檔案記錄
①制作查詢窗口步驟為鼠標點按Window圖標新建一窗口在窗口中添加一個DataWindow控件在DataWindow控件上按鼠標右鍵選擇並單擊Properties快捷菜單項在在Datawindow object name旁按Browse按鈕選擇裝入前面制作的aaa數據窗口調整好窗口的大小再在窗口上放一SingleLineEdit控件和一CommandButton按鈕控件點中按鈕控件並按右鍵選擇Properties 將其顯示文本修改為查詢按鈕名稱仍為cb_點中按鈕控件並按右鍵選擇Script…輸入以下腳本
dw_settransobject(sqlca)
dw_retrieve(sle_text)
關閉並保存按Save圖標保存該窗口窗口取名為aaa
②將查詢窗口連接入test應用程序內點按Application圖標出現test應用程序雙擊test出現名為w_genapp_frame的窗口圖標這是應用程序為我們提供的主窗口的名字點按w_genapp_frame不放按右鍵選edit出現該主窗口將一按鈕控件放入該窗口按鈕顯示的文本可改為唯一查詢也可省略不改點中該按鈕控件並按右鍵選擇Script…輸入open(aaa)保存點按Application圖標再按script圖標出現應用程序的自動生成的主體腳本部分內容如下它的任務是將數據庫初始化相當於winini假若不要應用程序的模板則下面的腳本需自己輸入而使用模板後現在我們只需將//connect前面的注釋號//符號刪除即可除省事外還避免了因為排版引起的下面的程序格式錯誤(本人經常因為書中個別字母印刷錯或排版引起的程序格式錯誤造成程序無法運行而痛心不已)
sqlcaDBMS = ProfileString (ls_startupfile database dbms )
sqlcadatabase = ProfileString (ls_startupfile database database )
sqlcauserid = ProfileString (ls_startupfile database userid )
sqlcadbpass = ProfileString (ls_startupfile database dbpass )
sqlcalogid = ProfileString (ls_startupfile database logid )
sqlcalogpass = ProfileString (ls_startupfile database LogPassWord )
sqlcaservername = ProfileString (ls_startupfile database servername )
sqlcadbparm = ProfileString (ls_startupfile database dbparm )
connect;
現在按Run圖標運行該程序結果如下圖為簡化程序我們只加入了多媒體中的圖片字段成功後讀者可自已增加動畫聲音字段
討論假若多媒體的字段和數據個數比較少也可用變量和函數來解決如
temp=temp+bmp
p_picturename=temp
ole_insertfile(sampleavi)
run(c:\acdseeexe c:\aabmpnormal!)
這些都是很有用的函數但數據多而雜時它們就會顯得力不從心了因為使用它們時多媒體數據並沒有內置於數據庫之中也就是說數據庫內並沒有它們的字段
From:http://tw.wingwit.com/Article/program/SQL/201311/16400.html