پروژه SSADM سیستم فروش بخش چهاردهم
کلید ( آدرس (برچسب) ):
از این کلید برای چاپ آدرس شرکتها بر روی برچسبهائی به اندازه های مختلف (که در اینجا در هر صفحه A4 تعداد 12 عدد می باشد) استفاده می شود. لازم به ذکر است که پس از تعریف کد شرکت و ورود اطلاعات آدرس شرکتها یک برچسب به صورت خودکار ایجاد می گردد.
Source Code مربوط به Event کلیک به صورت ذیل می باشد:
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click
Dim stDocName As String
stDocName = "Labels Adress"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
End Sub
کلید ( لیست کلیه محصولات ):
از این کلید برای مشاهده لیست کلیه محصولات به صورت منظم استفاده می شود. Source Code این برنامه مشابه کدهای بالا می باشد.
کلید ( لیست تفکیکی سفارشات ):
این کلید فرمی را باز می کند که شامل اطلاعات مربوط به سفارشات گرفته شده توسط هر یک از کارمندان می باشد و در هر لحظه فقط نام یک کارمند نمایش داده می شود و در یک Sub Form لیست کامل سفارشات گرفته شده توسط همان کارمند نمایش داده می شود. (شکل زیر)
Source Code مربوط به فراخوانی فرم فوق به صورت زیر می باشد:
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Employee1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command23_Click:
Exit Sub
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
End Sub
کلید ( کلیه سفارشات ):
از این کلید برای مشاهده گزارش تمامی سفارشات دریافت شده در یک جدول منظم استفاده می شود.
Source Code مربوط به Event کلیک به صورت ذیل می باشد:
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim stDocName As String
stDocName = "Employee1"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Exit_Command25_Click:
Exit Sub
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub
کلید ( نمودار سفارشات ):
از این کلید برای مشاهده نمودار تعداد سفارشات دریافت شده توسط هر یک از پرسنل استفاده می شود.
Source Code مربوط به Event کلیک به صورت ذیل می باشد:
Private Sub Command28_Click()
On Error GoTo Err_Command28_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Charting1"
DoCmd.OpenForm stDocName, acFormPivotChart, , stLinkCriteria
DoCmd.Maximize
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
کلید ( سفارشات بر حسب تاریخ ):
پس از فشردن این کلید ابتدا فرمی باز می شود که در آن بایستی تاریخ آغاز و پایان را وارد نمود تا گزارش حاصله در بازه زمانی درخواستی نمایش داده شود.
Source Code مربوط به Event کلیک به صورت ذیل می باشد:
Private Sub Command30_Click()
On Error GoTo Err_Command30_Click
Dim stDocName As String
stDocName = "From_Date"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command30_Click:
Exit Sub
Err_Command30_Click:
MsgBox Err.Description
Resume Exit_Command30_Click
End Sub
فرم From_Date:
این فرم پس از فشردن کلید توضیح داده شده قبلی (کلید ( سفارشات بر حسب تاریخ )) فراخوانی شده و می توان از آن استفاده نمود. (شکل زیر)
Source Code مربوط به Event کلیک به صورت ذیل می باشد:
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
Dim stDocName As String
Dim shm As New ClassShamsi
Dim ali, ali1, ali3, ali4
Dim mmm As String
Dim a1 As Double, a2 As Double
ali = Text4 ' Define string.
ali1 = Right(ali, 2)
ali3 = Mid(ali, 5, 2)
ali4 = Left(ali, 4)
ali = (ali4 & "/" & ali3 & "/" & ali1)
mmm = ali
If shm.IsShamsi(mmm) = True Then MsgBox (mmm)
a1 = Val(Text4)
a2 = Val(Text6)
MsgBox (a1)
DoCmd.Close
stDocName = "Products"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand (acCmdZoom100)
Reports!Products.Filter = "[ORd] > " & a1 & " and [ORd] <= " & a2 & ""
Reports!Products.FilterOn = True
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click
End Sub