7 پروژه پزرگ Delphi با پایگاه داده SQL Server
انبار داری
اژانس تاکسی تلفنی
فروشگاه
دفترچه تلفن
ترمینال
تست اسکیوال
فروش بلیط
– پروژه ایجاد بانکهای اطلاعاتی –
برنامه رزرواسیون بلیط قطار با استفاده از نرم افزار دلفی
با عرض سلام و احترام خدمت استاد محترم ، توضیحاتی چند راجع به برنامه نوشته شده توسط اینجانب محضر شما ارائه شما می دهم:
برنامه رزرواسیون نوشته شده در زبان دلفی بوده و اینجانب سعی کرده ام تا آنجا که ممکن است برنامه در زمان اجرا به واقعیت نزدیک باشد. این برنامه دارای 9 فرم اصلی، و 3 جدول اطلاعاتی می باشد.
1 – فرم شماره 1 یا همان منوی اصلی برنامه که شامل چندین ایکون یا منوی اصلی در بالا می باشد که هر یک از این منوها نیز خود به زیر منوهایی دسته بندی شده اند. در حالت کلی میتوان گفت که این منوها به5 دسته کلی تقسیم بندی می شوند : دسته اول که ارائه دهنده یک سری مشخصات کلی راجع به قطارها ، نوع آنها ، شماره قطارها ،و سایر اطلاعات میباشند که منوی اصلی قطار به 3 زیر منوی افزودن ، حذف ، ویرایش تقسیم میشود که میتوان عملییاتهای ذکر شده را در مورد قطارها انجام داد.
دسته دوم نیز ارائه دهنده یک سری مشخصات کلی راجع به بلیطها و انواع آنها (نیم بها یا تمام بها )، صدور آنها، مرجوعی ها و سایر اطلاعات دیگر هستند.
دسته سوم منوی گزارش گیری میباشد که خود منو به 3 زیر منوی بلیطهای خریداری شده ،بلیطهای مرجوعی ، لیست قطارها تقسیم میشود که در حقیقت این منوها گزارشی از بلیطها و قطارها را ارائه میدهند.
دسته چهارم منوها شامل منو ماشین حساب جهت انجام محاسبات سریع در همین محل منوی اصلی میباشد.
پنجمین منوی اصلی ما منوی خروج میباشد که جهت خروج از برنامه به صورت کلی میتوان از این کلید استفاده کرد.
2 - فرم شماره 2 که در حقیقت شامل راه اندازی قطاری جدید در مسیری جدید می باشد که در این فرم ما مشخصات قطار ،نام آن و شماره قطار و نیز سایر اطلاعات مربوط به آن را وارد می کنیم.در ضمن نوع بلیطهای صادر شده برای آن قطار را نیز مشخص میکنیم که صدور بلیط هم با توجه به همین قطارها و نوع بلیط آنها خواهد بود.
3 – فرم شماره 3 جستجو بر اساس شماره قطار برای حذف ، ویرایش و یا تغییر اطلاعات مربوط به آن قطار می باشد که در ابتدا باید شماره قطار را وارد کنیم و سپس برنامه خود کل مشخصات آن قطار را خواهد آورد. حال ما با توجه به کلیدهای در نظر گرفته شده در پائین فرم میتوانیم تغییراتی در اطلاعات مربوط به آن قطارها اعمال کنیم.
4 – فرم شماره 4 در حقیقت فرم اصلی ما یا همان فرم صدور بلیط می باشد که با توجه به بلیطهای نیم بها یا تمام بها آنها را صادر میکند.البته صدور بلیط در اینجا با توجه به شماره قطار و نیز تعداد بلیط باقیمانده خواهد بود.
5 – این فرم برای لغو بلیط و در حقیقت برای بلیطهای مرجوعی می باشد که پس از لغو آنها بر اساس شناسه خرید هر بلیط ابتدا بلیط مورد نظر جستجو ، یافت شده و سپس لغو میگردد.در ضمن این بلیط به بلیطهای قابل فروش اضافه میشود.
6 – این فرم برای ثبت نام و نام خانوادگی افرادی میباشد که بلیط تهیه می کنند، چون ما در قسمت صدور بلیط ،بلیطها را بر اساس شماره قطار و سایر مشخصات صادر می کردیم ، به همین جهت نام افراد را در فرمی جداگانه ثبت میکنیم.
7 – فرم شماره 7 در حقیقت فرمی برای جستجوی لیست قطارها می باشد که ما توسط این فرم و جستجو می توانیم لیست کلیه قطارهایی را که در حال تردد بر روی مسیرهای مختلف میباشند را مشاهده کنیم. البته باید توجه داشت که جستجوی ما بر اساس مقصد این قطارها تعیین شده است.
8 – فرم شماره 8 در واقع لیست بلیطهای صادر شده برای افراد مختلف می باشد که ما با کمک این فرم میتوانیم کلیه بلیطهایی را که برای افراد صادر کرده ایم مشاهده کنیم.البته در ابتدا باید برای مشاهده این لیست ،بلیطها را بر اساس نام خانوادگی افراد باید جستجو و نظاره کنیم.
9 – این فرم نیز همانند فرم 8 بوده با این تفاوت که این فرم لیست بلیطهای لغو شده براساس نام خانوادگی افراد را جستجو و چاپ خواهد کرد.
همچنین برنامه ما شامل قسمت دیتا بیس نیز هست که در این قسمت بنده 3 جدول مختلف جهت درج اطلاعات و وارد کردن اطلاعات از طریق منوها یا فرمها ، ایجاد کرده ام.
جدول اول مربوط به جدول قطارها میباشد که در این جدول کلیه اطلاعات مربوط به قطارها،شماره آنها ، مبدا و مقصد انها، ساعت حرکت و روز حرکت ، ونیز نوع بلیطهای صادر شده برای آنها از قبیل نیم بها یا تمام بها ، موجود میباشد.
جدول دوم شامل کلیه اطلاعات مربوط به بلیطهای صادر شده توسط مشتریان یا همان خرید بلیط میباشد که در این جدول نیز اطلاعاتی نظیر نام قطار ،شماره آن ، نوع بلیط صادر شده ،تاریخ و ساعت حرکت ،مبدا ومقصد درج شده است.
جدول سوم نیز جدول بلیطهای مرجوعی یا همان بلیطهای پس ذاذه شده است که این بلیطها توسط مشتریان پس داده میشود و در این جدول نیز کلیه اطلاعات بلیط مرجوعی درج خواهد شد ، اطلاعاتی نظیر جدول شماره 2 .
در پایان با تشکر از زحمات استاد محترم ، امیدوارم که توانسته باشم با ارائه این پروژه گوشه ای از تلاشهای بیدریغ جنابعالی را جبرا ن کرده باشم.
نحوه نصب برنامه:
- فونتهای واقع در پوشه font در پوشه fonts ویندوز کپی شود.
- پوشه ای با نام دلخواه در پوشه Program files ایجاد گردد.
- پوشه data حاوی فایلهای بانک اطلاعاتی در پوشه مذکور(بند2) کپی گردد.
- فایل اجرایی برنامه بنام exe نیز در پوشه مذکور دربند2 کپی گردد.
- در برنامه Enterprise Manager نرم افزار SQL Server ، بانک اطلاعاتی frooshgah را که در پوشه data وجود دارد attach میکنیم.
- از فایل اجرایی برنامه یک میانبر به میزکار(Desktop) ایجاد می کنیم .
سورس:
/******************** کد کلید ورود به برنامه در فرم ورود ********************/
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if edit1.text='abc' then
begin
form1.Hide;
form2.show;
edit1.Clear;
exit;
end
else
edit1.Clear;
showmessage('رمز عبور اشتباه است') ;
activecontrol:=edit1;
end;
/***************** کد اضافه در فرم ورود اطلاعات اشخاص *******************/
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
if ((edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit5.Text='')) then
showmessage('اطلاعات درست و کامل وارد نشده است')
else
begin
if messagedlg('آیا می خواهید اطلاعات مورد نظر ذخیره شود',mtconfirmation,[mbyes,mbno],0 )=mryes then
begin
if bank1.table1.findkey([edit1.text]) then
showmessage('این اطلاعات قبلاً وارد شده است')
else
begin
bank1.table1.open;
bank1.table1.insert;
bank1.table1.fieldvalues['name']:=edit1.text;
bank1.table1.fieldvalues['cityname']:=edit2.text;
bank1.table1.fieldvalues['tel']:=edit3.text;
bank1.table1.fieldvalues['mobil']:=edit4.text;
bank1.table1.fieldvalues['address']:=edit5.text;
bank1.table1.fieldvalues['email']:=edit9.text;
bank1.table1.fieldvalues['codep']:=edit7.Text;
bank1.table1.fieldvalues['cardm']:=edit8.text;
bank1.table1.fieldvalues['fax']:=edit10.text;
bank1.table1.post;
showmessage('اطلاعات وارد گردید');
edit1.clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
activecontrol:=edit1;
end;
end;
end;
end;
حال برنامه آماده بهره برداری می باشد .
7 پروژه پزرگ دلفی با پایگاه داده SQL Server
