Разработка программного обеспечения для складского учета

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

?ожный - Москва: Экзамен, 2005. - 512 с.

.Энциклопедия об информационных технологиях. [Электронный ресурс] Режим доступа:

.Грофф, Д.А SQL: Полное руководство \ Д.А. Грофф, П.П. Вайнберг. - СПб.: БХВ-Петербург, 2001. - 816с.

.Диго, С.М. Проектирование и использования баз данных / C.М. Диго. - М.: Финансы и статистика, 2004. - 365с.

.Ермолович, Л.Л. Анализ финансово - хозяйственной деятельности предприятия / Л.Л. Ермолович. - Мн.: БГЭУ,2001. - 567 с.

.Каратыгин, С.А. Базы данных / С.А. Каратыгин, А.П. Тихонов, В.Н. Долголаптев. - М.: ABF, 2005. - 352 c.

.Кляуззе, В.П. Охрана труда: правовые и организационные вопросы \ В.П. Кляуззе. - Мн.: Дикта, 2006. - 416с.

.Ляхевич, А.Г. Обзор существующих СУБД: Oracle, Microsoft SQL Server, PostgreSQL, MySQL, DB2, Informix, VisualFoxPro, MS Access/ А.Г. Ляхевич. - Минск: 2002. - 245 с.

.Маклаков, С.В. BPwin ERwin CASE-средства разработки информационных систем \ С.В. Маклаков.- М.: ДИАЛОГ-МИФИ, 1999. - 256с.

.Методические указания по выполнению дипломного проекта для студентов специальностей 1-40 01 02 Информационные системы и технологии / сост.: О.И. Наранович. - Барановичи: РИО БарГУ, 2009 - 40с.

.Сергеев, И.В. Экономика предприятия: учеб.пособие / И.В. Сергеев. - 2-е изд., испр. - М.: Финансы и статистика, 2001. - 304 с.

.Смирнов, С.Н. Работаем с Oracle \ С.Н. Смирнов, И.С. Задворьев. - М.: Гелиос АРВ, 2002. - 496с.

.Урман, С.А. Oracle10g. Программирование на языке PL/SQL \ С.А. Урман. - М.:Лори, 2004. - 528с.

ПРИЛОЖЕНИЕ А

Листинг основных модулей

Код модуля FmMenuSub Command1_Click().ShowSub

Sub Command10_Click().ShowSub

Sub Command11_Click().ShowSub

Sub Command12_Click().ShowSub

Sub Command13_Click().ShowSub

Sub Command2_Click().ShowSub

Sub Command3_Click().ShowSub

Sub Command4_Click().ShowSub

Sub Command5_Click().ShowSub

Sub Command6_Click().ShowSub

Sub Command7_Click()

MsgBox CurDir("C") & "\Price.xlt"Sub

Sub Command8_Click()

FmZay.Show.ShowSub

Sub Command9_Click().ShowSub

Sub mnuCat_Click(Index As Integer).ShowSub

Sub mnuClient_Click().ShowSub

Sub mnuExit_Click().HideSub

Sub mnuInch_Click(Index As Integer).ShowSub

Sub mnuManuf_Click().ShowSub

Sub mnuOtkl1_Click().ShowSub

Sub mnuPack_Click().ShowSub

Sub mnuPrihod_Click().ShowSub

Sub mnuRas_Click().ShowSub

Sub mnuROtkl_Click()objExcel = CreateObject("Excel.Application").Workbooks.Open FileName:=CurDir & "\Itog.xlt"

rst As New ADODB.Recordset

ComRTovar.Openrst =.rsComOtkl

rst.Open.MoveFirst= 0= 4Until rst.EOF

0Then.Rows.Item(PosInc+i).Select.Selection.Insert.Rows.Item(PosInc).Select.Selection.Copy.Rows.Item(PosInc+i).Select.ActiveSheet.Paste.Application.CutCopyMode=FalseIf">Добавление новой строки:i <> 0 Then.Rows.Item(PosInc + i).Select.Selection.Insert.Rows.Item(PosInc).Select.Selection.Copy.Rows.Item(PosInc + i).Select.ActiveSheet.Paste.Application.CutCopyMode = FalseIf

.Cells(i + PosInc, 1) = i + 1.Cells(i + PosInc, 2) = rst!Tovar_name.Cells(i + PosInc, 3) = rst!Tovar_price.Cells(i + PosInc, 4) = rst!Tovar_quan.Cells(i + PosInc, 5) = rst!Sum_raschod_quan.Cells(i + PosInc, 6) = rst!otkl

= i + 1.MoveNext

With.Visible = True

Sub:.QuitobjExcel = NothingSub

Sub mnuRTovar_Click()objExcel = CreateObject("Excel.Application").Workbooks.Open FileName:=CurDir & "\Price.xlt"

Шапка счета:

objExcel.Cells(3, 2) = Format$(.rsComRTovar!NСчета, "0000")

objExcel.Cells(4, 2) = FormatDateTime(.rsСчета!Дата, vbGeneralDate)

rst As New ADODB.Recordset

ComRTovar.Openrst =.rsComRTovar

.rsСчета("СоставСчета").Value

Экспорт в таблицу состава счета:.Open.MoveFirst= 0= 4Until rst.EOF

.Cells(i + PosInc, 1) = i + 1.Cells(i + PosInc, 2) = rst!idTovar.Cells(i + PosInc, 3) = rst!Tovar_num.Cells(i + PosInc, 4) = rst!Tovar_name.Cells(i + PosInc, 5) = rst!Tovar_price.Cells(i + PosInc, 6) = rst!Tovar_quan

= i + 1.MoveNext

With.Visible = True

Sub:.QuitobjExcel = NothingSub

Sub mnuRTovar1_Click().ShowSub

Sub mnuSnabj_Click().ShowSub

Sub mnuSpis_Click().ShowSub

Sub mnuSuppl_Click().ShowSub

Sub mnuTovar_Click(Index As Integer).ShowSub

Sub mnuVid_Click().ShowSub

Код модуля FmZ

cn As ADODB.Connectionrs As ADODB.RecordsetrsTovar As ADODB.RecordsetSub Command1_Click().rsComPZ.Close.rsComPZ.OpenTextFlag.DataSource = DEDataGrid1.DataSource = DEDataGrid2.DataSource = DE.Refresh.RefreshSub

Sub Command2_Click().rsComPZ.Filter = "idCl_Z = " & DE.rsComPZ!idCl_Z.ShowSub

""Then_Z=DataGrid1.Text_Z=0If.ShowSub">Sub Command3_Click().Col = 13DataGrid1.Text = "да" Then"Данная заявка уже исполнена. Изменять ее нельзя"SubIf= 0.Col = 0DataGrid1.Text <> "" Then_Z = DataGrid1.Text_Z = 0If.ShowSub

Sub Command4_Click().Col = 13DataGrid1.Text = "да" Then"Данная заявка уже исполнена. Изменять ее нельзя"SubIf

""Then_Z=DataGrid1.Text_Z=0If">.Col = 0DataGrid1.Text <> "" Then_Z = DataGrid1.Text_Z = 0If

= "Provider = MSDAORA;" & _

"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"cn = New ADODB.Connectioncn

.ConnectionString = cmd

.OpenWith.Col = 0

DataGrid2.ApproxCount = 0 Then= -1= DataGrid2.TextIf= num= "SELECT * FROM Raschod WHERE idRaschod = " & numrs = New ADODB.Recordsetrs

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

WithidRaschod = -1 Then num = 0 Else num = rs("Raschod_Tovar")= "SELECT * FROM Tovar WHERE idTovar = " & numrsTovar = New ADODB.RecordsetrsTovar

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

0Then.CBTovar.BoundText=rsTovar("idTovar").Col=3.TextQuan.Text=DataGrid2.Text">Withnum <> 0 Then.CBTovar.BoundText = rsTovar("idTovar").Col = 3.TextQuan.Text = DataGrid2.Text

0ThenFmZCont.ShowSub">.Col = 5.TextCost.Text = DataGrid2.TextIf.Close.Closers = NothingrsTovar = Nothing.Closecn = NothingDataGrid2.ApproxCount <> 0 Then FmZCont.ShowSub

Sub Command5_Click(Index As Integer)DataGrid1.Text = "да" Then"Данная заявка проведена"SubIf

= "Provider = MSDAORA;" & _

"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"

MsgBox cmdcn = New ADODB.Connectioncn

.ConnectionString = cmd

.OpenWith.Col = 0= DataGrid2.Text

Запрос на вставку данных= "Delete From Raschod WHERE idRaschod = " & ras

MsgBox SQLrs = New ADODB.Recordsetrs

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

Withrs = Nothing

.Closecn = Nothing

.rsComPZ.Close.rsComPZ.OpenFmZ.DataGrid1.DataSource = DEFmZ.DataGrid2.DataSource = DE.DataGrid2.Refresh

.rsComPZ.Close.rsComPZ.Open.rsComPZ.Fields(13).Value.CloseFmZ.DataGrid1.DataSource = DEFmZ.DataGrid2.DataSource = DE.DataGrid2.RefreshSub

Sub Command6_Click() Отпуск товара по заявке.Col = 13DataGrid1.Text = "да" Then"Данная заявка проведена"SubIf

DataGrid2.Col = 1

if DE.rsComPZ.Fields

If DataGrid2.Text = "" Then

Exit Sub

""Then_Z=DataGrid1.Text_Z=0If">End If.Col = 0DataGrid1.Text <> "" Then_Z = DataGrid1.Text_Z = 0If

Blog

Разработка программного обеспечения для складского учета

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование