سورس یک دفترچه تلفن پیشرفته با گرافیک بالا(تقدیم به دوستان)

[mahdy_system]

کسی نمی خواد جواب من رو بده؟

[mpmsoft]

خیر این ابزار هیچ محدودیتی نداره و خیال راحت استفاده کنید

[davood59]

سلام؛
یک سوال برام پیش اومده؟ من دارم از برنامه شما الگو می گیرم برای کارهای خودم، ولی به نظر شما آیا این کار باعث پیشرفت من هم میشه یا نه؟ منظورم اینه که الگو برداری از کارهای بقیه خوبه یا نه؟
ضمناً میشه به این سوال من هم پاسخ بدید؟
من ابتدا برای ارتباط و درج اطلاعات از adodc استفاده می کردم که خیلی هم راحت بود، ولی با توجه به جستجویی که کردم و مقالاتی که خوندم دیدم adodb و دیگر adoها فکر کنم دست ما رو بیشتر باز میذاره برای انتخاب.
حالا من هم اومدم و برنامم رو طبق متد شما دارم می نویسم که یک جا بهم خطا داد، میشه کد رو نگاه کنی و ایرادش رو بهم بگی؟

Private Sub Command1_Click()
'With Adodc1
If txt(0).Text = "" Then txt(0).SetFocus: Exit Sub
If txt(1).Text = "" Then txt(1).SetFocus: Exit Sub
' .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\book.mdb;Persist Security Info=False" 'ertebat ba bank
' .RecordSource = "Select * From book " 'entekhab jadval
' .Refresh
' .Recordset.AddNew 'ezafe kardan ketab
Dim rs As New ADODB.Recordset
Dim strm As New ADODB.Stream
If rs.State = 1 Then rs.Close
rs.Open "SELECT * FROM book", Conn, adOpenStatic, adLockOptimistic
rs.AddNew

rs("nbook") = txt(0).Text
rs("wbook") = txt(1).Text
rs("publish") = txt(2).Text
rs("year") = txt(3).Text
rs("page") = txt(4).Text
rs("isbn") = txt(5).Text
MsgBox ("your information register sucssesfull")
rs.Update
Form_Load
End Sub

خطایی هم که میده اینه:

ممنونم از شما.

[mpmsoft]

دوست عزیز ببینید اگر خودتون بابت هر مسئله ای یک 2 2 تا 4 بکنی بهتره

من خودم شخصا کدهای خیلی ها رو به زبانهای مختلف دیدم و می بینم و ایده های خیلی خوبی از اون ها می گیرم این باعث رشد من تو زمینه برنامه نویسی شده، به شما هم پیشنهاد می کنم به این شکل پیش برید

سعی کن خودت به راه صحیح پی ببری

دوست عزیز میشه بگید دقیقا کدوم خط ایراد می گیره ؟

[davood59]

دوست عزیز از پاسخ خوبتون بینهایت ممنونم.
مرسی.
توی این خط:

[mpmsoft]

دوست عزیز من ایرادی نمی بینم ؟

احتمال داره آبجکت Conn به بانک متصل نباشه

[m_vb1386]

به احتمال زياد از همون كانكشن باشه از اونجا كه بانك شما يك بانك اكسس هست ببينيد وقتي برنامه رو اجرا ميكنيد ايا كنار بانكتون يك فايل با پسوند ldb ساخته ميشه يا نه اگه ساخته نميشه برنامتون فاقد كانكشن هست

[davood59]

از پاسختون ممنونم. میشه با یه مثال برام توضیح بدید؟ آخه من تقریباً روش آقا mpmsoft رو در پی گرفتم. میشه بگید چه جوری و در کجا باید ایجاد کنم؟ ضمناً فایلی رو هم که میگید در کنار بانک اطلاعاتی من درست نمیشه. حدستون درسته. ممنون.

[mpmsoft]

دوست عزیز شما در ابتدا باید به بانک اطلاعاتی متصل بشید

در پروژه من به دنبال واژه Conn.Open بگردید و نحوه باز شدن بانک اطلاعاتی رو ببینید

