|
○VB.netでクリスタルレポート |
|
|
|
|
|
|
|
|
|
|
|
|
|
①データセットの追加 |
|
|
|
ファイル→新しい項目の追加を選択します |
|
|
データセットを選択して開くボタンを押します |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
このような感じになりますので画面中央にelementをドラッグアンドドロップします |
|
|
|
|
|
a b という項目を追加しました |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
とりあえずここで、 |
|
|
ビルド→ソリューションのビルドをしておきます。 |
|
|
|
②クリスタルレポートの追加 |
|
|
|
|
ファイル→新しい項目の追加を選択します |
|
|
Crystal レポートを選択して開くボタンを押します |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
空のレポートを選択してOKボタンを押します |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
以下のような感じになると思いますので、フィールドエクスプローラのデータ―ベースフィールドを選択して |
|
|
データ―ベースの追加と削除を選択します |
|
|
注)フィールドエクスプローラが表示されていないときは、表示→その他のウィンドウ→ドキュメントアウトライン で表示されます。 |
|
|
|
|
その他のデータソースのADO.NET(XML)をダブルクリックします |
|
|
|
|
|
先方作成したデータセットを指定して完了ボタンを押します |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
上で追加したデータセットを選択してOkを押します |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ドラッグアンドドロップで値を表示したい位置に貼り付けます |
|
|
|
|
|
ツールボックスのテキストオブジェクトなどを利用し、帳票の形を整えます |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
③Viewerの作成 |
|
|
|
|
フォームにCrystalReportViewerを貼り付けます |
|
|
|
|
|
プログラム中で以下のコードを実行させます |
|
|
|
Dim ds As New
Dataset1() |
|
|
Dim tr As
Dataset1.element1Row |
|
|
Dim i As Integer |
|
|
For i = 0 To 100 |
|
|
tr = ds.element1.NewRow() |
|
|
|
tr.BeginEdit() |
|
|
tr.a = "aaa" |
|
|
tr.b = i.ToString |
|
|
tr.EndEdit() |
|
|
ds.element1.Rows.Add(tr) |
|
|
Next |
|
|
|
Dim reportObj As New
CrystalReport1() |
|
|
reportObj.SetDataSource(ds) |
|
|
CrystalReportViewer1.ReportSource = reportObj |
|
|
|
実行すると上のコードで指定した値が帳票として表示されます。 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
■VisualStudio.net 2002 で用紙を横向きで印刷 |
|
|
|
プレビューウインドウを表示させ、そこから印刷すると、プリンタの用紙設定がデフォルトになり、 |
|
|
うまく横向きに印刷できないみたいですので、プレビューを表示させずに、印刷を行います |
|
|
|
reportObj.PrintOptions.PaperOrientation
= CrystalDecisions.[Shared].PaperOrientation.Landscape |
|
|
reportObj.PrintToPrinter(1,
False, 0, 0) |
|
|
|
ビューア表示部分を上記２行と置き換える事により印刷が開始されます |
|
|
|
■クリスタルレポートにエレメント名で書き込む |
|
|
|
tr.Item("a") =
"aaaaa" |
|
|
tr.Item("b") =
"bbbbb" |
|
|
|
|
|
以上のようにアクセスすると、次のコードと同じように文字を書き込めます |
|
|
|
tr.a = "aaaaa" |
|
|
tr.b ="bbbbb" |
|
|
|
■VisualStudio.net 2002 での配布のためのセットアッププロジェクトの作成 |
|
|
|
配布するプロジェクトにセットアッププロジェクトを追加します |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
マージモジュールをダウンロードします |
|
|
http://support.businessobjects.com/downloads/merge_modules.asp |
|
|
Merge Modules for Crystal Reports
for Visual Studio .NET 2002 |
|
|
開発環境に入っているマージモジュールを再配布に利用するとクエリエンジンエラーなどが発生して |
|
|
配布先で動かない可能性があります |
|
|
|
セットアップにダウンロードしたマージモジュールを追加します |
|
|
|
|
|
クリスタルレポートの登録を行うとメールでLicense Keyが送られてきますのでそれを |
|
|
regwiz.msn のプロパティに入力します |
|
|
|
|
|
以上でビルドを行うとセットアッププログラムが作成されます。 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
