پروژه SSADM سیستم فروش بخش دوازدهم
کلید ( گرفتن نسخه پشتیبان ):
از این کلید برای تهیه نسخه پشتیبان از کل پایگاه داده استفاده می شود. Source Code مربوط به فراخوانی فرم Back Up به صورت زیر می باشد:
Private Sub Command11_Click()
DoCmd.OpenForm ("back")
End Sub
فرم AddRemov:
این فرم حاوی کلیدهائی است که به وسیله آن می توان به سایر فرمهایی که جهت ورود اطلاعات تعبیه گردیده اند دسترسی پیداکرد. (شکل زیر)
Source کد Event مربوط به Load شدن فرم به شرح ذیل می باشد:
Private Sub Form_Current()
Form.Caption = (Date & "آرشیو فنی گروه ")
End Sub
کلید ( تعریف کد شرکتها ):
از این کلید برای فعال کردن فرم مربوط به تعریف کد شرکتها استفاده می شود. لازم به ذکر است که قبل از ویرایش اطلاعات مربوط به حذف و اضافه آدرسها باید در قیمت تعریف کد شرکتها یک کد برای شرکت مورد نظر تعریف نمود.
کلید ( تعریف کد حمل بار ):
در این فرم باید برای هر نوع حمل بار یک کد تعریف نمود. البته این تعریف کد باعث کوتاه نویسی و ساده نویسی می گردد. ولی در گزارشات همان نوع حمل بار نیز نمایش داده خواهد شد.
کلید ( تعریف کد محصول ):
هر محصول شامل یک کد و یک سری اطلاعات شامل قیمت و واحد اندازه گیری و . . . می باشد که با تعریف کد در هر زمانی فقط با ورود این کد می توان به سایر اطلاعات دسترسی پیدا نمود.
کلید ( حذف و اضافه آدرسها ):
با استفاده از این کلید می توان پس از تعریف یک کد برای شرکتها در قسمت تعریف کد شرکتها ، اطلاعات مربوط به تماس و ارتباط شرکتها را وارد نمود.
کلید ( فرم ثبت سفارشات ):
با استفاده از این کلید می توان به فرم ثبت سفارشات دسترسی پیدا نمود.
کلید ( ثبت ریز سفارشات ):
هر سفارش دارای یک سری اطلاعات دیگر نیز می باشد که برای جلوگیری از پیچیدگی فرم سفارشات ، سایر اطلاعات در فرم ریز سفارشات ثبت می گردند.
کلید ( برنامه کمکی ):
از این کلید برای دسترسی به Help برنامه استفاده می شود.
کلید ( تعریف کد پرسنل ):
با استفاده از این کلید می توان به صفحه تعریف کد پرسنل دسترسی پیدا نمود. در این قسمت علاوه بر تعریف کد پرسنل می توان عکس و سایر اطلاعات را نیز وارد نمود.
Source مربوط به کلیدهای فوق به شرح ذیل می باشند:
Option Compare Database
-------------------------------------------------------------------------------------
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Adress"
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command3_Click()
MsgBox "ÈÑÇí æÇÑÏ äãæÏä ãÔÎÕÇÊ ÔÑßÊ ÇÈÊÏÇ ÈÇíÏ íß ßÏ ÈÑÇí Âä ÏÑ ÞÓãÊ ÊÚÑíÝ ßÏ ÔÑßÊåÇ ÊÚÑíÝ äãÇÆíÏ", vbOKOnly, "ÈÑäÇãå ßãßí"
End Sub
-------------------------------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CoID"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
DoCmd.Close
Exit_Command2_Click:
Exit Sub
Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ShipMeth"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Products"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Orders"
DoCmd.Close , , acSaveYes
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "OrdersDetail"
DoCmd.Close , , acSaveYes
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Employee"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click
End Sub
-------------------------------------------------------------------------------------
Private Sub Command10_Click()
On Error GoTo Err_Command10_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Employee"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command10_Click:
Exit Sub
Err_Command10_Click:
MsgBox Err.Description
Resume Exit_Command10_Click
End Sub
-------------------------------------------------------------------------------------
کلید ( خروج ):
از این کلید برای بستن فرم AddRemov استفاده می شود و Source نوشته شده برای Event کلیک به صورت زیر می باشد.
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
DoCmd.Close
Exit_Command2_Click:
Exit Sub
Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click
End Sub