[davood59]

سلام دوست عزیز؛ من همیشه قبل از اینکه پست بزنم، یک جستجوی کلی می کنم و بعدش سوال می پرسم تا از زدن پست اضافی جلوگیری بشه. ولی در مورد برنامه شما راستش conn.open رو پیدا نکردم. ولی با اینحال اینطوری نوشتم و درست شد؛ اون بانکی رو هم که به صورت ldb باید باشه می سازه.

اشکالی نداره دیگه نه؟ درسته؟ میشه راجع به این کدها یه توضیحی بدی:

If Dlg.FileName <> "" Then

Strm.Type = adTypeBinary
Strm.Open
Strm.LoadFromFile (Dlg.FileName)
Rs("Logo") = Strm.Read

Else

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

: and this code

If Val(Me.Tag) > 0 Then
Rs.Open "SELECT * FROM TblMember WHERE ID=" & Me.Tag, Conn, adOpenStatic, adLockOptimistic
If Rs.RecordCount = 0 Then Unload Me: Exit Sub
Rs.MoveFirst
Else

البته بازهم عذرمیخوام. نزنی ها . ببخشید.

[mpmsoft]

Strm.Type = adTypeBinary
Strm.Open
Strm.LoadFromFile (Dlg.FileName)
Rs("Logo") = Strm.Read

توسط ADPDB.Stream می تونیم یک فایل رو در حافظه بصورت موقت نگهداری و اگر نیاز باشه در بانک ذخیره کنیم

If Val(Me.Tag) > 0 Then
Rs.Open "SELECT * FROM TblMember WHERE ID=" & Me.Tag, Conn, adOpenStatic, adLockOptimistic
If Rs.RecordCount = 0 Then Unload Me: Exit Sub
Rs.MoveFirst

دوست عزیز من برای اینکه حجم کد نویسی کمتر بشه در حالتهای اصلاح و یا اضافه از این روش استفاده می کنم

فرض کنید کاربر در لیست اعضاء می خواد یک کاربری اصلاح کنه من مقدار آی هر شخص رو تو گرید دارم بنابراین اون آی دی رو پاس می دم تو تگ فرم و زمانی که کاربر بروی دکمه ذخیره کلیک می کنه اگر تگ مقدار داشت یعنی در حالت اصلاح هستش در غیر اینصورت یک رکورد جدید اضافه می کنه

[m_vb1386]

كاش اين تايپيك عنوان ميشد تا مورد استفاده برنامه نويس هاي اينده كه عضو سايت ميشدن هم بشه چون به نظر من موارد اموزشي زيادي داره

[mpmsoft]

البته اگر آقای Mbt تایید کنن

[davood59]

فرض کنید کاربر در لیست اعضاء می خواد یک کاربری اصلاح کنه من مقدار آی هر شخص رو تو گرید دارم بنابراین اون آی دی رو پاس می دم تو تگ فرم و زمانی که کاربر بروی دکمه ذخیره کلیک می کنه اگر تگ مقدار داشت یعنی در حالت اصلاح هستش در غیر اینصورت یک رکورد جدید اضافه می کنه

سلام، واقعا دستت درد نکنه، جالب و زیبا برنامه رو نوشتی.
اینجوری که من فهمیدم شما اصلاح و درج رو در یک form نوشتی، و اگر تگ بدون مقدار بود به معنی اضافه کردن یک رکورده .

كاش اين تايپيك عنوان ميشد تا مورد استفاده برنامه نويس هاي اينده كه عضو سايت ميشدن هم بشه چون به نظر من موارد اموزشي زيادي داره.

من هم کاملا با این نظر موافقم. چون از روی این برنامه خیلی چیزها دستگیرم شده و دارم چیزهای بیشتری هم یاد می گیرم. پاسخ های دوست خوبم آقا mpmsoft هم باعث دلگرمی و افزایش جنبه آموزشی این برنامه میشه.[/quote]

[ramsess]

خیلی عالی بود خسته نباشید همه قسمتهاش هم کار می کرد نمی دونم دوستان کجا مشکل دارند ؟
ولی یه سوال برام خیلی جالب بود شما آقای mpmsoft چطور تو قسمت گزارشگیری چاپ از چی استفاده کردی لطفا بفرمائید چطور گزارش رو نوشتین در صورتی که هیچ کدی رو براش ننوشتی فیلدها رو از کجا آوردی - عکس رو چطور گذاشتی یعنی در وقاع کجا قسمتهای طراحی رو انجام دادی ؟ در ضمن لطف می کنی اگه بگی پسورد بانک چیه؟

[mpmsoft]

دوست عزیز گزارش این نرم افزار با Crystal Report هستش

پسورد barnamenevis

[HjSoft]

سلام ، این تاپیک واقعا ارزشمنده حالا یک سوالی دارم اینکه ( من هنوز برنامه رو دانلود نکردم ) شما از VSFLEX 8.0 استفاده کردین ، اما چه طور در زمان طراحی این عنوان برای ردیف ها انتخاب کردید ، واقعا این یک مسئلیه که من خیلی روش کار کردم ولی به نتیجه ای نرسیدم ، من از خود سایت ورژن 8 این ابزار رو دانلود کردم اما زمانی که روی Format String کلیک میکنم یک ارور میده که فکر میکنم مربوط به کرک این ورژن است ، لطفا منو راهنمایی کنید ... ممنون

[m_vb1386]

راست ميگه چجوري اين رو تنظيم كردين من هم متوجه نشدم

[mpmsoft]

دوست عزیز من دقیقا متوجه نشدم منظورتون کدوم قسمته

[m_vb1386]

شما براي نشون دادن عنوان فيلد ها تو گريدتون از كد نويسي استفاده نكردين مي خواهم ببينم چجوري براي گريد اسم فيلد فارسي گذاشتين تو اون عكس كه اولين تايپيك هست رو ميگم

[mpmsoft]

دوست عزیز در زمان Design Time بروی ستون مورد نظر 2 بار کلیک کنید می تونید نام فیلد رو تایپ بکنید و هم می تونید با کد نویسی این کارو بکنید

[davood59]

دوباره سلام؛
بازهم یک سوال! ببخشید.
آقا Mpmsoft من یکی دو تا برنامه ای رو که نوشتم با دابل کلیک روی خود سلول ویرایش رو انجام میدادم، ولی دوست دارم مثل برنامه شما فرم باز بشه و در اونجا کاربر بتونه کار ویرایش رو انجام بده ، چرا که اینجوری برنامه حرفه ای تر و شکیل تر میشه.
الگو برداری رو از روی شما انجام دادم ولی وقتی دابل کلیک می کنم این خطا رو نشون میده:

کد رو هم اینجوری تغییرش دادم:


اینهم کد صدازدن ویرایش:


امکانش هست سورس رو براتون بفرستم؟ فرصت دارید نگاه کنید یا خیر؟
مجدداً ببخشید.

[HjSoft]

مطمئن نیستم ولی این تغییر رو بدین

... Select From Book Where Id = '" & Id &"'"

در ضمن شما از قبل باید ID رو تعریف کرده باشید مثلا اگه از Adodc استفاده می کنید به این صورت میشه

... Select From Book Where Id = '" & adodc1.recordset.Fields("Id") &"'"

[mpmsoft]

دوست عزیز آبجکت cnn چیه ؟

در ضمن شما باید با Rs.Open این کارو انجام بدید نه با Cnn

این پیغام به شما می گه که آبجکتی تعریف نشدرو شما دارید استفاده می کنید

[m_vb1386]

دوست عزیز در زمان Design Time بروی ستون مورد نظر 2 بار کلیک کنید می تونید نام فیلد رو تایپ بکنید و هم می تونید با کد نویسی این کارو بکنید

ببخشيد متوجه نشدم اگه روي گريد دبل كليك كنم وارد محيط كد نويسي ميشه و اين رو نشون ميده

Private Sub VSFlexGrid1_Click()

End Sub

ممنون ميشم بيشتر توضيح بدين

[m_vb1386]

