پروژه SSADM سیستم فروش بخش پانزدهم
فرم CoID:
این فرم پیچیده ترین فرم از لحاظ برنامه نویسی است که در این نرم افزار از آن استفاده گردیده است. به این دلیل که با استفاده از این فرم می توان به صورت Dynamic کد هایی برای شناسائی مشتریان شرکت و نوع خدمات دریافتی استفاده نمود. در حقیقت اینجا دیگر از ورود کد دستی خبری نیست و کد به صورت Dynamic تولید و در فیلد کد اصلی شرکت ذخیره می شود.
Source Code مربوط به کل فرم به صورت ذیل می باشد:
Option Compare Database
========================================
Private Sub Command20_Click()
DoCmd.Close
End Sub
========================================
Private Sub Command8_Click()
EndCode = Text6
If CoFirst = "C" Then KohrangLastic.Visible = True: Sazandish.Visible = True: KohrangBaspar.Visible = True
CoSecond.SetFocus
'If CoFirst = "C" Then Sazandish.Visible = True
'If CoFirst = "C" Then KohrangBaspar.Visible = True
MsgBox (CoFirst)
End Sub
========================================
Private Sub Form_AfterUpdate()
On Error GoTo al1
Check9.Visible = False
'On Error GoTo al1
Check17.Visible = False
'On Error GoTo al1
Check15.Visible = False
'On Error GoTo al1
KohrangLastic.Visible = False
'On Error GoTo al1
Sazandish.Visible = False
'On Error GoTo al1
KohrangBaspar.Visible = False
'If CoFirst = "C" Then Check9.Visible = True
Exit Sub
al1: Call errors
End Sub
========================================
Private Sub Form_Open(Cancel As Integer)
Dim a As Integer
Dim ff As New ClassShamsi
Form.Caption = ff.Shamsi
DoCmd.GoToRecord , , acNewRec
CoSecond.SetFocus
Check9.Visible = False
Check17.Visible = False
Check15.Visible = False
KohrangLastic.Visible = False
Sazandish.Visible = False
KohrangBaspar.Visible = False
End Sub
Public Sub errors()
MsgBox (Err.Number & "hoy")
DoCmd.GoToRecord , , acPrevious
End Sub
========================================
Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
DoCmd.GoToRecord , , acPrevious
Exit_Command19_Click:
Exit Sub
Err_Command19_Click:
MsgBox Err.Description
Resume Exit_Command19_Click
End Sub
========================================
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command23_Click:
Exit Sub
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
End Sub
========================================
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
DoCmd.GoToRecord , , acNext
Exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command24_Click
End Sub
========================================
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
DoCmd.GoToRecord , , acPrevious
Exit_Command25_Click:
Exit Sub
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub
========================================
Private Sub Command26_Click()
On Error GoTo Err_Command26_Click
DoCmd.GoToRecord , , acFirst
Exit_Command26_Click:
Exit Sub
Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click
End Sub
========================================
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click
DoCmd.GoToRecord , , acLast
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
End Sub
========================================
Private Sub Command28_Click()
On Error GoTo Err_Command28_Click
DoCmd.GoToRecord , , acNewRec
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
========================================
Private Sub Command29_Click()
On Error GoTo Err_Command29_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command29_Click:
Exit Sub
Err_Command29_Click:
MsgBox Err.Description
Resume Exit_Command29_Click
End Sub
فرم ShipMeth:
از این فرم برای تعریف کد روش حمل بار استفاده می شود. (شکل زیر) در این فرم تنها کد نوشته Event کلیک برای خروج از این فرم است.
Option Compare Database
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
DoCmd.Close
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click
End Sub