كريستال ريبورت المرفق مع vb6

السلام عليكم

في الاصدار 6 من الفيجول بيسك لايوجد الكريستال ريبورت ولكن يمكنك ان تحمل Crystal reports 10 فهو يعمل مع vb6 او ان كان لديك

Crystal reports 8 فيمكنك العمل به خارج بيئة vb ومن ثما استدعاه وعرضه بعد ان تضيف اداة عرض التقرير الى بيئة vb6

والسلام عليكم ورحمة الله وبركاته

لم بصلني الرد علي التفقيط في الكريستال

انا عند الكود بس مش علرف استخدمة عشان يظهر في الكريستال عندما اطلع فاتورة

ياريت بمثال لوسمحت والف شكر علي المساعدة

برجاء التكرم المعرفة ماهو الفرق بيم كريستال ريبورت المرفق معvb6 وكريستال ريبورت رقم 10 وشكرا

السلام عليكم

اخي العزيز moh_hafez

لايوجد مع vb6 كريستال ريبورت بل يوجد معه data rebort وهي اقل كفاه بكثير من الكريستال ريبورت

اما عن الكريستال ريبورت 10 فيمكنك استخدامه مع vb6 وخارج بيئة vb6

اما سؤالك الاخر عن " التفقيظ " اعذرني لعدم خبرتي الكبيره في البرمجة فانا لم افهم معنى الكلمة الرجاء الشرح اكثر ممكن اجد لك الحل

شكرا يا استاذ عبد الجليل علي ردك الجميل

بخصوص التفقيط عاوز تطلع الفاتورة او اي احصائية مجمعة مفقطة يعني 1200 فقط لاغير الف ومئتان

انا نزلت كريستال ريبورت 10 وطلب ان اكتب رقم كود المفتاح وانابعمل install برجاء المساعده من الاخوة الاعزاء وشكرا

أرجو لو احد الأخوة الأعضاء لدية رابط كريستال ريبورت 8 ان يرفقها وله جزيل الشكر

شكرا لكل من ساعدني علي انزال الكريستال ريبورت10

المشكلة عاوز لما اعمل تقرير ازاي اضمة ضمن المشروع في الفيجوال بيسيك6 هل عن طريق كود او كيفية الربط بين الكريستال وبين الفيجوال6 وشاكرين تعاونكم

الكريستال ريبورت الي يجي مع الفيجوال بيسك هو الاصدار 4.6 وهو اصدار ممتاز وبسيط وسهل التحميل ، اقل من نصف دقيفة للتحميل ، المشكلة فيه انه لا يعمل الا مع الاصدار 97 من الاكسس , والشي الجيد فيه انه من نوع ocx اي انه عبارة عن اوه سي اكس وليس Viwer .اما عن الاصدار 8.5 فانه قد عمل لي الكثير من المشاكل والافضل هو استخدام الاصدار العاشر وما فوق .

أخي Abaset

ارجو لو تسطيع ارسال نسخة من كريستال ريبورت 8.5 علي الايمال او ترفقها في المنتدي لكي يستفيد الجميع سأكون شاكر لك

emil - yasserstars@yahoo.com

شكرا لكل من رد علي الاسئلة والاسفسارات ولكن يوجد سؤال لم تردوا عليه

1ـ كيفية ربط كريستل ريبورت 10 مع فيجوال بيسيك

2ـ عمل تقرير فاتوره مجمعة ويكون المجموع مفقط

مجموع الفاتورة 4500 ويكون التفقيط في نهاية الفاتورة اربعة وخمسونفقط لاغير

واعتقد ناس كثيرون يفتقدون ذلك ولكم جزيل الشكر

moh_hafez كتب:

انا نزلت كريستال ريبورت 10 وطلب ان اكتب رقم كود المفتاح وانابعمل install برجاء المساعده من الاخوة الاعزاء وشكرا

اليك مايلى

LICENSE: AV860-OICSOOG-U7000NC

REGNO:1231467890

اخي العزيز يمكن الاستفاة من دورة الاخ major وهذا هو رابطها (h)

دورة كرستال ريبورت بقيادة الاخ major

وهذا رابط اخر لتحميل كرستال ريبورت 10

هنا

ارقام التسجيل هنا

و السلام عليكم ;)

Abaset كتب:

الكريستال ريبورت الي يجي مع الفيجوال بيسك هو الاصدار 4.6 وهو اصدار ممتاز وبسيط وسهل التحميل ، اقل من نصف دقيفة للتحميل ، المشكلة فيه انه لا يعمل الا مع الاصدار 97 من الاكسس , والشي الجيد فيه انه من نوع ocx اي انه عبارة عن اوه سي اكس وليس Viwer .اما عن الاصدار 8.5 فانه قد عمل لي الكثير من المشاكل والافضل هو استخدام الاصدار العاشر وما فوق .

عذرا اخى ولكن كريستال 4.6

يتعامل مع كافه قواعد البانات تقريبا

من خلال dsn

