fastreport 在預覽情況下的資料更新 |
尚未結案
|
dreameryeh
一般會員 發表:6 回覆:9 積分:3 註冊:2005-08-17 發送簡訊給我 |
|
chih_kuan
中階會員 發表:38 回覆:82 積分:54 註冊:2003-02-20 發送簡訊給我 |
|
dreameryeh
一般會員 發表:6 回覆:9 積分:3 註冊:2005-08-17 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
FR有這種功能嗎?
===================引 用 dreameryeh 文 章=================== 各位好 在程式的執行中, 我開了一個預覽報表在同個from上,左邊我動態的更新資料庫資料, 右邊要如何動態 的把正確資料給秀在預覽裡呢 我認了很久, 在fastreport裡, 我不管是用frxDBDataset1或是對frxReport1下指令, 預覽看到的一直都是 舊的資料, 我要如何做才能即時的更新預覽內容呢 |
dreameryeh
一般會員 發表:6 回覆:9 積分:3 註冊:2005-08-17 發送簡訊給我 |
版主大大
fastreport 可以自己拉出一個預覽元件 我把預覽放右邊, 自己key 入的欄位放左邊 想要造成左邊key完值後, 右邊把資料立馬show出來 我目前的嚐試資料都異動了, 但預覽部份, 還捉住舊的資料顯示 我試著用指令來重取都沒成功 ShowReport(true); <<===不理采我 ===================引 用 P.D. 文 章=================== FR有這種功能嗎? ===================引 用 dreameryeh 文 章=================== 各位好 在程式的執行中, 我開了一個預覽報表在同個from上,左邊我動態的更新資料庫資料, 右邊要如何動態 的把正確資料給秀在預覽裡呢 我認了很久, 在fastreport裡, 我不管是用frxDBDataset1或是對frxReport1下指令, 預覽看到的一直都是 舊的資料, 我要如何做才能即時的更新預覽內容呢 |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
我知道預覽如何處理, 但我從來不知道一旦FR已開出FRF的內容預覽, 還可以線上直接再變動的功能, 一般都是得關閉再重來, 還是FR新版已可以這樣做了!
===================引 用 dreameryeh 文 章=================== 版主大大 fastreport 可以自己拉出一個預覽元件 我把預覽放右邊, 自己key 入的欄位放左邊 想要造成左邊key完值後, 右邊把資料立馬show出來 我目前的嚐試資料都異動了, 但預覽部份, 還捉住舊的資料顯示 我試著用指令來重取都沒成功 ShowReport(true); <<===不理采我 ===================引 用 P.D. 文 章=================== FR有這種功能嗎? |
dreameryeh
一般會員 發表:6 回覆:9 積分:3 註冊:2005-08-17 發送簡訊給我 |
版大, 這就是我所想要做的, 我把fr開出來, 但想透過程式把資料修正後, 再把fr開閉再開啟一次
希望能看到最近的, 關閉再重來是指他動態開出的預覽, 但我現在是直接開預覽視窗出來 ===================引 用 P.D. 文 章=================== 我知道預覽如何處理, 但我從來不知道一旦FR已開出FRF的內容預覽, 還可以線上直接再變動的功能, 一般都是得關閉再重來, 還是FR新版已可以這樣做了! ===================引 用 dreameryeh 文 章=================== 版主大大 fastreport 可以自己拉出一個預覽元件 我把預覽放右邊, 自己key 入的欄位放左邊 想要造成左邊key完值後, 右邊把資料立馬show出來 我目前的嚐試資料都異動了, 但預覽部份, 還捉住舊的資料顯示 我試著用指令來重取都沒成功 ShowReport(true); <<===不理采我 ===================引 用 P.D. 文 章=================== FR有這種功能嗎? |
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
不曉得您用哪一版fastreport?
還是您能列出你的程式碼,讓大家再幫你看看? 我剛才用3.1X版,小試了一下,是可以的 [code delphi] type TForm1 = class(TForm) ADODataSet1: TADODataSet; ADOConnection1: TADOConnection; frxDBDataset1: TfrxDBDataset; frxPreview1: TfrxPreview; frxReport1: TfrxReport; Button1: TButton; ADODataSet1EmpNo: TIntegerField; ADODataSet1LastName: TWideStringField; ADODataSet1FirstName: TWideStringField; ADODataSet1PhoneExt: TWideStringField; ADODataSet1HireDate: TDateTimeField; ADODataSet1Salary: TFloatField; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var maxval:integer=201; procedure TForm1.Button1Click(Sender: TObject); begin ADODataSet1.Append; ADODataSet1EmpNo.Value:=maxval; ADODataSet1LastName.Value:='test'; ADODataSet1FirstName.Value:='test'; ADODataSet1PhoneExt.Value:='1234'; ADODataSet1HireDate.Value:=Now; ADODataSet1Salary.Value:=20000; frxReport1.ShowReport(); maxval:=maxval 1; end; [/code] 表單環境 [code delphi] object Form1: TForm1 Left = 192 Top = 114 Width = 844 Height = 576 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object frxPreview1: TfrxPreview Left = 32 Top = 208 Width = 777 Height = 289 OutlineVisible = False end object Button1: TButton Left = 184 Top = 24 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 1 OnClick = Button1Click end object ADODataSet1: TADODataSet Active = True Connection = ADOConnection1 CursorType = ctStatic CommandText = 'select * from employee' Parameters = <> Left = 56 Top = 40 object ADODataSet1EmpNo: TIntegerField FieldName = 'EmpNo' end object ADODataSet1LastName: TWideStringField FieldName = 'LastName' end object ADODataSet1FirstName: TWideStringField FieldName = 'FirstName' Size = 15 end object ADODataSet1PhoneExt: TWideStringField FieldName = 'PhoneExt' Size = 4 end object ADODataSet1HireDate: TDateTimeField FieldName = 'HireDate' end object ADODataSet1Salary: TFloatField FieldName = 'Salary' end end object ADOConnection1: TADOConnection Connected = True ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Co' 'mmon Files\Borland Shared\Data\dbdemos.mdb;Persist Security Info' '=False' LoginPrompt = False Mode = cmShareDenyNone Provider = 'Microsoft.Jet.OLEDB.4.0' Left = 64 Top = 88 end object frxReport1: TfrxReport Version = '3.15' DotMatrixReport = False IniFile = '\Software\Fast Reports' Preview = frxPreview1 PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator] PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = '預設' ReportOptions.CreateDate = 39829.595292963000000000 ReportOptions.LastChange = 39829.595292963000000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'begin' '' 'end.') Left = 24 Top = 136 Datasets = < item DataSet = frxDBDataset1 DataSetName = 'frxDBDataset1' end> Variables = <> Style = <> object Page1: TfrxReportPage PaperWidth = 210.000000000000000000 PaperHeight = 297.000000000000000000 PaperSize = 9 LeftMargin = 10.000000000000000000 RightMargin = 10.000000000000000000 TopMargin = 10.000000000000000000 BottomMargin = 10.000000000000000000 object MasterData1: TfrxMasterData Height = 22.677180000000000000 Top = 18.897650000000000000 Width = 718.110700000000000000 DataSet = frxDBDataset1 DataSetName = 'frxDBDataset1' RowCount = 0 object Memo1: TfrxMemoView Left = 15.118120000000000000 Top = 3.779530000000001000 Width = 79.370130000000000000 Height = 18.897650000000000000 DataField = 'EmpNo' DataSet = frxDBDataset1 DataSetName = 'frxDBDataset1' Memo.Strings = ( '[frxDBDataset1."EmpNo"]') end object Memo2: TfrxMemoView Left = 98.267780000000000000 Top = 3.779530000000001000 Width = 158.740260000000000000 Height = 18.897650000000000000 DataField = 'LastName' DataSet = frxDBDataset1 DataSetName = 'frxDBDataset1' Memo.Strings = ( '[frxDBDataset1."LastName"]') end object Memo3: TfrxMemoView Left = 260.787570000000000000 Top = 3.779530000000001000 Width = 120.944960000000000000 Height = 18.897650000000000000 DataField = 'FirstName' DataSet = frxDBDataset1 DataSetName = 'frxDBDataset1' Memo.Strings = ( '[frxDBDataset1."FirstName"]') end object Memo4: TfrxMemoView Left = 389.291590000000000000 Top = 3.779530000000001000 Width = 30.236240000000000000 Height = 18.897650000000000000 DataField = 'PhoneExt' DataSet = frxDBDataset1 DataSetName = 'frxDBDataset1' Memo.Strings = ( '[frxDBDataset1."PhoneExt"]') end object Memo5: TfrxMemoView Left = 427.086890000000000000 Width = 158.740260000000000000 Height = 18.897650000000000000 DataField = 'HireDate' DataSet = frxDBDataset1 DataSetName = 'frxDBDataset1' Memo.Strings = ( '[frxDBDataset1."HireDate"]') end end end end object frxDBDataset1: TfrxDBDataset UserName = 'frxDBDataset1' CloseDataSource = False DataSet = ADODataSet1 Left = 152 Top = 80 end end [/code] |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |