Дипломная работа: Автоматизация приема регистрируемых почтовых отправлений УФПС "Татарстан Почтасы"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
99
If InStr(DSHK, ProverkaPosylki2DataGridView.Rows(j).Cells(0).Value) =
0 Then
Proverka = False
MsgBox(«В контейнере лишняя посылка со штрихкодом « +
ProverkaPosylki2DataGridView.CurrentRow.Cells(0).Value.ToString)
End If
Next j
If Proverka = True Then
Me.ProverkaPosylki3TableAdapter.Fill
(Me.PochtaDataSet.ProverkaPosylki3, DataGridView1.CurrentRow.Cells(0).Value)
MsgBox(«Проверка прошла успешно, все посылки на месте!»)
End If
End Sub
Private Sub ВнестиКонтейнерВБазуToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
ВнестиКонтейнерВБазуToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub ВнестиПосылкуВБазуToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ВнестиПосылкуВБазуToolStripMenuItem.Click
Form3.Show()
End Sub
End Class
100
Приложение 2
Листинг кода Form2 (Добавление контейнера в базу)
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Operatory». При необходимости она может быть перемещена или
удалена.
Me.OperatoryTableAdapter.Fill(Me.PochtaDataSet.Operatory)
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Otdeleniya». При необходимости она может быть перемещена или
удалена.
Me.OtdeleniyaTableAdapter.Fill(Me.PochtaDataSet.Otdeleniya)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.DobavKonteinerTableAdapter.Fill(Me.PochtaDataSet.DobavKonteiner,
DSHK.Text, OtdOtprav.CurrentRow.Cells(0).Value, Oper.CurrentRow.Cells(0).Value)
MsgBox(«Контейнер добавлен!»)
End Sub
End Class
101
Приложение 3
Листинг кода Form3 (Добавление посылки в базу)
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Regiony1». При необходимости она может быть перемещена или
удалена.
Me.Regiony1TableAdapter.Fill(Me.PochtaDataSet.Regiony1)
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Regiony». При необходимости она может быть перемещена или
удалена.
Me.RegionyTableAdapter.Fill(Me.PochtaDataSet.Regiony)
'TODO: данная строка кода позволяет загрузить данные в таблицу
«PochtaDataSet.Konteinery». При необходимости она может быть перемещена или
удалена.
Me.KonteineryTableAdapter.Fill(Me.PochtaDataSet.Konteinery)
End Sub
Private Sub RegionOtprav_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RegionOtprav.SelectionChanged
If RegionOtprav.SelectedCells.Count > 0 Then
Me.VyborRayonaTableAdapter.Fill(Me.PochtaDataSet.VyborRayona,
RegionOtprav.CurrentRow.Cells(0).Value)
End If
End Sub
Private Sub RayonOtprav_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RayonOtprav.SelectionChanged
If RayonOtprav.SelectedCells.Count > 0 Then
Me.VyborPunktaTableAdapter.Fill(Me.PochtaDataSet.VyborPunkta,
RayonOtprav.CurrentRow.Cells(0).Value)
End If
102
End Sub
Private Sub RegionPoluch_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RegionPoluch.SelectionChanged
If RegionPoluch.SelectedCells.Count > 0 Then
Me.VyborRayona1TableAdapter.Fill(Me.PochtaDataSet.VyborRayona1,
RegionPoluch.CurrentRow.Cells(0).Value)
End If
End Sub
Private Sub RayonPoluch_SelectionChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RayonPoluch.SelectionChanged
If RayonPoluch.SelectedCells.Count > 0 Then
Me.VyborPunkta1TableAdapter.Fill(Me.PochtaDataSet.VyborPunkta1,
RayonPoluch.CurrentRow.Cells(0).Value)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.DobavPosylkuTableAdapter.Fill(Me.PochtaDataSet.DobavPosylku,
Shtrihkod.Text, Otprav.Text, Poluch.Text, Konteiner.Text,
IndeksOtprav.Text, AdresOtprav.Text,
PunktOtprav.CurrentRow.Cells(0).Value,
IndeksPoluch.Text, AdresPoluch.Text,
PunktPoluch.CurrentRow.Cells(0).Value)
End Sub
End Class
103
Приложение 4
Хранимые процедуры БД
1. DobavKonteiner - хранимая процедура БД, непосредственно отвечающая за
добавление контейнера в базу:
PROCEDURE [dbo].[DobavKonteiner]
@DSHK varchar(4000),
@KodOtd smallint,
@KodOp int
AS BEGIN
SET NOCOUNT ON;
INSERT INTO Konteinery (DSHK, OtdOtprav, Operator, Proverka)
VALUES (@DSHK, @KodOtd, @KodOp, 0)
END
2. DobavPosylku - хранимая процедура БД, непосредственно отвечающая
за добавление посылки в базу:
PROCEDURE [dbo].[DobavPosylku]
@Shtrihkod nchar(13),
@Otpravitel nvarchar(50),
@Poluchatel nvarchar(50),
@Konteiner bigint,
@IndexOtprav nchar(15),
@AdresOtprav nchar(50),
@PunktOtprav int,
@IndexPoluch nchar(15),
@AdresPoluch nchar(50),
@PunktPoluch int
AS BEGIN
SET NOCOUNT ON;
INSERT INTO Posylki VALUES (@Shtrihkod,@Otpravitel,@Poluchatel
,@Konteiner,@IndexOtprav,@AdresOtprav,
@PunktOtprav,@IndexPoluch,@AdresPoluch, @PunktPoluch)
END
Источник: https://baza.diplomsite.ru/previewfile/1481

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009