اقا داوود

 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yourdb.mdb;"

رو ميتونيد جلوي cnn.open استفاده كنيد

[davood59]

دوست عزیزم آقا m_vb1386 کاری که گفتید کردم ولی جواب نداد. روش دوست دیگه مون آقا wolf-sky رو هم فرصت نکردم امتحانش کنم.
آقا mpmsoft من دیدم که شما از rs.open استفاده کردین ولی راستش رو بخوای هرچی سرچ می کنم conn.open رو که اونروز گفتید پیداش کن توی پروژتون پیدا نکردم. خیلی هم سرچ کردم ولی پیدا نشد. میشه یه کمکی بکنی؟
دوباره از همه دوستان تشکر می کنم.

[ramsess]

دوست عزیز ممنون از راهنمایت ولی واقعا نمی دونم چطور برنامه رو نوشتی مثلا توی قسمت ثبت نام جدید شیی TTab رو چطور به VS وصل کردی؟
آیا می شه به DBGRID وصل کرد و از شی data استفاده نمود.
یا چطور روی مثلا حرف جچح می زنی فیلدهای مربوط به اون می آد -
خیلی ممنون می شم اگه بگید - خداوکیلی نزدیک یک هفته اس روی برنامت هستم کارتون عالیه خسته نباشید

[HjSoft]

آقای MPMSOFT اون روش دو تا کلید کردن عملی نیست و وارد کد نویسی میشه

[mpmsoft]

به این شکل

[HjSoft]

ولی Property Page گرید من این گزینه رو نداره ، اگه امکان داره شما VsFlex خودتون رو اینجا آپلود کنین

[m_vb1386]

به این شکل

من باز هم متوجه نشدم روي سيستم من مثل اين عكس نشون ميده ممنون ميشم ببينيد علتش چيه؟

[mpmsoft]

دوست عزیز شما باید پک کامل این ابزارو نصب کنید
http://rapidshare.com/files/10017267..._2008_v1.0.rar

[m_vb1386]

عجب چيز توپيه به بقيه هم پيشنهاد ميكنماين لينك اخري رو دانلود كنن

[HjSoft]

من هنوز دانلود نکردم کرکش هم هست یا باید پیدا کنم !! ( ببخشید اینقدر سوال می کنم قول میدم آخری باشه )

[mpmsoft]

دوست عزیز این نسخه کامل بدونه کرک هستش

[rezankh]

با سلام و عرض پوزش بسيار، مي‌دونم كه درخواستم خارج ار بحث هست ولي چه كنم كه كارم گيره و حتما اين برنامه گره از مشكلاتم باز مي‌كنه راستش هرچي سعي كردم از راپيدشير فايل setup رو دانلود كنم نشد اگه ميشه از بين دوستاني كه Setup رو دانلود كردند اينجا هم بذارند تا من و ديگراني مثل من هم استفاده كنيم. يا حداقل نام يا ليست كامپوننت‌هاي استفاده شده تا حداقل بتونيم با سرچ پيداشون كنم.
باتشكر

[mpmsoft]

دوستان فایل کمکی در پیست اول همین تاپیک قرار گرفت

[davood59]

آقا دانلود کردن از رویrapidshare کار مشکلی نیست. شما در ابتدا باید روی لینک کلیک کنید.
بعدش صفحه عکس ضمیمه (rapid1 ) رو مشاهده خواهید کرد.

شما در این قسمت باید روی گزینه Free user کلیک کنید. بعد از کلیک روی این گزینه یک شمارشگر معکوس شروع به شمارش کرده تا به عدد 1 برسد.
بعد از اینکه شمارشگر صفر شد صفحه ای مثل شکل (ضمیمه 2 یا rapid2) باز شده که می تونید به راحتی فایل رو دانلودش کنید.

[davood59]

آقا MPmsoft سلام؛
چندباره ببخشید.
میشه این خط از پروژه رو بهم نشون بدید:

در پروژه من به دنبال واژه Conn.Open بگردید و نحوه باز شدن بانک اطلاعاتی رو ببینید

هرچی می گردم نیست.