Разработка программного изделия «Учет и автоматизация товарооборота», страница 5

КнопкаД1.Enabled = True

cmdDelete.Enabled = True

cmdSave.Visible = False

КнопкаО1.Visible = True

Form.Refresh

Exit_cmdSave_Click:

    Exit Sub

Err_cmdSave_Click:

    MsgBox Err.Description

    Resume Exit_cmdSave_Click

    End Sub

Private Sub Form_Load()

КнопкаД1.Visible = True

cmdDelete.Visible = True

КнопкаД1.Enabled = True

cmdDelete.Enabled = True

cmdSave.Visible = False

КнопкаО1.Visible = True

End Sub

// Программа на кнопку «Добавить»

Private Sub КнопкаД1_Click()

On Error GoTo Err_КнопкаД1_Click

kodI.SetFocus

КнопкаД1.Enabled = False

cmdDelete.Enabled = False

cmdSave.Visible = True

КнопкаО1.Visible = False

    Dim stDocName As String

    stDocName = "SQL3"

    DoCmd.RunMacro stDocName

Exit_КнопкаД1_Click:

    Exit Sub

Err_КнопкаД1_Click:

    MsgBox Err.Description

    Resume Exit_КнопкаД1_Click

    End Sub

// Программа на кнопку «Отчет»

Private Sub КнопкаО1_Click()

On Error GoTo Err_КнопкаО1_Click

    Dim stDocName As String

    stDocName = ChrW(1048) & ChrW(1079) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080) & ChrW(1103)

    DoCmd.OpenReport stDocName, acPreview

Exit_КнопкаО1_Click:

    Exit Sub

Err_КнопкаО1_Click:

    MsgBox Err.Description

    Resume Exit_КнопкаО1_Click

    End Sub

// Программа на кнопку «Удалить»

Private Sub cmdDelete_Click()

On Error GoTo Err_cmdDelete_Click

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_cmdDelete_Click:

    Exit Sub

Err_cmdDelete_Click:

    MsgBox Err.Description

    Resume Exit_cmdDelete_Click

End Sub

4.3.  Форма «Товарооборот»

// Программа на кнопку «Добавить»

Private Sub cmdChange_Click()

On Error GoTo Err_cmdChange_Click

   DoCmd.GoToRecord , , acNewRec

        txtKodP.Visible = False

    txtKodI.Visible = False

    cmbKodP.Visible = True

    cmbKodI.Visible = True

    cmdSave.Visible = True

    cmdOtch.Visible = False

    cmdDel.Visible = False

  Me![data] = Date

Exit_cmdChange_Click:

    Exit Sub

Err_cmdChange_Click:

    MsgBox Err.Description

    Resume Exit_cmdChange_Click

    End Sub

Private Sub kol_AfterUpdate()

Me![stoim] = Me![kol] * Me![zena]

End Sub

Private Sub Form_Load()

cmbKodP.Visible = False

cmbKodI.Visible = False

txtKodP.Visible = True

txtKodI.Visible = True

cmdSave.Visible = False

cmdOtch.Visible = True

cmdDel.Visible = True

End Sub

// Программа на кнопку «Отчет»

Private Sub cmdOtch_Click()

On Error GoTo Err_cmdOtch_Click

    Dim stDocName As String

    stDocName = ChrW(1058) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1088) & ChrW(1086) & ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1090)

    DoCmd.OpenReport stDocName, acPreview

Exit_cmdOtch_Click:

    Exit Sub

Err_cmdOtch_Click:

    MsgBox Err.Description

    Resume Exit_cmdOtch_Click

    End Sub

// Программа на кнопку «Сохранить»

Private Sub cmdSave_Click()

On Error GoTo Err_cmdSave_Click

        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

cmbKodP.Visible = False

cmbKodI.Visible = False

txtKodP.Visible = True

txtKodI.Visible = True

cmdOtch.Visible = True

cmdOtch.SetFocus

cmdSave.Visible = False

cmdDel.Visible = True

Exit_cmdSave_Click:

    Exit Sub

cmdSave.Visible = False

Err_cmdSave_Click:

    MsgBox Err.Description

    Resume Exit_cmdSave_Click

End Sub

// Программа на кнопку «Удалить»

Private Sub cmdDel_Click()

On Error GoTo Err_cmdDel_Click

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_cmdDel_Click:

    Exit Sub

Err_cmdDel_Click:

    MsgBox Err.Description

    Resume Exit_cmdDel_Click

    End Sub

5.   Фактическое выполнение плана

В соответствии с календарным планом разработки сдача программного изделия в эксплуатацию была намечена на 3 мая 2004. Но в связи с майскими праздниками и выходными днями 3-ее мая было нерабочим днём. И поэтому по соглашению с заказчиком сдача программного изделия перенесена на 22 мая 2004.

В остальном, какие-либо отклонения от плана отсутствуют.

6.  Установка ПИ

Заказчику передается ПИ на дискете (3,5”), которая содержит файл KURSOVIK RiSPSiIT1.mdb (программное изделие) и файл ReadMe.txt (в нем находится пароль для доступа к программе). Файл KURSOVIK RiSPSiIT1.mdb необходимо скопировать на жесткий диск по произвольному пути, после чего с программой уже можно работать.