Printable View
با سلام !
من می خوام به برنامه بنویسم که روی یه فرم درخواست به طور اتوماتیک همه ی مشخصات رو از دیتابیس پر کنه و آخر سر هم یه پرینت به روی همون فرم بزنه !! :5:
توی برنامه یه باکس باشه که نام خانوادگی رو که نوشتم خودش مستقیم بقیه فیلد هارو پر کنه ! بعد یه پرینت بزنم و ...
ممنون میشم کمکم کنید ! :11:
قبلا یه کمی کار کردم با ویژوال بیسیک !
ورژن 6 دارم !! وی بی 6 .
لوازم مورد نیاز چی هست ؟؟
ممنون ! :11:
خب تا جایی فهمیدم شما میخواید با وارد کردن نام خانوادگی در یک Text Box بقیه ی Text Box ها به طور خودکار پر بشن و بعد روی فرم چاپ شن ( ! )نقل قول:
برای اینکار به تعداد مورد نیازی که میخوای تکست باکس بذار و داخل تکست باکس اول که نام خانوادگی رو وارد میکنی این کدها رو وارد کن :
کد:' به جای سه نقطه شما میتونید به تعداد Text ها کدها دومین خط رو وارد کنید
if text1.text=" نام خانوادگی مورد نظر " Then
Text2.text = " اطلاعاتی که میخوای تو این تکست وارد بشه"
...
...
End If
Print Text1 , Text2 , ...
به به سلام !!نقل قول:
مرسی از لطفت !!!
ولی چطور میشه بقیه باکس هارو از دیتابیس پر کرد ؟؟ :31:
:11:
نقل قول:
متاسفانه این ارور رو میده !!!
میشه یکی توضیح بده ؟؟؟ ممنون !:11:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
اولا منظور شما اینست که روی فرم فقط یک text box وجود داشته و وقتی در داخل کادر فامیل را می نویسید بقیه اطلاعات روی خود فرم به نمایش در بیایند و بعد پرینت از فرم گرفته شود
یا اینکه منظور شما چند text box وجود دارد در داخل کادر مربوط به فامیل وقتی فامیلی نوشته شود ضمن اینکه بقیه اطلاعات در کادرهای مخصوص خودشان ظاهر شوند از خود فرم پرینت گرفته شود
منظور اصلی خود را بگو تا کدش را بدهم
من یه فرم دارم !! به دیتا بیس !!نقل قول:
به این فرم چند تا تکست باکس دادم ! به اون قسمت هایی که باید پر بشن !! :5:
به طور مثال می خوام یه فامیل بنویسم ! بعد برنامه از تو دیتا بیس بقیه باکس هارو پر کنه !! ( حالا اگه از اون فامیل تعداد زیاد باشه چی کار کنم که من انتخابش کنم ؟ )
بعد از پر کردن باکس ها یه دونه پرینت بزنم !! ( فقط باکس هارو پرینت کنه !!! )
*************************
کارهایی که تا الان انجام دادم :
تنظیم باکس ها دقیقا جایی که باید پرینت بشن .
درست کردن دیتا بیس .
تا حدودی هم ریپورت پرینت رو درست کردم !!
فقط مشکل من کد نویسی هستش !!
ممنون :11:
سلام.
شما باید اول یه ADO رو فرمت بزاری که بدیتابیس رو به برنامه وصل کنی.
بعد تمام textbox ها رو به ADO وصل کنیم. بعدش میمونه یه سرچ که تمام اطلاعات رو نشون بده.
اگه تونستم تا ظهر یه نمونه میزارم.
من ADO رو ساختم !! فقط مونده کد نویسی !!نقل قول:
میشه کمک کنید ؟؟
فرم من یه جورایی مشخصات مشتری هستش !!!
نام ، نام خانوادگی ، ...
ممنون میشم کمکم کنید !
کد نویسی فقط واسه جستجو لازمه.نقل قول:
اگه به Property های textbox نگاه کنی یه DataSource داره و یه DataField.
DataSource رو بزار رو اسم ADO و DtatField هم برابر او Filed بزار که میخوای تو textbox نشون داده بشه.
نمونه هم گزاشتم. (فقط دیتابیس رو کپی کن تو C که مشکلی واسه آدرس دهی نداشته باشی.)
در ضمن اگه میخوای گزارش بگیری میتونی از DataReport استفاده کنی.
کد:http://www.4shared.com/file/144589737/1e28dba7/ADO__Find.html
خیلی خیلی ممنون !!نقل قول:
خیلی به دردم خورد !!
فقط یه چند تا سوال !!
به طور مثال اگه تو قسمت جستجو از یه اسم دو تا باشه چی ؟؟؟
چطور میشه اون مورد استثنا رو انتخاب کرد ! مثلا علی 1 یا 2 رو انتخاب کرد ؟؟؟
سلام
از دستور sQl استفاده کنی راحتر و دقیق تر است
درمورد سوالت بعد از جستجو باید ببینی مثل اون فامیل چند تا است اگه یکی بود که هیچ اگه بیشتر بود باید button قرار بدهی که
بتوانی بین رکوردهای فیلتر شده حرکت کرد و مشتری مورد نظر را انتخاب کرد
بطور مثال مشتری مرادپور را سرچ می کنی برنامه اولین مشتری با نام مرادپور را نشان می دهد بعد اگر ان مشتری مورد نظر نبود با استفاده از دکمه به رکورد بعدی می روی یعنی دومین مشتری با نام مرادپور به همین روال تا زمانی که مشتری مورد نظر را پیدا کنی
یعنی شما میگی یه Buttom با نام بعدی بزنم ؟؟؟
من نمی خوام همه ی لیست رو با بعدی بیاره !! فقط می خوام اگه تکراری باشه یه لیست بیاره که بگه انتخاب کن و ...
میشه کد پرینت کردن رو هم بگید ؟؟
فقط می خوام اون نوشته هایی که تو باکس ها هستند پرینت بشن !!! فقط نوشته ها ! باکس ها پرینت نشن .
ممنون !! :11:
تایید میشه شدیدا. دستورات SQL فوق العاده اند.نقل قول:
نقل قول:
به طور مثال اگه تو قسمت جستجو از یه اسم دو تا باشه چی ؟؟؟
چطور میشه اون مورد استثنا رو انتخاب کرد ! مثلا علی 1 یا 2 رو انتخاب کرد ؟؟؟
یه نمونه میزارم واسه این کار.
البته این با فایله نه دیتابیس. سه تا اسم توش اضافه کردم ولی چون مشکل داره تو gride نشون نمیده. شما برو تو جستجو مسعود رو سرچ کن بعد رو هر کدوم خواستی برو مشاهده دقیق رو بزن.
کد:http://www.4shared.com/file/144609046/95c5521c/A3_-_Phone_Book.html
خیلی ممنون از کمکتون !!
یه سوال واسم پیش اومده !!
چرا بعضی از حروف به طور .... نشون داده میشه ؟ چطور برطرفشون کنم ؟
ایول این دموی اولی خیلی باحاله !!!
اینم SQL هستش یا ... ؟؟؟
نقل قول:
در مورد کد نویسی یه مشکل داره !!
یه بار اشتباهی وارد کنم و دوباره بخوام سرچ بزنم درست هم بزنم میگه موجود نیست !!!
ممنون میشم کمک کنید .
نقل قول:
اون به خاطره فونتیه که تو تکست استفاده شده. اگه Arial بزاری درست میشه.
نه این کلا با فایله. یه پروژه بود واسه قسمت فایلها تو مدرسه.
نگاه میکنم ببینم چشه.نقل قول:
در مورد کد نویسی یه مشکل داره !!
یه بار اشتباهی وارد کنم و دوباره بخوام سرچ بزنم درست هم بزنم میگه موجود نیست !!!
ممنون میشم کمک کنید .
نقل قول:
ممنون !
چطور میشه تو یه باکس تاریخ گذاشت ؟؟ از تاریخ خود سیستم استفاده کنه و اتوماتیک پر باشه !!
چطور میشه یه لیست باکس گذاشت و از دیتابیس چند تا داده رو بیاره ! داده هارو نشون نده تا وقتی که حرف اول اون داده رو بنویسم و .... !! مثل پیدا کردن Contact از گوشی موبایل !! چند حرف اول رو بنویسم و آخر سر انتخاب کنم .
ممنون :11:
نقل قول:
آخه اینو چطوری آریال کنم ؟؟؟؟؟ نام خانوادگی ....
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
این جستجو چرا فقط یه بار جستجو می کنه ؟؟؟ چطور میشه اینو بی نهایتش کرد ؟؟؟
فقط بار اول جستجو می کنه !! دفعه ی دوم درست هم بزنم میگه : پیدا نشد !!!
ممنون میشم کمکم کنید !
سلام.
کدها رو به صورت زیر تغییر بده درست میشه.
]کد:Dim KEY As String
Dim Search As String
KEY = InputBox("KEY:")
If KEY = Empty Then Exit Sub
Search = "Name='" & KEY & "'"
ado1.Recordset.Find Search
If Text1 <> KEY Then
MsgBox "Not Find, Try Again."
ado1.Recordset.MoveFirst
End If
در مورد فونت inputbox شاید اگه فونت خود فرم رو عوض کنی جواب بده. البته دقیق نمیدونم.
واسه لیست هم هنوز نتونستم لیست باکس رو به ADO وصل کنم اگه لیست وصل شه باقیش کاری نداره.
اگه جواب داده نمونه شو میزارم.
خیلی ممنون !! ولی من این Name رو می خوام به یه ردیف دیگه بزارم نمی شه ! پیدا نمی کنه ! نکنه من اشتباه می کنم ؟؟؟نقل قول:
من اون Name رو به Family تغییر میدم پیدا نمی کنه ! کدوم رو باید تغییر بدم ؟؟؟
می خوام از بین فامیل ها جستجو کنه !
ممنون .
سلام.نقل قول:
هر فیلدی رو که میخوای تو اون بگردی اسمش رو بزن به جای Name.کد:Search = "Name='" & KEY & "'"
فقط اگه فیلد رشته ای بود باید از سینگل کوتیشن استفاده کنی اگه نه نیازی نیست.
ممنون از همتون !!
حالا تو یه جا دیگه موندم !!!:دی
من یه دیتابیس دارم که اسم چند تا شرکت هستش توش !!!
می خوام تو یه تکست باکس یا هر چیزی شبیه اون که بتونم هم تکستش رو داشته باشم و هم بتونم داخل همون سرچ بزنم !!
به طور مثال : من می خوام اسم " شرکت سرمایه گذاری " رو سرچ برنم و هر چی تو دیتا بیس دارم رو بیاره !!! شبیه این :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام.
این یه نمونه واسه جستجوی هوشمند:
کد:http://www.4shared.com/file/147424613/68df1e4f/Search.html
ممنون ! ولی این موضوعش کلا با اونی که من می خواستم فرق داشت !! :31:نقل قول:
مشکلم حل شد !!!
برنامه هم تقریبا آماده هستش !! فقط یه قسمت پرینت گرفتنش مونده !!!
از این دیتا ریپورت چیزی می دونید ؟؟؟ چطور پرینت میگیره ؟ چطور تنظیمش کنم که دقیقا رو فرم بیوفته ؟؟
ممنون :11:
دیتا ریپورت یه جورایی مثل قسمت گزارش اکسس میمونه. ببین همچین چیزی به دردت میخوره یه توضیح بدم.نقل قول:
من می خوام فقط واسم پرینت کنه !! یکی از تکست هارو تنظیم کنم بقیه حله !!!نقل قول:
با یه Button پرینت کنه واسم ( برگه A5 هستش ) فرقی نمی کنه که چطور و چجور پرینت کنه !!!! فقط همون جایی که تنظیم شده رو اون پرینت کنه . :11:
واقعا ممنون از کمک شما .
بیش از 1000 سورس کد مختلف vb6 برای دانلود
VBSOFT.MIHANBLOG.COM
سلام دوستان من می خوام چنتا رکورد پشت سر هم پرینت یشه تو فرم
فیشهای انجمن های خیریه رو دیدن دیگه کمک می کنین یه فیش می دن بهتون من می خوام تو یرینت مثال 20 نفر کمک کردن براشون فیش صادر کنم تک تک جستجو نکنم واسشون پرینت بگیرم می خوام 20 نفر رو پشت سر هم تو فرم پرینت بگیره میشه؟ با vb اگه امکان داره زود جواب بدین مرسی
اگه امکان داره میل بزنین [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]