1. 程式人生 > >FastReport 設定Report中控制元件值並列印

FastReport 設定Report中控制元件值並列印

//啟用列印引數
           sSql:='Select * from BillBHMaster Where MBHNo=' + QuotedStr(sBillNo) + ' and IsPrint=''Y''';
           //這一行為自己寫的函式,根據SQL獲取資料集

           cf_dbSelectSQL(qryExpressPrint,sSql);
           if (not qryExpressPrint.IsEmpty) then
           begin
             qryExpressPrint.First;

             //寄件資訊
             oFindfxView:= frxrprtExpress.FindObject('edtSCompany') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('SendCompany').AsString;

             oFindfxView:= frxrprtExpress.FindObject('edtSLinkMan') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('SendUser').AsString;

             oFindfxView:= frxrprtExpress.FindObject('edtSTel') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('SendTel').AsString;

             //收件資訊.
             oFindfxView:= frxrprtExpress.FindObject('edtDCompany') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('Company').AsString;

             oFindfxView:= frxrprtExpress.FindObject('edtDLinkMan') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('LinkMan').AsString;

             oFindfxView:= frxrprtExpress.FindObject('edtDAddr') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('Addr').AsString;

             oFindfxView:= frxrprtExpress.FindObject('edtDTel') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('Tel').AsString;

             oFindfxView:= frxrprtExpress.FindObject('edtDCargos') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('SendCargos').AsString;

             oFindfxView:= frxrprtExpress.FindObject('edtDCargNums') as TfrxMemoView;
             oFindfxView.Text:=qryExpressPrint.FieldByName('SendQty').AsString;


             //執行預覽
             frxrprtExpress.PrepareReport(false);
             frxrprtExpress.ShowPreparedReport;

           end;

相關推薦

FastReport 設定Report控制元件列印

//啟用列印引數 sSql:='Select * from BillBHMaster Where MBHNo=' + QuotedStr(sBillNo) + ' and IsPrint=''Y'''; //這一行為自己寫的函式,

WPF 獲取 ListView DataTemplate 控制元件

原文: WPF 獲取 ListView DataTemplate 中控制元件值 RT 雖然DataTemplate 是用來繫結的,一般用ONE TWOWAY 來繫結傳遞或獲取資料. 但是今天這個需求真是沒辦法,在繫結的模板內添加了一個非繫結的資料,需要手動取值. 解決方案原理:

如何設定Android控制元件的顏色透明度

1、#ff000000 此為16進位制顏色程式碼, 前2位ff為透明度,後6位為顏色值(000000為黑色,ffffff為白色,可以用ps等軟體獲取)。 2、透明度分為256階(0-255),

【Bootstrap Table】在指定列新增下拉框控制元件獲取所選

背景   最近在使用Bootstrap table ,有一個在某一列新增一個下拉列表,並且通過 “getAllSelections”方法獲取所選行的需求,在實現這個功能的時,走了一些彎路,遇到了一些坑。所以今天總結出來,既是自己的學習,也分享給大家,

ViewPager動態新增XML佈局檔案,獲取XML檔案控制元件ID的操作(inflate)

Step 1: 佈局檔案中新增viewpager和切換頁面button <spanstyle="font-size:18px;"><RelativeLayoutxmlns:android="http://schemas.android.com/apk/res/a

使用Ext.net時如何遍歷Panel或者FormPanelContent標籤下的控制元件進行驗證

前幾天遇到一個比較複雜的表單格式,如果用Ext.net的佈局做起會比較麻煩(Ext.net這個佈局複雜表單一直是讓人不爽的地方)用Table做起來會比較簡單,於是乎使用了Panel的Content標籤。 結構如下:<ext:FormPanel ID="ContentFo

MFC設定static text控制元件的背景色、字型、字號和顏色

在實際的應用中,可以用WM_CTLCOLOR 訊息改變mfc中控制元件的顏色,比如現在就來改變一個static text控制元件的 字型、字型大小、字型顏色和背景色。 例如對話方塊的類為CTestDlg. 1. 在對話方塊的類中新增兩個變數. 方法:在classview選項卡中,選擇CTestDlg,右鍵,

Android控制元件的事件——xml設定對應效果state_[pressed,checked,selected,focused]

