پروژه SSADM سیستم فروش بخش شانزدهم

پروژه SSADM سیستم فروش بخش شانزدهم

 فرم  Products: 

از این فرم برای ورود مشخصات یک محصول استفاده می شود. (شکل زیر)
 فرم Products

فرم  Adress: 
از این فرم برای ورود اطلاعات مربوط به مشتریان به پایگاه داده استفاده می شود. قبل از ورود یک Massage box باز شده و پیغامی مبنی بر تعداد رکوردهای وارد شده بر روی صفحه نمایش می دهد. سپس فرم باز شده و یک رکورد خالی جدید به صورت خودکار ( توسط اجرای کد از پیش تعریف شده ) ایجاد
 می شود. (شکل زیر) 
 فرم Adress
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:

 از این فرم برای ثبت سفارشات شرکتها که توسط هر یک از کارمندان فروش دریافت گردیده است استفاده می شود. (شکل زیر)
فرم 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
====================================================
 

 

0 نظر

نظر محترم شما در مورد مقاله های وب سایت برنامه نویسی و پایگاه داده

نظرات محترم شما در خدمات رسانی بهتر ما را یاری می نمایند. لطفا اگر مایل بودید یک نظر ما را مهمان فرمائید. آدرس ایمیل و وب سایت شما نمایش داده نخواهد شد.

حرف 500 حداکثر

اطلاعات تماس

  • آدرس:اصفهان-خیابان ام کلثوم غربی - بعد خیابان تخم چی - بیست متر بعد از پیتزا ننه شب - کوچه تعمیر گاه سمار زغالی - پلاک 354 - درب مشکی - طبقه هفتم
  • آدرس ایمیل:najafzade@gmail.com
  • وب سایت:http://www.a00b.com/
  • تلفن ثابت:(+98)9131253620
  • تلفن همراه:09131253620