16-05-16, 12:39 PM
السلام عليكم
وف اشرح طريقة اضافة برنامج كريستال ريبورت
الى جميع اصدارات فيجول نت من اول اصدار الى 2015
نحتاج فى البداية الى ملفين تشغيل التقارير
CRRuntime_64bit_13_0_5
CRRuntime_32bit_13_0
والملفين وظيفتها تشغيل التقارير فى جهاز العميل او جهاز المبرمج ولا نحتاج الى برامج اضافة كريستال ريبورت الى فيجول نت
CRforVS_13_0_110
لماذا لاننا سوف نصمم التقارير بواسطة برنامج كريستال ريبورت 10 او 2008 خارج الفيجول نت ثم نقوم بفتح التقارير
عن طريق اسم التقرير
اضافة فورم 9 مثلا كما استخدمت فى برنامجى
واضافة الاداة CRViewer1 الى الفورم
وسوف اقوم بشرح الكود بتفصيل اكثر
وف اشرح طريقة اضافة برنامج كريستال ريبورت
الى جميع اصدارات فيجول نت من اول اصدار الى 2015
نحتاج فى البداية الى ملفين تشغيل التقارير
CRRuntime_64bit_13_0_5
CRRuntime_32bit_13_0
والملفين وظيفتها تشغيل التقارير فى جهاز العميل او جهاز المبرمج ولا نحتاج الى برامج اضافة كريستال ريبورت الى فيجول نت
CRforVS_13_0_110
لماذا لاننا سوف نصمم التقارير بواسطة برنامج كريستال ريبورت 10 او 2008 خارج الفيجول نت ثم نقوم بفتح التقارير
عن طريق اسم التقرير
اضافة فورم 9 مثلا كما استخدمت فى برنامجى
واضافة الاداة CRViewer1 الى الفورم
وسوف اقوم بشرح الكود بتفصيل اكثر
كود :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Friend Class form9
Inherits System.Windows.Forms.Form
Dim m_Report As New ReportDocument
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
Dim sortfield As CrystalDecisions.CrystalReports.Engine.FieldDefinition
Private Sub Form18_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
If cn.State = ConnectionState.Open Then cn.Close()
cn.Open()
m_Report.Load(namerport1)
With crConnectionInfo
' .ServerName = ServerName
.DatabaseName = spaths & "\db1.mdb"
.UserID = ""
.Password = ""
End With
CrTables = m_Report.Database.Tables
For Each Me.CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
If formul1 <> "" Then
m_Report.RecordSelectionFormula = formul1
End If
For i = 0 To fcount
m_Report.DataDefinition.FormulaFields.Item(namef(i)).Text = valuef(i)
Next i
CRViewer1.ReportSource = m_Report
Cursor.Current = Cursors.Default
End Sub
Private Sub Form18_Resize(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = Me.ClientRectangle.Height
CRViewer1.Width = Me.ClientRectangle.Width
CRViewer1.Zoom(150)
End Sub
Private Sub Form18_FormClosed(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
End Sub
من اعمالنا نخطى ومن اخطائنا نتعلم ولاشى مستحيل