本篇文章主要是討論下控制元件的點選事件 一、在Drawable中新增控制元件的backgroundColor樣式(點選切換顏色) 直接貼測試結果了:【在Drawable中建立xml資原始檔,在其中的Selector標籤對中新增樣式(如下黑色截圖)】 ImageButton

Android佈局檔案控制元件的高度與寬度屬性設定

大家都知道,在Android佈局檔案中控制元件的高度與寬度設定時有三個屬性:fill_parent,match_parent,wrap_content。1. fill-parent:        設定一個構件的佈局為fill_parent將強制性地使構件擴充套件,以填充佈局單元內儘可能多的空間。這跟Wind

WPF通過委託跨頁面修改介面控制元件原理完全解析

網上有很多講WPF修改控制元件的,但是大部分都只是程式碼佔據了很大的篇幅,沒有詳細講解過程。所以有了我這篇文章。我希望每一個看到這篇文章的朋友都可以看懂,另外不要被太長的標題嚇到。 通過委託跨頁面修改控制元件,所謂的原理就是,構造一個可以觸發事件A的靜態類,然後對頁面做出

關於android 控制元件位置動態設定的問題

1:動態建立一個控制元件,比如WebView WebView m_mWbView = new WebView(getApplication()); 2:設定layout 引數,使用FrameLayout ,其他的好像動態設定位置都無效 ..... ViewGroup mVi

WPFS資料繫結(要是後臺類物件的屬性發生改變,通知在“客戶端介面與之繫結的控制元件”也發生改變需要實現INotitypropertyChanged介面)

WPFS資料繫結(要是後臺類物件的屬性值發生改變,通知在“客戶端介面與之繫結的控制元件值”也發生改變需要實現INotitypropertyChanged介面) MainWindow.xaml 1 <Window x:Class="WpfApplication1.MainWindow" 2

MFC OnPaint控制元件繪圖,覆蓋重疊的控制元件

對話方塊上又兩個控制元件,一個static控制元件SS_BITMAP屬性,用來繪圖(canvas),一個static控制元件SS_BITMAP屬性,用來顯示圖片(tool),tool和canvas有重疊部分,為了使canvas在重新整理後不至於消失,我在OnPaint中採用雙緩衝繪圖方式重新整理內容

FineReport——獲取控制元件和單元格

分享一下我老師大神的人工智慧教程吧。零基礎,通俗易懂!風趣幽默!http://www.captainbed.net/ 也歡迎大家轉載本篇文章。分享知識,造福人民,實現我們中華民族偉大復興!        

問題解決——MFC SDI程式 CFormView控制元件隨視窗縮放

從來都是做對話方塊程式,這次想做個SDI的程式,想著用一下帶Robbin介面的office2007風格,就不用使用那些花錢的商業控制元件/UI庫了。 如果你不想看我打的文字,可以直接拷走程式碼,自己宣告上定義再略作修改就可以用了,不需大的修改。 -----------------------

vs 2017新增Report Viewer控制元件及簡單應用

安裝完vs2017之後我們進行新增Report Viewer控制元件: 1. 點選Tools -> Extensions and Updates... 2. 在新視窗搜尋欄中輸入rdlc後

Android控制元件AutoCompleteTextView的使用方法和一些屬性

AutoCompleteTextView一些屬性 <!--completionThreshold:它的值決定了你在AutoCompleteTextView至少輸入幾個字元,它才會具有自動提示的功能--> <!--dropDownWidth設定提示框的寬度-

Android RelativeLayout控制元件疊加顯示的問題

問題 在如下幾個場景我們需要控制元件的疊加顯示: 可滑動介面(ScrollView,ListView等)固定一個不會跟隨滑動的控制元件。 設定了visibility屬性的控制元件,當它需要顯示的時候總是顯示在最上層,而又不影響其他控制元件的位置。 碰到這些

修改字串[email protected]&b&c....b的輸出改變b後的字串

修改字串a&b&[email protected]&b&c…中b的值並輸出改變b值後的字串 需求:車輛掃描PDA入庫,每次入庫的時候都要修改入庫單的待入庫數量,入庫單中只有一個a&b:&@a&b&

PreparedStatement設定mysqldatetime的精確到時分秒

1.拿到當前時間 Date now = new Date(); mc.setCrtDate(now); mc.setLastUpdate(now); 2.插入時的操作 pstmt.setTimestamp(7, new Timestamp(m.getCrtDate().getTime