注意：要配置xsd架構，和對應的強型別的dataset
private
sub form1_load(byval sender as
object, byval e as system.eventargs) handles
mybase.load
dim conn as
new sqlconnection("server=localhost;database=northwind;uid=sa;pwd=123")
dim cmd1 as
new sql***mand("select * from orders where orderid<=10251", conn)
dim cmd2 as
new sql***mand("select * from [order details] where orderid<=10251", conn)
dim sqldpr1 as
new sqldataadapter(cmd1)
dim sqldpr2 as
new sqldataadapter(cmd2)
conn.open()
sqldpr1.fill(ds2, "orders")
sqldpr2.fill(ds2, "order details")
conn.close()
dim report as
new crystalreport2()
report.setdatasource(ds2)
dim gettextobject as textobject
' 按名稱獲取reportobject，將其轉換為textobject，並返回此物件。
gettextobject = report.reportdefinition.reportobjects.item("my001")
gettextobject.text = "***x
系統"me.crystalreportviewer1.reportsource = report
endsub
private
sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
dim r as crystalreport2 = ctype(me.crystalreportviewer1.reportsource, crystalreport2)
dim gettextobject as textobject
' 按名稱獲取reportobject，將其轉換為textobject，並返回此物件。
gettextobject = r.reportdefinition.reportobjects.item("my001")
'messagebox.show(gettextobject.text)
endsub
列印報表的表體
function treportform.printpagereport2 sender tobject var pagenum integer boolean begin with sender as tbasereport do begin setfont times new roman 12 ...
kbmMW 實現主從關係表的方法
環境 delphi xe10.2.2 kbmmw5.02 unidac7.02 fb3.0 在日常應用中，我們經常會用到主 從 master detail 關係表，如客戶與訂單 角色與許可權等。在 kbmmw 中實現mater detail 關係表的方法有兩種，各有優缺點。下面是我實現這兩個方法的過...
報表中顯示多個表的欄位
水晶報表使用經驗 在報表中顯示多個表的欄位 通過表關聯 舉個簡單的例子 員工表 員工編號?員工姓名?部門編號 部門表 部門編號 部門名稱 要求是 select 員工表.員工姓名,部門表.部門姓名 from 員工表,部門表 where 員工表.部門編號 部門表.部門編號 操作步驟 列舉幾個比較重要 也...
主從表設計和程式設計的幾種實現辦法
主從表操作是資料庫相關程式設計中繞不過去的技術之一。為了減少資料冗餘 滿足資料庫的正規化要求，必需考慮建立主表和從表，從以外來鍵關聯。主從表可以看做是對母表進行縱向切割而得到的。由於表個數的增加，和外來鍵關係的存在 關係型資料庫 的名稱就是從這裡來的吧？使操作主從表比操作單表複雜了很多。程式設計的複...
資料庫查詢優化 主從表的設計
寫過許多的資料庫查詢語句，面對過許多的問題，也在磕磕碰碰中學到了很多東西。昨天在看系統資料庫設計與sql 時，突然 發現 了許多平常不屑看到的問題，於是就萌生了把它提出來思考的念頭 舉一個例子，我現在有一些新聞資訊，它包括這些欄位 新聞id，新聞name，新聞shortintro，新聞detail，...