الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه moh_hafez في 24 مارس 2006 · 17 رد · 10,429 مشاهدة · في قسم التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ارجوا الاستفسار عن كريستال ريبورت المرفق مع vb6 ما هو رقمة؟

وهل كريستال ريبورت10 يستخدم مع vb6؟

كيفية وطريقة اظهار التفقيظ في كريستال ريبورت يعني 1200 فقط لاغير الف ومئتان جنيه

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

بجاء المساعده مع ارفاق امثلة شاطرين لكم حسن تعاملكم

#2

السلام عليكم

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

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

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

"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."

عمر المختار

اللهم انعم على بلادي بالأمن والأمان

#3

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

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

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

#4

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

#5

السلام عليكم

اخي العزيز moh_hafez

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

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

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

"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."

عمر المختار

اللهم انعم على بلادي بالأمن والأمان

#6

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

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

#7

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

#8

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

#9

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

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

#10

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

#11

أخي Abaset

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

emil - yasserstars@yahoo.com

#12

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

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

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

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

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

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

اليك مايلى

LICENSE: AV860-OICSOOG-U7000NC

REGNO:1231467890

#14

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

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

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

هنا

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

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

مع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية

أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا

logo.png

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

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

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

من خلال dsn

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

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

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

فى ال vb

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

formoula

ASDSUEZ

#16

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

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

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

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

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

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

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

والكم مني فائق الاحترام

اخوكم / سالم

ax1.gif

#18

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

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

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

وشكرا

مواضيع مشابهة