PDA

View Full Version : گفتگو: ایجاد آیکن و پنجره جدا از اکسس برای دیتابیس



Nazir Ahmad
شنبه 19 بهمن 1392, 12:56 عصر
سلام خدمت اساتید و دوستان گرامی
چند بار دیگه هم در تاپیکهای مختلف مثلتعیین عنوان برنامه بعد از مخفی کردن پنجره اصلی اکسس (http://barnamenevis.org/showthread.php?416447-%D8%AA%D8%B9%DB%8C%DB%8C%D9%86-%D8%B9%D9%86%D9%88%D8%A7%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%A8%D8%B9%D8%AF-%D8%A7%D8%B2-%D9%85%D8%AE%D9%81%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D9%BE%D9%86%D8%AC%D8%B1%D9%87-%D8%A7%D8%B5%D9%84%DB%8C-%D8%A7%DA%A9%D8%B3%D8%B3) این موضوع رو بیان کرده بودم و در بعضی تاپیکهای دیگه مثل نمایش آیکن نرم افزار در Task بار ویندوز (http://barnamenevis.org/showthread.php?361510-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%A2%DB%8C%DA%A9%D9%86-%D9%86%D8%B1%D9%85-%D8%A7%D9%81%D8%B2%D8%A7%D8%B1-%D8%AF%D8%B1-Task-%D8%A8%D8%A7%D8%B1-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2)هم به این موضوع عنوان شده بود اما نتیجه خاصی حاصل نشد و به همین دلیل پیشنهاد میدماگر دوستان نظری دارند در این رابطه ارایه کنند تا یه نتیجه‌گیری کلی حاصل بشه.
موضوع: میخوایم وقتی کارای طراحی دیتابیس تموم شد و اونو تحویل مشتری دادیم, بعد از راه اندازی برنامه, برناممون یه آیکون داشته باشه که در زمان باز شدن دیگه آیکون اکسس نمایش داده نشه (حتی در صورت امکان هنگام باز شدن برنامه اسپلش اسکرین اکسس هم دیگه نیاد و فرمی که ما میگیم به جای اون ظاهر بشه) مثل تمام برنامه های کاربردی که براخودشون مستقلند و آیکون جداگانه روی تسک بار دارند.
روش‌ها:
1- استفاده از یک برنماه Setup ساز: که با این روش میشه برنامه رو مثل تمام برنامه های کاربردی در یک مسیر مشخص نصب کرد و بعدا از اون استفاده کرد. (از دوستانی که تا به حال این کار رو کردند خواهش میکنم همکاری کنند و داشته‌ها و تجارب خودشونو با ما شریک کنند)
2- استفاده از امکانات خود اکس و کد نویسی برای این موضوع: که میشه وقت گذاشت, چند تا کد نوشت و .... (که البته این کار مستلزم وقت بیشتری خواهد بود و اساتیدی که در این زمینه مهارت و تجارب بیشتری دارند میتونند کمک کنند)
نوت: از هر روشی که استفاده بشه و بهتر و آسون‌تر باشه باید یه چیز رو در نظر گرفت اونم اینه که ما میخوایم وقتی فرم‌ها؛ گزارشات و ... اشیایی که تو دیتابیسمون طراحی کردیم رو Minimize و Maximize میکنیم دیگه روی آیکونی که معرفی میکنیم بشینه نه اینکه بره روی آیکون اکسس یا با مخفی کردن پنجره اصلی اکسس بره یه گوشه از بالای تسک بار

به امید همکاری اساتید و دوستان گرامی
یا حق

Qad2013
یک شنبه 20 بهمن 1392, 08:46 صبح
عرض سلام
موضوع خوبیه البته اگر اساتید محترم اگر در این تاپیک همکاری کنند؛

RESMAILY
یک شنبه 20 بهمن 1392, 20:21 عصر
به نام خدا
با سلام . چيزي كه شما مي خواهيد مكرر در تالار طرح شده است. يك راه ساده درون خود آكسس هست. شما يك مجموع كد بنويسيد كه ايكن برنامه و شورت كات و بقيه تنظيم ها را يك بار اجرا نمايد. آن را بوسيله يك ماكرو در اولين اجرا، اجرا كنيد و سپس ماكرو را با يك كد ديگر حذف كنيد. طبعا در اين اجرا آيكن برنامه و شورت كات برنامه و ايكن شورت كات و نحوه اجرا و غيره را مي توانيد بگنجانيد. براي اسپلش برنامه هم كه بارها ذكر شده كه يك فايل تصويري دلخواه و كم حجم با فرمن bitmap و همنام با برنامه بسازيد و كنار برنامه قرار دهيد و خلاص. پس:
1 - تنظيم آيكن و نام برنامه
2 - تنظيم شورت كات روي دسكتاب و آيكن مربوطه
3 - اجراي كد از طريق يك ماكرو در ابتداي برنامه
4 - حذف ماكروي مربوطه پس از انجام ماموريت(!)
همه را مي توانيد با ستاپ ساز خود آكسس يا هر ستاپ ساز ديگري بصورت يك بسته(پكيج) در آورده خدمت مشتري تان تقديم كنيد.
درضمن برنامه آماده ندارم كه تقديم تان كنم ولي اگر خواستيد، بطور پراكنده قطعه كدهايي هست كه با اجازه اساتيد تقديم خواهد شد.

abdoreza57
یک شنبه 20 بهمن 1392, 20:36 عصر
سلام

خوب ، مختصر و مفید بود ...

کد مورد 4 را حتما قرار بده اگر هم مقدوره همه موارد را تو یه بسته !

خدا نگهدار

Nazir Ahmad
دوشنبه 21 بهمن 1392, 07:45 صبح
به نام خدا
1 - تنظيم آيكن و نام برنامه
2 - تنظيم شورت كات روي دسكتاب و آيكن مربوطه
3 - اجراي كد از طريق يك ماكرو در ابتداي برنامه
4 - حذف ماكروي مربوطه پس از انجام ماموريت(!)
همه را مي توانيد با ستاپ ساز خود آكسس يا هر ستاپ ساز ديگري بصورت يك بسته(پكيج) در آورده خدمت مشتري تان تقديم كنيد.
درضمن برنامه آماده ندارم كه تقديم تان كنم ولي اگر خواستيد، بطور پراكنده قطعه كدهايي هست كه با اجازه اساتيد تقديم خواهد شد.
عرض سلام دوباره
ممنون دوست عزیز که وقت گذاشتید تا ما رو از تجربیات خودتون مستفید کنید.
بله دوست عزیز در تالار تاپیکهای مختلفی با این عنوان هست اما یا به طور کامل موضوعاتی که بنده مطرح کردم توش نیست و یا خود تاپیک به انتها نرسیده.
در ضمن ستاپ ساز اکسس رو در ورژزن 2013 کجا میشه پیدا کرد؟
ممنون میشم اگر نمونه‌ای ضمیمه کنید و یا همونطور که اشاره کردید کدهایی که گفتید رو قرار بدید.

یا حق

RESMAILY
سه شنبه 22 بهمن 1392, 13:53 عصر
به نام خدا
با سلام

کد مورد 4 را حتما قرار بده ...
چشم:


Function AllMcr(strName As String) As Boolean
Dim obj As AccessObject, dbs As Object
AllMcr = True
Set dbs = Application.CurrentProject
For Each obj In dbs.AllMacros
If obj.Name = strName Then Exit Function
Next obj
AllMcr = False
End Function

Private Sub Form_Open(Cancel As Integer)
'new display
If Not AllMcr(("Macro1")) Then exit sub
DoCmd.RunMacro "Macro1"
DoEvents
DoCmd.DeleteObject 4, "Macro1"
End Sub



در ضمن ستاپ ساز اکسس رو در ورژزن 2013 کجا میشه پیدا کرد؟
خدايي اش من هم نمي دانم!؟ ولي خب مي شود ازهمين ستاپ سازهاي ديگرهم استفاده كرد. كه مثلا پس از نصب موضوع سكوريتي لول را حل كنند و بعد برنامه را اجرا كنند و اينها.