پروژه SSADM سیستم فروش بخش یازدهم

پروژه SSADM سیستم فروش بخش یازدهم

 Source Code & Forms

بررسی Source و فرمهای برنامه
فرم Index_Total:
این فرم در حقیقت فرم اولیه و اصلی نرم افزار فروش می باشد و شکل کلی آن به صورت زیر است:
 فرم Index_Total

برای این فرم Event ای با عنوان OnOpen تعریف گردیده است که در هنگام اجرای نرم افزار و Load شدم فرم این Source اجرا می شود.
Source این برنامه به صورت ذیل می باشد:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo ee
MsgBox "آرشیو فنی گروه صنعتی کهرنگ – نرم افزار ثبت اطلاعات مشتریان", , "programming by a. najafzadeh"
Form.Caption = ("Design And Data Base Programming By A. Najafzade" & Time())
Exit Sub
ee:
    MsgBox " شما مجاز به استفاده از این نرم افزار نمی باشید.", vbExclamation, "اخطار"
    DoCmd.Quit (acQuitSaveAll)
End Sub

همانگونه که در شکل مشاهده می شود این فرم دارای چهار کلید و یک  Sub form است 
که CompanyID subform نام دارد خود یک فرم است که نمایش آن به صورت Data Sheet view تنظیم گردیده است. محتوای این Data Sheet به صورت داینامیک Update می شود و احتیاجی به Referesh کردن ندارد.(شکل زیر)
فرم

کلید ( حذف / اضافه اطلاعات ) : 
از این کلید برای باز کردن فرم AddRemov که در آن اطلاعات را وارد می کنند استفاده می شود.
Source مربوط به Event کلیک تعریف شده برای این کلید به صورت ذیل می باشد:
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "AddRemov"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
    
End Sub

کلید ( مشاهده گزارشات ):
از این کلید برای باز کردن صفحه ای که مربوط به مشاهده انواع گزارشات و نمودارها بر حسب تاریخ و . . . می باشد استفاده می گردد.
Source مربوط به Event کلیک تعریف شده برای این کلید به صورت ذیل می باشد:
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Reports"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
    
End Sub

کلید ( تغییرات سیستمی ):
از این کلید برای باز کردن صفحه مربوط به تغییرات سیستمی استفاده می شود.
Source مربوط به Event کلیک تعریف شده برای این کلید به صورت ذیل می باشد:
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "System"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command2_Click:
    Exit Sub

Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click
    
End Sub
 

 

0 نظر

نظر محترم شما در مورد مقاله های وب سایت برنامه نویسی و پایگاه داده

نظرات محترم شما در خدمات رسانی بهتر ما را یاری می نمایند. لطفا اگر مایل بودید یک نظر ما را مهمان فرمائید. آدرس ایمیل و وب سایت شما نمایش داده نخواهد شد.

حرف 500 حداکثر

اطلاعات تماس

  • آدرس:اصفهان-خیابان ام کلثوم غربی - بعد خیابان تخم چی - بیست متر بعد از پیتزا ننه شب - کوچه تعمیر گاه سمار زغالی - پلاک 354 - درب مشکی - طبقه هفتم
  • آدرس ایمیل:najafzade@gmail.com
  • وب سایت:http://www.a00b.com/
  • تلفن ثابت:(+98)9131253620
  • تلفن همراه:09131253620