ولكنه لا يستطيع اظهار الصور من قاعده البانات

اما بخصوص التفقيط

فيمكن عمل التفقيط

فى ال vb

ثم ارسال النص المفقط الى الكريستال ريبورت من خلال

formoula

Option Explicit

هذا خاص بالتفقيط هذا ليس من عملى ولكن اسم الشخص موجود عليه

'********************************************************

'* Procedure Name: NumberToText ,Family of Number To Text Function

'*-------------------------------------------------------

'* Created: 17/12/2000 By:hakkim_m_rahumi@hotmail.com

'********************************************************

Function NumberToText(Num3 As Currency) As String

'---

Dim y, deci, dec, alll, Temp, texfin

Dim Number As String

'---

Number = Num3

If Number = "" Then Exit Function

'On Error GoTo errhandler

If Is_Valid(Number) = False Then GoTo inval

For y = 1 To Len(Number)

If Mid(Number, y, 1) = "." Then

If Left(Number, y - 1) <> "" Then

Temp = ntx(Left(Number, y - 1))

If Temp = "error" Then GoTo inval

End If

deci = R_Zero(Mid(Number, y + 1, Len(Number) - y))

If deci = "error" Then GoTo inval

If deci <> "" Then

dec = deci

Select Case Len(deci)

Case 1

deci = deci * 100

Case 2

deci = deci * 10

Case Else

deci = deci

End Select

alll = Temp & "ÏíäÇÑ áíÈí ¡ æ " & deci 'ntx(deci)

texfin = alll & " ÏÑåã "

Else

texfin = Temp & " ÏíäÇÑ áíÈí "

End If

If Left(texfin, 5) = " ¡ æ " Then texfin = Right(texfin, Len(texfin) - 5)

NumberToText = texfin & " áÇÛíÑ."

Exit Function

End If

Next y

alll = ntx(Number)

If alll = "error" Then GoTo inval

NumberToText = alll & "ÏíäÇÑ áíÈí áÇÛíÑ."

Exit Function

inval:

MsgBox "Invalid input", vbOKOnly + vbCritical, "error"

Exit Function

errhandler:

MsgBox "ERROR # " & Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error"

Exit Function

'---

End Function '===( End of Function Number To Text )===

'********************************************************

'* Procedure Name: R_Zero ,Family of Number To Text Function

'*-------------------------------------------------------

'* Created: 17/12/2000 By:hakkim_m_rahumi@hotmail.com

'********************************************************

' ** Function to Remove Zeros from the **

' Number's right side

Public Function R_Zero(numb)

Dim tmp, m

tmp = numb

If Len(numb) > 11 Then

R_Zero = "error"

Exit Function

End If

For m = 1 To Len(numb)

If Right(tmp, 1) = "0" Then

tmp = Left(tmp, Len(tmp) - 1)

End If

Next m

R_Zero = tmp

'---

End Function

'********************************************************

'* Procedure Name: R_Zero ,Family of Number To Text Function

'*-------------------------------------------------------

'* Created: 17/12/2000 By:hakkim_m_rahumi@hotmail.com

'********************************************************

' ** Function to test the validity of the number

Public Function Is_Valid(numb) As Boolean

Dim count, n

count = 0

For n = 1 To Len(numb)

If Mid(numb, n, 1) = "." Then

count = count + 1

End If

Next n

If count = 1 Or count = 0 Then

Is_Valid = True

Else

Is_Valid = False

End If

End Function

'********************************************************

'* Procedure Name: NTX ,Family of Number To Text Function

'*-------------------------------------------------------

'* Created: 17/12/2000 By:hakkim_m_rahumi@hotmail.com

'********************************************************

Public Function ntx(num1 As String) As String

'---

Dim texnum0, texnum1, texnum2, texnum3, texnum4

Dim tex1, length

Dim i, J, num2

'---

texnum0 = Array("ÇÍÏì", "ÇËäÇ")

texnum1 = Array("ÕÝÑ", "æÇÍÏ", "ÇËäÇä", "ËáÇËå", "ÇÑÈÚÉ", "ÎãÓÉ", "ÓÊÉ", "ÓÈÚÉ", "ËãÇäíÉ", "ÊÓÚÉ", "ÚÔÑÉ")

texnum2 = Array("ÚÔÑ", "ÚÔÑæä", "ËáÇËæä", "ÇÑÈÚæä", "ÎãÓæä", "ÓÊæä", "ÓÈÚæä", "ËãÇäæä", "ÊÓÚæä")

texnum3 = Array("ãÇÆå", "ãÇÆÊÇä", "ãÆÇÊ", "ÇáÝ", "ÇáÝÇä", "ÂáÇÝ", "ãáíæä", "ãáíæäÇä", "ãáÇííä", "ãáíÇÑ", "ãáíÇÑÇä", "ãáíÇÑÇÊ")

texnum4 = Array("ËáÇË", "ÇÑÈÚ", "ÎãÓ", "ÓÊ", "ÓÈÚ", "ËãÇä", "ÊÓÚ")

