ورود

View Full Version : نیاز به راهنمایی دوستان



Max Payne
سه شنبه 06 دی 1390, 04:49 صبح
با سلام و خسته نباشید خدمت همه دوستان
من میخوام بشه داخل دیتابیس چک باکس اضافه کنم مثلا یه گزینه چک دار باشه یا نباشه مثله اعتراض به نمره که تیک داره و همچنین بشه یه متن رو نوشت و ذخیره کرد که مثلا برای شخص ادمین نمایش داده بشه
دیتابیس هم اکسس یا هرچیزه دیگه میتونه باشه مهم اینه بشه این کارها رو انجام دادش

با سپاس

sehm67
سه شنبه 06 دی 1390, 16:31 عصر
با سلام و خسته نباشید خدمت همه دوستان
من میخوام بشه داخل دیتابیس چک باکس اضافه کنم مثلا یه گزینه چک دار باشه یا نباشه مثله اعتراض به نمره که تیک داره و همچنین بشه یه متن رو نوشت و ذخیره کرد که مثلا برای شخص ادمین نمایش داده بشه
دیتابیس هم اکسس یا هرچیزه دیگه میتونه باشه مهم اینه بشه این کارها رو انجام دادش


موقع ساخت جدول قسمت Data Type گزینه Yes/No را انتخاب نمایید ( برای چک باکس )
وبرای نوشتن متن بیش از 255 کاراکتر هم گزینه Memo را انتخاب نمایید ( برای متن )

Max Payne
سه شنبه 06 دی 1390, 22:50 عصر
موقع ساخت جدول قسمت Data Type گزینه Yes/No را انتخاب نمایید ( برای چک باکس )
وبرای نوشتن متن بیش از 255 کاراکتر هم گزینه Memo را انتخاب نمایید ( برای متن )
[/INDENT]
ممنون اما چطور میشه میشه که ما بیتونیم بفهمیم اون ردیف یا سطر و ستون تیک داره یا نه؟
مثلا Data1.Recordset.Fields("checks"). بعد فیلد چک چطوری میشه شماره اون سطر یا ستون رو بهش معرفی کرد که کدوم ستون تیک داره یا نداره

sehm67
چهارشنبه 07 دی 1390, 01:25 صبح
ممنون اما چطور میشه میشه که ما بیتونیم بفهمیم اون ردیف یا سطر و ستون تیک داره یا نه؟
مثلا Data1.Recordset.Fields("checks"). بعد فیلد چک چطوری میشه شماره اون سطر یا ستون رو بهش معرفی کرد که کدوم ستون تیک داره یا نداره


SQL = "SELECT * From Table1 WHERE checks = True"

karimi64bit
جمعه 09 دی 1390, 09:31 صبح
به این روش هم میتونی کار کنی
check1.vaue = val(Data1.Recordset.Fields!checks) '

اگر هم بخواب بریزینش تو جدول
بهترین راه vsflex هستش دیتا تیپ رو میزارش bool

Max Payne
یک شنبه 11 دی 1390, 20:41 عصر
دوباره سلام، من هرکاری میکنم این مقدار MSFlexGrid1 رو نمی تونم توی اون فیلد ذخیره کنم البته توی فیلد ذخیره میشه اما اون رکورد اولی مثلا 10 تا رکورد داریم فقط میتونه اولی رو ویرایش کنه

Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.Rows = 1 Then Exit Sub
Label3.Caption = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) <> 0 Then
AeroCheckBox1.Value = Checked
Else
AeroCheckBox1.Value = Unchecked
End If
Label1.Caption = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3)
Label8.Caption = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4)
End Sub


Private Sub AeroCheckBox1_Click()
If AeroCheckBox1.Value = Checked Then
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = 1
Data1.Recordset.Edit
Data1.Recordset.Fields!eteraz = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
Data1.Recordset.Update
Data1.Refresh
ElseIf AeroCheckBox1.Value = Unchecked Then
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = 0
Data1.Recordset.Edit
Data1.Recordset.Fields!eteraz = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
Data1.Recordset.Update
Data1.Refresh
End If

این کدهاش هستش فقط از فیلد اعتراض اون رکورد اولی رو ویرایش میکنه و جایی که با موس کلیک کردیم روی MSFlexGrid1 رو تغییر نمیده میخوام هرجایی که کلیک کردیم داخل MSFlexGrid1 و مقدار چک باکس رو تغییر دادیم اون ردیف و رکورد اعتراض مقدارش تغییر و ذخیره بشه

