پروژه اماده پزرگ دلفی پایگاه داده اس کیو ال سرور

7 پزرگ Delphi پایگاه داده SQL Server

انبار داری

اژانس تاکسی تلفنی

فروشگاه

دفترچه تلفن

ترمینال

تست اسکیوال

فروش بلیط

– ایجاد بانکهای اطلاعاتی –

برنامه رزرواسیون بلیط قطار استفاده نرم افزار دلفی

با عرض سلام احترام خدمت  استاد محترم ، توضیحاتی چند راجع برنامه نوشته شده توسط اینجانب محضر شما ارائه شما میدهم:

برنامه رزرواسیون نوشته شده زبان دلفی بوده اینجانب سعی کرده ام آنجا ممکن است برنامه زمان اجرا واقعیت نزدیک باشد. این برنامه دارای 9 فرم اصلی، 3 جدول اطلاعاتی میباشد.

1 – فرم شماره 1 همان منوی اصلی برنامه شامل چندین ایکون منوی اصلی بالا میباشد هر یک این منوها خود زیر منوهایی دسته بندی شده اند. حالت کلی میتوان گفت این منوها به5 دسته کلی تقسیم بندی میشوند دسته اول ارائه دهنده یک سری مشخصات کلی راجع قطارها ، نوع آنها ، شماره قطارها ،و سایر اطلاعات میباشند منوی اصلی قطار 3 زیر منوی افزودن ، حذف ، ویرایش تقسیم میشود میتوان عملییاتهای ذکر شده قطارها انجام داد.

دسته دوم ارائه دهنده یک سری مشخصات کلی راجع بلیطها انواع آنها (نیم بها تمام بها )، صدور آنها، مرجوعی سایر اطلاعات دیگر هستند.

دسته سوم  منوی گزارش گیری میباشد که  خود منو 3 زیر منوی بلیطهای خریداری شده ،بلیطهای مرجوعی ، لیست قطارها تقسیم میشود حقیقت این منوها گزارشی بلیطها قطارها ارائه میدهند.

دسته چهارم منوها شامل منو ماشین حساب انجام محاسبات سریع همین محل منوی اصلی میباشد.

پنجمین منوی اصلی ما منوی خروج میباشد خروج برنامه صورت کلی میتوان این کلید استفاده کرد.

2 -  فرم شماره 2 حقیقت شامل راه اندازی قطاری جدید مسیری جدید میباشد این فرم ما مشخصات قطار ،نام آن شماره قطار سایر اطلاعات مربوط آن وارد میکنیم.در ضمن نوع بلیطهای صادر شده آن قطار مشخص میکنیم صدور بلیط توجه همین قطارها نوع بلیط آنها خواهد بود.

3 – فرم شماره 3 جستجو اساس شماره قطار حذف ، ویرایش تغییر اطلاعات مربوط آن قطار میباشد ابتدا باید شماره قطار وارد کنیم سپس برنامه خود کل مشخصات آن قطار خواهد آورد. حال ما توجه کلیدهای نظر گرفته شده پائین فرم میتوانیم تغییراتی اطلاعات مربوط آن قطارها اعمال کنیم.

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;

حال برنامه بهره برداری میباشد .