پروژه SSADM سیستم فروش بخش شانزدهم
فرم Products:
از این فرم برای ورود مشخصات یک محصول استفاده می شود. (شکل زیر)
فرم Adress:
از این فرم برای ورود اطلاعات مربوط به مشتریان به پایگاه داده استفاده می شود. قبل از ورود یک Massage box باز شده و پیغامی مبنی بر تعداد رکوردهای وارد شده بر روی صفحه نمایش می دهد. سپس فرم باز شده و یک رکورد خالی جدید به صورت خودکار ( توسط اجرای کد از پیش تعریف شده ) ایجاد
می شود. (شکل زیر)
Source Code مربوط به کل فرم به صورت ذیل می باشد:
Option Compare Database
Private Sub Command30_Click()
On Error GoTo Err_Command30_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "AddRemov"
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command30_Click:
Exit Sub
Err_Command30_Click:
MsgBox Err.Description
Resume Exit_Command30_Click
End Sub
Private Sub Command32_Click()
On Error GoTo Err_Command32_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Contacts"
stLinkCriteria = "[Address]=" & "'" & Me![Row#] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command32_Click:
Exit Sub
Err_Command32_Click:
MsgBox Err.Description
Resume Exit_Command32_Click
End Sub
Private Sub Command33_Click()
On Error GoTo Err_Command33_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Contacts"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command33_Click:
Exit Sub
Err_Command33_Click:
MsgBox Err.Description
Resume Exit_Command33_Click
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
MsgBox Text35 & "= تعداد رکوردهای وارد شده " , "گزارش تعداد رکوردهای ثبت شده"
Text35.Visible = False
Form.Caption = "فرم ورود اطلاعات مربوط به مشتریان (طراحی شده در آرشیو فنی گروه صنعتی)"
End Sub
Private Sub Command34_Click()
On Error GoTo Err_Command34_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command34_Click:
Exit Sub
Err_Command34_Click:
MsgBox Err.Description
Resume Exit_Command34_Click
End Sub
Private Sub Command37_Click()
On Error GoTo Err_Command37_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command37_Click:
Exit Sub
Err_Command37_Click:
MsgBox Err.Description
Resume Exit_Command37_Click
End Sub
Private Sub Command38_Click()
On Error GoTo Err_Command38_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command38_Click:
Exit Sub
Err_Command38_Click:
MsgBox Err.Description
Resume Exit_Command38_Click
End Sub
فرم Orders:
از این فرم برای ثبت سفارشات شرکتها که توسط هر یک از کارمندان فروش دریافت گردیده است استفاده می شود. (شکل زیر)
Source Code مربوط به کل فرم به صورت ذیل می باشد:
Option Compare Database
====================================================
Private Sub Form_Open(Cancel As Integer)
Form.Caption = "فرم ورود اطلاعات سفارشات"
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "AddRemov"
DoCmd.Close , , acSaveYes
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command25_Click:
Exit Sub
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub
====================================================
Private Sub ORd_Enter()
If OrderDate <> "" Then ORd = Val(OrderDate)
End Sub
Private Sub SHd_Enter()
If ShipDate <> "" Then SHd = Val(ShipDate)
End Sub
Private Sub Command26_Click()
On Error GoTo Err_Command26_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command26_Click:
Exit Sub
Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click
End Sub
====================================================