sehm67
یک شنبه 11 دی 1390, 22:09 عصر
سلام

شما ابتدا باید سطر مورد نظر رو جستجو نمایید.


If MSFlexGrid1.Col = 1 Then
Adodc1.Recordset.Filter = " Id like '" & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) & "'"
Adodc1.Recordset.Fields("check") = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
Adodc1.Recordset.Update
End If


ضمنا به نظر من شما از VSFlexGrid8 استفاده نمایید زیرا هم پیشرفته تره نسبت به Datagrid و MSFlexGrid و امکانات بیشتری داره.

Max Payne
یک شنبه 11 دی 1390, 23:31 عصر
فایل رو واستون ضمیمه کردم یه نگاه بهش بندازید ممنون میشم حجمش 13 کیلوبایت چیزی نیستش
اینجا (http://hipfile.com/fjwga0a5hk1d/samp.rar.html)
همچنین من VSFlex رو روی وی بی 6.0 ندارم ولی گشتم فایل ocx. رو پیدا کردم
با تشکر

sehm67
دوشنبه 12 دی 1390, 01:30 صبح
فایل رو واستون ضمیمه کردم یه نگاه بهش بندازید ممنون میشم حجمش 13 کیلوبایت چیزی نیستش
اینجا (http://hipfile.com/fjwga0a5hk1d/samp.rar.html)
همچنین من VSFlex رو روی وی بی 6.0 ندارم ولی گشتم فایل ocx. رو پیدا کردم
با تشکر


براتون با vsflex8 مثال زدم بهتره با این کامپوننت و ابزار ADO کار کنید.

موفق باشید.

Max Payne
دوشنبه 12 دی 1390, 04:27 صبح
یه چیزه دیگه من چون با این vsflex کار نکردم زیاد نمی دونم مثلا ما همین برنامه کوچیه که شما درست کردید یه فرم قبلش میذارم مثه صفحه لاگین بعدا چطور میشه کاری کرد که وقتی فرم دوم بالا میاد فقط اطلاعات اون دانش آموز مثلا به شماره 88888 نمایش داده بشه و بقیه واسش پنهان بشه مثلا شماره داخل form1.text1.text برابر باشه با اون بعدا اون سطر و ستون هایی که این شماره دانشجویی هستش 88888 نمایش داده بشه

sehm67
دوشنبه 12 دی 1390, 12:59 عصر
یه چیزه دیگه من چون با این vsflex کار نکردم زیاد نمی دونم مثلا ما همین برنامه کوچیه که شما درست کردید یه فرم قبلش میذارم مثه صفحه لاگین بعدا چطور میشه کاری کرد که وقتی فرم دوم بالا میاد فقط اطلاعات اون دانش آموز مثلا به شماره 88888 نمایش داده بشه و بقیه واسش پنهان بشه مثلا شماره داخل form1.text1.text برابر باشه با اون بعدا اون سطر و ستون هایی که این شماره دانشجویی هستش 88888 نمایش داده بشه

شماره دانشجویی وارد شده نباید تکراری باشه.
برای جلوگیری از تکرار هم اول جستجو نمایید و اگه رکوردی موجود بود از ذخیره نمودن اون مقدار جلوگیری نمایید.
موفق باشید.

Max Payne
سه شنبه 13 دی 1390, 02:49 صبح
مرسی اما یه مشکل هستش شما وقتی که توی اون فرم لاگین میکنید و میرید فرم بعدی و وقتی رکورد آخر فیلد اعتراض رو تیک میزنید درست عمل نمیکنه و ذخیره نمیکنه

karimi64bit
یک شنبه 02 بهمن 1390, 09:58 صبح
با سلام و خسته نباشید خدمت همه دوستان
من میخوام بشه داخل دیتابیس چک باکس اضافه کنم مثلا یه گزینه چک دار باشه یا نباشه مثله اعتراض به نمره که تیک داره و همچنین بشه یه متن رو نوشت و ذخیره کرد که مثلا برای شخص ادمین نمایش داده بشه
دیتابیس هم اکسس یا هرچیزه دیگه میتونه باشه مهم اینه بشه این کارها رو انجام دادش

با سپاس


بفرما

81260