پروژه SSADM سیستم فروش بخش سیزدهم
فرم Reports:
از این فرم برای مشاهده و دسترسی به گزارشات موجود در سیستم نرم افزاری فروش استفاده می شود. این گزارشات شامل گزارشات آماری ، انواع برچسبها و نمودارها و . . . می باشند. ( شکل زیر )
این فرم از یک Option Group با پنج گزینه و چند کلید دیگر ساخته شده است که البته از این کلید ها برای مشاهده گزارشات تفکیکی و نمودارها و . . . استفاده می شود.
Source کد مربوط به Option Group فرم فوق در پائین ارائه گردیده است:
Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
Dim stDocName As String
stDocName = "CompanyID1"
Select Case [Frame5]
Case 1
DoCmd.OpenReport stDocName, acPreview
Reports![CompanyID1].Filter = "Id1 = 'K' "
Reports![CompanyID1].FilterOn = True
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Case 2
DoCmd.OpenReport stDocName, acPreview
Reports![CompanyID1].Filter = "Id1 = 'S' "
Reports![CompanyID1].FilterOn = True
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Case 3
DoCmd.OpenReport stDocName, acPreview
Reports![CompanyID1].Filter = "Id1 = 'B' "
Reports![CompanyID1].FilterOn = True
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Case 4
DoCmd.OpenReport stDocName, acPreview
Reports![CompanyID1].Filter = "Id1 = 'C' "
Reports![CompanyID1].FilterOn = True
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Case 5
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
End Select
Exit_Command19_Click:
Exit Sub
Err_Command19_Click:
MsgBox Err.Description
Resume Exit_Command19_Click
End Sub
کلید ( نام مدیران شرکتها ):
از این کلید برای مشاهده نام مدیران کلیه شرکتهای ثبت شده استفاده می شود. Source Code مربوط به Event کلیک تعریف شده به صورت زیر می باشد:
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Dim stDocName As String
stDocName = "Contacts"
DoCmd.OpenReport stDocName, acPreview
Exit_Command2_Click:
Exit Sub
Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click
End Sub
کلید ( نام مدیران به تفکیک ):
از این کلید برای مشاهده نام مدیران یک شرکت به وارد کردن کد آن شرکت استفاده می شود. Source Code مربوط به Event کلیک این کلید به شرح ذیل می باشد:
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click
Dim stDocName As String
Dim ali1 As Integer
ali1 = InputBox("لطفا کد شرکت را وارد نمائید.")
stDocName = "Contacts"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Reports![Contacts].Filter = "CoID = " & ali1 & " "
Reports![Contacts].FilterOn = True
Exit_Command3_Click:
Exit Sub
Err_Command3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click
End Sub
کلید ( کارت شناسائی پرسنل ):
از این کلید برای مشاهده کارتهای شناسائی پرسنل استفاده می شود. لازم به ذکر است که پس از ورود اطلاعات مربوط به هر یک از پرسنل ، به صورت خودکار یک کارت شناسائی صادر می گردد. Source Code مربوط به Event کلیک کلید فوق به شرح ذیل است:
Private Sub Command22_Click()
On Error GoTo Err_Command22_Click
Dim stDocName As String
stDocName = "PerCarts"
DoCmd.OpenReport stDocName, acPreview
Exit_Command22_Click:
Exit Sub
Err_Command22_Click:
MsgBox Err.Description
Resume Exit_Command22_Click
End Sub
کلید ( مشخصات پرسنل ):
از این کلید برای مشاهده کلیه مشخصات پرسنل فروش به صورت یک جدول منظم و کامل استفاده می شود. Source Code مربوط به Event کلیک به صورت ذیل می باشد:
Private Sub Command26_Click()
On Error GoTo Err_Command26_Click
Dim stDocName As String
stDocName = "Employee"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand (acCmdFitToWindow)
Exit_Command26_Click:
Exit Sub
Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click
End Sub