پروژه SSADM سیستم فروش بخش یازدهم
Source Code & Forms
بررسی Source و فرمهای برنامه
فرم 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