1 使DataWindow列只能追加不能修改
如何使DataWindow中的數據只能追加新記錄而不能修改，利用 Column 的 Protect 屬性可以很方便的做到這一點，方法如下：
將每一列的 Protect 屬性設置爲：
If( IsRowNew(), 0, 1) )
在 PowerScript 中可以動態修改 Protect 屬性：
dw_1.Modify("column_name_here.Protect='1~tIf(IsRowNew(),0,1)'")
這樣，DataWindow 中只有新追加的記錄可修改，而其他記錄是隻讀的。
2 如何在DataWindow中實現列的自動折行
我們在PowerBuilder應用程序的開發過程中, 使用DataWindow時, 經常會遇
到某列的數據太長, 不能同時全部顯示的情況. 若採用自動水平滾動, 操作起
來又不夠簡便. 下面介紹一種方法, 實現列數據多行顯示, 即實現列數據的自
動折行.具體步驟如下:
1) 在DataWindow Painter中打開此DataWindow.
2) 在需設定自動折行的列上雙擊鼠標, 彈開此列的屬性窗口.
3) 選擇Position標籤, 選中Autosize Height 多選框.
4) 選擇Edit標籤, 不選中Auto Horz Scroll多選框.
5) 單擊OK按鈕, 保存所做的修改.
6) 點中Detail Band (即寫有Detail的灰色長帶), 單擊鼠標右鍵, 選擇
Properties... 菜單項.
7) 選中Autosize Height多選框.
8) 單擊OK按鈕, 保存所做的修改.
9) 保存此DataWindow.
注意:
連在一起的漢字(中間沒有標點或空格分隔), 系統將認爲是一個單詞, 不
會自動進行折行.
3 在數據窗口中實現動畫
要實現動畫，必須要有定時器，在數據窗口中已經有了一個定時器，雙擊數據窗口將彈出的對話框，在Timer Interval中定義大於零的值就有定時器（可以精確到毫秒），有了這個定時器就可以實現動畫了。比如要改變某字段的背景顏色，可設
ackgound.color=RGB(Integer(Right(string(now(),'hhmmssf'),1))*256/10,Integer(Right(string(now(),'hhmmssf'),1))*256/10,0)
當然，您不僅可以改變背景顏色，而且可以改變字體等等任何屬性，使他可以動起來！
4 使數據窗口中的被選中行具有更好的外觀
大家都知道，在選擇數據窗口中的某一行時，如果使用pb提供的選擇函數SelectRow()，那麼的外觀真是不能恭維，單調而古板的藍色背景，可能和您的漂亮而生動的應用程序格格不入。有沒有辦法改變呢？當然有囉，請聽我慢慢道來。
改變某一行的背景比較簡單，改變每一列的背景屬性(backgroundcolor)即可，可要根據鼠標選擇情況自動改變，並可以返回被選中的行可能還需要一定的技巧。下面分單行選擇和多行選擇分辨說明。
單行選擇
單行選擇比較簡單，我們只要將所有字段的背景色的表達式改爲：
if(GetRow()=CurrentRow(),RGB(255,126,0),RGB(0,0,0))
其中第一個顏色爲被選中的顏色，第二個顏色未被選中的顏色。然後用GetRow()代替GetSelectedRow()函數來得到被選中的行。
多行選擇
多行選擇比較複雜，如果單純依靠改變數據窗口的屬性沒法實現，我們必須使用數據窗口屬性和代碼結合起來才能實現
首先，改變數據窗口的SQL語句，增加一個計算字段:0 as flag,Select 語句改爲：
Select col1,col2 ,1 as flag from tablename where .....，
當返回數據窗口painter時，您就會發現多了一個字段flag,我們就是利用這個字段保存行被選中的信息。
其次，修改各個字段的背景顏色屬性，設置爲：if(flag=1,RGB(255,126,0),RGB(255,255,255))
第三：在數據窗口控件中，增加對clicked 事件的處理，代碼如下：
if row<1 then return // setredraw(false)
if this.o b j e c t.flag[row]=1 then //如果該行被選中，撤銷選擇，否則選中該行
this.Object.flag[row]=0
else
this.Object.flag[row]=1
end if
setredraw(true)
您還可以定製本選中行的字體，文本屬性等等。原理相同，不再贅述。
5 將日期型字段初始化爲當天的日期
使用 Column Specifications 對話框來設置數據的初始值是一個比較好又比較通用的方法。 爲了將日期型字段初始化爲當天的日期，只要設置初始化值爲today,而不是today()即可。同樣設置初始值爲NUll,可以使用null,而不是 null()。
6 在DataWindow中調整列順序
在 Gird 風格的 DataWindow 中,列的排列順序是按照你選擇 Column 的順序排列的,並且不能改變.要改變列的順序則必須重新制作 DataWindow.
最近我發現一個辦法可以改變列的順序: 在 DataWindow 畫板中打開要修改的 DataWindow,然後按 'Preview' 按鈕切換到預覽模式下,選擇要移動的列標題並拖動到預定位置,然後返回 DataWindow 畫板,存盤即可.
7 Retrieve時不清除原有Datawindow數據
當你調用Retrieve函數，PowerBuilder自動清除原有DataWindow然後Retrieve數據。在Datawindow RetrieveStart事件中，使用Return 2，這樣PowerBuilder不會清除原有數據而是追加新數據。
8 美化DataWindow的顯示效果
使DataWindow 的單雙行顯示顏色不同，不僅僅可以使你的應用程序更顯專業性，並使數據的可讀性增強。先調出你需要改動的DataWindow，在Detail band按下右鍵選擇Properties，選擇Tab頁中的Expressions，在color屬性中輸入下面內容：（注意是在Detail明細顯示 段按右鍵，而不是在Column上) IF(MOD(GETROW(),2)=0,RGB(192, 192, 192), RGB(255, 255, 255)) 馬上Preview一下，看一看效果如何。
9 用Line建立漂亮的Grid DataWindow的技巧
雖然PowerBuilder有Grid風格的DataWindow，但不夠靈活，如果想打印一張邊框粗線條或雙線，內框爲細線條的表格直接使用Grid風 格的DataWindow就不能實現。因此許多人都用Tabular風格的DataWindow，然後自己用Line來實現Grid。 在調整線條位置是一個即傷腦筋又傷眼睛的事件，而一旦需要調整行高，所有工作都得重來，試一試用下面方法，會大大減輕你的工作量： 在vertical lines，改變它的屬性，在Expressions Tab上，y1行上輸入0，y2行上輸入rowheight() - 1 在horizontal lines, 設置 y1 和 y2 = rowheight() - 5 這樣PowerBuilder會自動調整線的座標，你只需要設置橫線的長度和x1,x2的座標即可。 馬上Preview一下，看一看效果！ 你再也不需要因爲行的高度發生改變而重新調整線條位置。
10 如何創建一個報表，如下形式
Quantity Running Total
5,000 5,000
2,500 7,500
3,000 10,500
12,000 22,500
對於Running Total列，我們可使用計算列：CumulativeSum（Quantity for all），即可達到逐漸遞增求和的功能。
11 數據窗口的數據送緩衝區之前確認的四個步驟 判斷數據類型是否正確。如不正確則觸發ItemError事件。判斷數據是否符合有效性規則。如不符合有效性規則，同樣觸發ItemError事件。 判斷是否有數據被改動。判斷數據是否通過ItemChanged事件，如果數據和ItemChanged相斥，將觸發ItemError事件。
12 如何在DataWindow中用數據類型爲Datetime的列爲條件進行查找
1．當要查找的日期條件是一常數時使用如下表達式：
ls_Find = "datetime_col
= DateTime ('1/1/1999')"
2．當要查找的日期條件是一個變量時使用如下的表達式：
ls_Find = "datetime_col = DateTime ('" + ls_Date + "')"
3．當要查找的日期條件是一個DateTime數據類型時使用如下表達式：
ls_Find = "datetime_col = DateTime ('" + String (ldt_DateTime) + "')"
13 設置數據窗口Boolean型屬性的三種方法
PowerBuilder提供了三種方法設置數據窗口的布爾型屬性，分別是True/False, 1/0, 'Yes'/'No'。例如:
dw_1.Object.address.Visible = 0 dw_1.Object.address.Visible = False dw_1.Object.address.Visible = 'No'
PowerBuilder在處理上以字符串的形式保存屬性，而不考慮屬性值是布爾型、長整型或是字符型。
爲了進一步理解，可以導出一個數據窗口並查看它的原碼，可以發現即使是列的顏色屬性它也是使用帶雙引
號的數字來表達。
14 如何在DataWindow中快速刪除多行
在開發過程中可能經常有要進行多行刪除的操作，一般都使用循環語句進行操作：
FOR ll_RowOn = 1 TO dw_1.RowCount() dw_1.DeleteRow(ll_RowOn) NEXT
一個快速的刪除方法是把要刪除的行從主緩衝區中移到刪除緩衝區中。例如，刪除緩衝區中所有的行：
dw_1.RowsMove(dw_1, 1, dw_1.RowCount, Primary!, dw_1, 1, Delete!)
不過不要忘了過濾的行在不同的緩衝區中。
15 如何在DataWindow的SQL語法中不使用SELECT DISTINCT實現刪除重複的行
起先對你要顯示唯一值的列進行排序："city A"，然後增加如下過濾字符串：" city < > city [-1] or GetRow () = 1"
16 如何在分組形式的DataWindow中分別顯示各組的行號
當我們爲Datawindow的每一行顯示行號時，可以簡單的放一個表達式爲GetRow()計算列。但是對於分組的Datawindow，要分別顯示各組的行號，則應使用表達式爲
GetRow() - First(GetRow() for Group 1) + 1的計算列。
17 如何改變列的字體顏色，提醒用戶此列已做修改
在列的Color屬性中，輸入如下表達式
IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。
在這個條件中，如果此列已改變，則顯示紅色字體，否則顯示黑色字體。這個表達式主要用column_name < > column_name.Original比較當前列的值和原始列的值是否相同來達到判斷的目的。
18 在數據窗口中移走行,但不是去做過濾或刪除操作
RowsDiscard()函數可做到這一點,它在數據窗口中執行移除工作,但被移走的行它不可被刪除或做任何修改性的保存。
19 如何在多行顯示的DataWindow 中的Footer Band中顯示當前數據的首行和最後行的行號
我們先看兩個計算列的表達式： IF (GetRow() = First(GetRow() FOR Page), 1, 0) // 1 爲當前頁的第一行
IF (GetRow() < > 1 AND GetRow() = Last(GetRow() FOR Page), 1, 0) // 1 爲當前頁的最後一行
由上面可知，在Footer Band中設置如下計算列表達式：
'Rows ' + String(First(GetRow() FOR Page)) + ' to ' + String(Last(GetRow() FOR Page)) + ' are displayed'。
即可達到這項功能。
20 使可編輯的數據窗口只讀
有時，你可能需要將一個用於編程的數據窗口用作顯示目的，可以有以下幾種方法來實現這一要求：
1.建立兩個數據窗口，一個用於編輯，一個用於顯示
2.將數據窗口中的全部對象的taborder設置爲0.
3.也可以將數據窗口中的列的protect屬性設爲On或Off,但你不能使用protect屬性進行編輯操作
4.數據窗口有一個將datawindow設爲只讀的屬性(readonly)，使用它最方便。
21 數據窗口檢查重複行
dw_1.SetSort ("user_id A")
dw_1.Sort()
dw_1.SetFilter ("user_id = user_id[-1]")
dw_1.Filter()
if dw_1.RowCount() > 0 then
Messagebox("注意", "用戶編碼重複.")
end if
dw_1.SetFilter ("")
dw_1.Filter()
22 如何在分組形式的DataWindow中分別顯示各組的行號
---- 當我們爲Datawindow的每一行顯示行號時，可以簡單的放一個表達式爲GetRow()
---- 計算列。但是對於分組的Datawindow，要分別顯示各組的行號，則應使用表達式爲
GetRow() - First(GetRow() for Group 1) + 1的計算列。
23 如何能讓數據窗口的某幾列在其他列橫拉時固定不動
////////////////////////////////////////////////////////////////
// 功能說明：用於凍結左邊的滾動欄
// 變更記錄: 變更或版本更新的時候
//
////////////////////////////////////////////////////////////////
int i
if pane = 1 then
i = integer(this.o b j e c t.datawindow.horizontalscrollposition2)
if i < 1 or isnull(i) then return
if scrollpos > 0 then
this.o b j e c t.datawindow.horizontalScrollPosition = 0
end if
else
i = integer(this.Object.DataWindow.HorizontalScrollSplit)
if i < 1 or isnull(i) then return
if i > scrollpos then
this.o b j e c t.datawindow.horizontalScrollPosition2 = i
end if
end if
24 在數據窗口中如果要使其中一列的屬性爲只讀，也就是不允許用戶修改，那麼只需簡單地將這一列的Table Order 設置成0就可。然而，在有些情況下
需要對這一列的某些行修改，而某些行不能修改，這就要用到這一列的protect屬性了。打開列的屬性中的Expressions，在protect中輸入條件判別
式。例如：允許用戶修改新增加的記錄，而檢索出來的記錄則不允許修改。條件判別式可以寫成如下：
if(isRowNew(),0,1)
在 PowerScript 中可以動態修改 Protect 屬性：
dw_1.Modify("column_name_here.Protect='1~tIf(IsRowNew(),0,1)'")
這樣，DataWindow 中只有新追加的記錄可修改，而其他記錄是隻讀的。
25 控制DATAWINDOW裏每頁顯示的行數
1、在Datawindow中增加一個計算域，起名爲：ceil_page,此計算域必須放在Detail段中，
Expression中輸入 ceiling(getrow()/25) 25表示每頁打印25行，也可以是一個參數。
2、分組,選擇菜單Rows/Create Group,選擇ceil_page
按ceil_page分組，並選中New Page On Group Break(意思是新組開始時換頁)。
3、將此計算域設爲隱藏(在屬性頁中的expression頁中在visible屬性中寫0)。
4、補空行：
在窗口的open事件中寫如下代碼：
long li_count,li_i
li_count=dw_1.retrieve()
if mod(li_count,25)<>0 then
for li_i=1 to 25 - mod(li_count,25)
dw_1.insertrow(0)
next
end if
26 數據窗口的closeQuery事件:提示保存數據
dw_1.AcceptText()
IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THEN
CHOOSE CASE MessageBox("操作提示","數據已經發生變化,是否保存?",Question!,YesNoCancel!,1)
CASE 1
cb_save.TriggerEvent(clicked!)
CASE 2
Return 0//不做任何操作直接關閉窗口
CASE 3
Return 1//不會運行Close Event,維持原來的情況
END CHOOSE
END IF
27 Getchild函數主要被用來得到一個數據窗口的子數據窗口
該函數在兩種情況下可以使用，1、取出數據窗口對象的下拉式數據窗口；
2、取出複合風格（composite）數據窗口對象裏所嵌入的子數據窗口對象。
語法：integer dwcontrol.GetChild (string name, REF DataWindowChild
dwchildvariable )
例子1 這段程序取出一個composite數據窗口對象的兩個子數據窗口，並對他們進行過濾，和排序的操作。
/*dw_dy是連接一個composite數據窗口對象的一個數據窗口控件。dw_1、dw_2分別是嵌套的數據窗口的NAME*/
String ls_filter
DataWindowChild dwc_czrw,dwc_czx//定義子數據窗口變量
dw_dy.Settranso b j e c t(sqlca)
dw_dy.Retrieve()
dw_dy.GetChild("dw_2",dwc_czrw)
dw_dy.Getchild("dw_1",dwc_czx)
ls_filter = "czrw_bh = '"+dw_3.GetItemString(dw_3.GetRow(),"czrw_bh")+"'"//過濾條件
dwc_czrw.SetFilter(ls_filter)
dwc_czrw.Filter()
ls_filter = "czx_rwbh = '"+dw_3.GetItemString(dw_3.GetRow(),"czrw_bh")+"'"
dwc_czx.SetSort("czx_sx A")
dwc_czx.Sort()
dwc_czx.SetFilter(ls_filter)
dwc_czx.filter()
當然也可以通過數據共享(ShareData)等方式操作子數據窗口中的數據。
訪問複合數據窗口對象.方法 ：dw_dy.o b j e c t.dw_1.o b j e c t.對象
例子2 下拉數據窗口動態過濾
在數據窗口dw_1的ItemFocusChanged事件中寫入如下腳本：
Integer rtncode
String ls_nowFld,ls_deptid,ls_sql
DataWindowChild fld_child
rtncode = dw_1.GetChild("Unit_id",fld_child) //獲得Unit_id字段名下拉數據窗口的句柄
If rtncode = -1 Then MessageBox("錯誤!", "不是下拉數據窗口!")
fld_child.SetTransObject(SQLCA) //設置事務對象
ls_sql = Lower(fld_child.GetSQLSelect())// 獲得DDDW的SQL語句
// 去除Sql 語句中的Where條件子句， 如原Sql 語句中須有Where條件子句，此處則需進行較
//複雜的處理，應視具體情況而定。
if Pos(ls_sql, " where ")>0 then ls_sql = Left(ls_sql,Pos(ls_sql, " where "))
//重新設置Sql 語句中的Where條件子句
ls_deptid=dw_1.Object.dept_id[GetRow()] //取得當前dept_id選定值
ls_sql = ls_sql + " Where dept_id = '" +Trim(ls_deptid)+"'"
//重新設置Sql 語句
fld_child.SetSQLSelect(ls_sql)
fld_child.Retrieve()//取得滿足條件的數據
28 從數據窗口中獲取數據
單條：假設我們要讀取dept_id字段的第一筆數據，可以用下列方式表示∶li_id = dw_1.o b j e c t.dept_id[1]
假設我們要讀取第一行中第二個字段的數據，可以用下列方式表示∶ls_name = dw_1.o b j e c t.DATA[1,2]
假設我們要讀取dept_id字段的所有數據，可以用下列方式表示∶li_array = dw_1.o b j e c t.dept_id.CURRENT
假設我們要讀取過濾緩衝區 (filter buffer) 內dept_id字段的第一筆數據，可以用下列方式表示∶li_id = dw_1.o b j e c t.dept_id.Filter
[1]
假設我們要讀取從第二筆數據的第一個字段到第三筆數據的二個字段之間的數據，表示∶lstr_array = dw_1.o b j e c t.DATA[2,1,3,2]
假設我們要讀取整個第二筆的數據，可以用下列方式表示∶lstr_dept = dw_1.o b j e c t.DATA[2]
使用GetItemX ( )函數 x爲string number等
lstr_name = dw_1.getitemstring (li_count , "emp_name") li_count爲哪一條
多條：string ls_name[ ]
ls_name = dw_ 1.o b j e c t.emp_name.current
數據的讀取 一般格式∶數據窗口控件.Retrieve ( ) 返回個數 ，-1爲錯誤
增加數據 數據窗口控件.InsertRow (行數) 參數爲0加到最後
數據的刪除 數據窗口控件.Deleterow (行數)
數據的過濾l 數據窗口控件.SetFilter (條件字符串).
數據窗口控件.Filter ( ) 用法∶將主要緩衝區 (Primary Buffer) 內不符合過濾條件的數據移到過濾緩衝區 (Filter Buffer)
內。
例子：string ls_exp ls_exp = "dept_id = 100" dw_1.SetFilter (ls_exp) dw_1.Filter ( )
排序 dw_1.SetSort ("dept_id") dw_1.Sort ( )
將數據從所有的緩衝區 (Buffer) 中清除 dw_1.ReSet ( )
計算數據數目。例如∶dw_1.Rowcount ( ) 類似： .DeletedCount ( ) .ModifiedCount ( ) .FilteredCount ( )
數據窗口的滾動 數據窗口控件.ScrollToRow (行數)
29 數據窗口屬性改變：
描述數據窗口對象本身顏色，可以表示如下∶long ll_color ll_color = dw_emplist.Describe ("DataWindow.Color")
描述數據窗口對象內標題 dept_id_t 的顏色，可以表示如下∶long ll_color ll_color = dw_emplist.Describe ("dept_id_t.Color")
修改數據窗口對象本身顏色，可以表示如下:dw_emplist.Modify ("DataWindow.Color = 255")
修改數據窗口對象內標題 dept_id 的顏色，可以表示如下∶dw_emplist.Modify ("dept_id_t.Color = 255")
假設當我們希望在程序運行階段纔給予下行條件∶薪水超過 50000 時顯示紅色，低於 50000 時顯示黑色。程序的寫法如下∶
ls_modstring = "Salary.Color = '0~tIf (Salary > 50000，255，0) '"
dw_1.modify (ls_modstring)
30 得到當前鼠標所指對象所在的帶區
string str_band
str_band=GetBandAtPointer() //得到當前鼠標所指對象所在的帶區
str_band=left(str_band,(pos(str_band,'~t') - 1))//得到"header"、"detail"等
if str_band<>'header' then return //單擊非頭區，退出
31 得到鼠標指向的列對象名
str_o b j e c t=GetObjectAtPointer() //得到當前鼠標所指對象名
str_o b j e c t=left(str_o b j e c t,(pos(str_o b j e c t,'~t') - 1))
//得到列對象名(默認爲列名_t爲列標題)
str_column=left(str_o b j e c t,(len(str_title) - 2))
//判斷該名稱是否爲列名字
if this.describe(str_column+".band")='!' then return //非是列名，即列標題不是按正常規律起名的。
32 得到當前行、列，總行、列 //this 針對數據窗口而言
li_col = this.GetColumn()
li_ColCount = long(describe(this,"datawindow.column.count"))
ll_row = this.GetRow()
ll_RowCount = this.RowCount()
//設置當前行、列
scrolltorow(this,ll_Row)
setrow(this,ll_Row)
setcolumn(this,li_col)
this.SetFocus()
33得到所有列標題
ll_colnum = Long(dw_1.o b j e c t.datawindow.column.count)
for i = 1 to ll_colnum
//得到標題頭的名字
ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
ls_value = dw_1.describe(ls_colname + ".text")
next
34 如何用代碼取得數據窗口彙總帶計算列的值?
String ls_value
ls_value = dw_1.Describe("Evaluate("'compute_1',1)")
如果是數值型，要轉換。
35 取得單擊的列標題、列名、數據庫字段名
string ls_dwo
long ll_pos
string ls_type
string ls_title
string ls_column
string ls_dbname
if Not KeyDown(KeyControl!) then return
ls_dwo = dwo.Name
if trim(ls_dwo) = '' or isnull(ls_dwo) then return
ls_type = This.describe(ls_dwo + '.type')
if ls_type = 'column' then
ls_title = This.describe(ls_dwo + '_t.text')//標題
ls_column = This.describe(ls_dwo + '.Name') //數據窗口列名
ls_dbname = This.describe(ls_dwo + '.dbname') //數據庫中字段名
messagebox('信息', '標 題 文 本 ：' + ls_title + &
'~r~n數據窗口列名 ：' + ls_column + &
'~r~n數據庫中字段名：' + ls_dbname )
end if
36 窗口爲w_gcde內，放入一個DW_1，如何得到dw_1內的某列值yuonghu_id列的內容
方法：
long lng_column_count
integer i
string str_column[] //列名
string str_column_text[] //text的名字
//得到數據窗口的總列數
lng_column_count = long(dw_1.Describe("DataWindow.Column.Count"))
//循環依次讀取
for i = 1 to lng_column_count
str_column[i] = dw_1.Describe("#"＋string(i)＋".name")
str_column_text[i] = dw_1.Describe(str_column[i] ＋ "_t.text")
next
37 在DDDW中實現當前高亮行隨鼠標移動
DataWindowChild ldwc_Child
String ls_Pointer
Long ll_Row
GetChild( "dept_id", ldwc_Child ) // Replace the column name "dept_id" as you needed
IF hwndchild = Handle( ldwc_child ) THEN
if notificationcode = 2311 then //DDDW的mousemove事件
//得到鼠標所在行
ls_Pointer = ldwc_Child.GetObjectAtPointer()
ll_Row=Long( Mid( ls_Pointer, Pos( ls_Pointer, "~t" ) + 1 ))
//移到鼠標所在行
IF ldwc_Child.GetRow() <> ll_Row AND ll_Row > 0 THEN
ldwc_Child.ScrollToRow( ll_Row )
END IF
end if
END IF
38 實現打印完一個DataWindow後不換頁
首先將datawindow的print輸出到一個打印文件中，把其他的print也輸入這個prn，然後,打印這個打印文件就行了。
如：
datawindow_control1.object.datawindow.print.filename="c:/printfilepath/exam_1.prn"
datawindow_control2.object.datawindow.print.filename="c:/printfilepath/exam_1.prn"
dw_1.print()
dw_2.print()
run("print //d://printservename/sharename "c:/printfilepath/exam_1.prn")
//d://printservename/sharename打印機名