tex1 = ""

length = Len(num1)

If length > 12 Then

ntx = "error"

Exit Function

End If

If length Mod 3 <> 0 Then

For J = (length Mod 3) To 2

num1 = "0" & num1

Next J

length = Len(num1)

End If

For i = length To 2 Step -3

num2 = Mid(num1, length - i + 1, 3)

If Left(num2, 1) <> 0 Then

If Left(num2, 1) = 1 Then

tex1 = tex1 & " æ " & texnum3(0) & " "

ElseIf Left(num2, 1) = 2 Then

tex1 = tex1 & " æ " & texnum3(1) & " "

Else

tex1 = tex1 & " æ " & texnum4(Left(num2, 1) - 3) & texnum3(0) & " "

End If

End If

If Right(num2, 2) < 10 And Right(num2, 2) <> 0 Then

If Right(num2, 1) = 1 And i = 6 Then

tex1 = tex1 & " æ " & texnum3(3) & " "

ElseIf Right(num2, 1) = 2 And i = 6 Then

tex1 = tex1 & " æ " & texnum3(4) & " "

Else

tex1 = tex1 & " æ " & texnum1(Right(num2, 1)) & " "

End If

ElseIf Right(num2, 2) < 20 And Right(num2, 2) <> 0 Then

If Right(num2, 2) = 10 Then

tex1 = tex1 & " æ " & texnum1(10) & " "

ElseIf Right(num2, 2) = 11 Then

tex1 = tex1 & " æ " & texnum0(0) & " " & texnum2(0) & " "

ElseIf Right(num2, 2) = 12 Then

tex1 = tex1 & " æ " & texnum0(1) & " " & texnum2(0) & " "

Else

tex1 = tex1 & " æ " & texnum1(Right(num2, 1)) & " " & texnum2(0) & " "

End If

ElseIf Right(num2, 2) >= 20 And Right(num2, 2) Mod 10 = 0 Then

tex1 = tex1 & " æ " & texnum2(Mid(num2, 2, 1) - 1) & " "

ElseIf Right(num2, 2) >= 20 Then

tex1 = tex1 & " æ " & texnum1(Right(num2, 1)) & " æ " & texnum2(Mid(num2, 2, 1) - 1) & " "

End If

If num2 <> "000" Then

If i / 3 = 2 And Right(num2, 2) > 2 And Right(num2, 2) < 11 Then

tex1 = tex1 & texnum3(5) & " "

ElseIf i / 3 = 2 And Right(num2, 2) <> 1 And Right(num2, 2) <> 2 Then

tex1 = tex1 & texnum3(3) & " "

ElseIf i / 3 = 3 Then

tex1 = tex1 & texnum3(6) & " "

ElseIf i / 3 = 4 Then

tex1 = tex1 & texnum3(9) & " "

End If

End If

Next i

If Left(tex1, 2) = " æ" Then tex1 = Right(tex1, Len(tex1) - 2)

If Right(tex1, 2) = "æ " Then tex1 = Left(tex1, Len(tex1) - 2)

ntx = tex1

End Function

'-----------------------------------------------------------------------------

'* Procedure Name: CenterForm

'* Created: 15/11/2000 By: Hakkim M.Rahumi - hakkim_m_rahumi@hotmail.com

'* Modified:

'*-----------------------------------------------------------------------------

Sub CenterForm(frmIN As Form)

Dim iTop, iLeft As Integer

If frmIN.WindowState <> 0 Then Exit Sub

iTop = (Screen.Height - frmIN.Height) \ 2

iLeft = (Screen.Width - frmIN.Width) \ 2

If iTop And iLeft Then

frmIN.Move iLeft, iTop

End If

End Sub

Abaset كتب:

الكريستال ريبورت الي يجي مع الفيجوال بيسك هو الاصدار 4.6 وهو اصدار ممتاز وبسيط وسهل التحميل ، اقل من نصف دقيفة للتحميل ، المشكلة فيه انه لا يعمل الا مع الاصدار 97 من الاكسس , والشي الجيد فيه انه من نوع ocx اي انه عبارة عن اوه سي اكس وليس Viwer .اما عن الاصدار 8.5 فانه قد عمل لي الكثير من المشاكل والافضل هو استخدام الاصدار العاشر وما فوق .

------------------------------------------------------------------------------------------------

استاذي العزيز

السلام عليكم ورحمة وبركاته

عندي برنامج محاسبة صغير الحجم واريد ان انشي له تقرير عن برنامج كريستال ريبوت 4.6 هل ممكن المساعده ؟؟

والله يحفظكم وكل عام وانتم بخير

السلام عليكم ورحمه الله وبركاته

انا حملت كريستال لكن ظهرت لى مشكلة هى عندما اعمل تقرير خارج بيئه الفيجوال بيكون تمام لكن عندما اربطة بالبرنامج الكلام العربى بيتختفى من النصوص اما الكلام الانجليزى بيظهر مش عارف السبب

برجاء المساعدة

وشكرا