Разработка программного обеспечения для складского учета
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;
MsgBox "!!"= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"
MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith
Запрос на обновление данных= "UPDATE Raschod SET idCl_Z = " & idCl_Z & ", Raschod_Tovar = " & CBTovar.BoundText & ", Raschod_Price = " & TextCost.Text & ", Raschod_quan = " & TextQuan.Text & " WHERE idRaschod = " & idRaschod
MsgBox SQL
MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnlyWith
rs.Closers = Nothing.Closecn = NothingIf
.rsComPZ.Close.rsComPZ.OpenFmZ.DataGrid1.DataSource = DEFmZ.DataGrid2.DataSource = DE.DataGrid2.Refresh
.HideRefreshDataSub
Sub Command2_Click().HideSub
Код модуля FmSpisanie
Sub UpdateData().rsComSpis.Close.rsComSpis.OpenSub
Sub UpdateElems()DataGrid1.DataSource = DEDataGrid2.DataSource = DETextDate.DataSource = DETextQuan.DataSource = DETextReason.DataSource = DESub
Sub Command1_Click().Enabled = True.Enabled = True.Enabled = True
TextDate.Enabled = True.rsComSpis.AddNew.Enabled = False.Enabled = False.Enabled = TrueUpdateElemsSub
Sub Command2_Click()
Проверка что в поле числоCommand1.Enabled = False ThenIsNumeric(TextQuan.Text) ThenDE.rsComTov!Tovar_quan - TextQuan.Text < 0 Then"Требуемое для списания количество товара отсутствует"SubIf"Введенное количество не является числом"SubIf
TextDate.Text = "" Or _.Text = "" Or _.Text = "" Then"Не все данные введены"SubIf.rsComSpis!spis_tovar = DE.rsComTov!idTovar.rsComSpis.Update.rsComTov!Tovar_quan = DE.rsComTov!Tovar_quan - TextQuan.Text.Enabled = True.Enabled = True
If.Enabled = False.Enabled = False.Enabled = FalseSub
Sub Command3_Click().rsComTov!Tovar_quan = DE.rsComTov!Tovar_quan + DE.rsComSpis!spis_quan.rsComSpis.DeleteSub
Sub Command4_Click().rsComSpis.CancelUpdate.Enabled = False.Enabled = True.Enabled = TrueSub
Sub Command5_Click().rsComTov.Filter = "idTovar = " & DE.rsComTov!idTovar.ShowSub
Sub Command6_Click()objExcel = CreateObject("Excel.Application").Workbooks.Open FileName:=CurDir & "\history.xlt"
DE
Шапка счета:.Cells(3, 2) = Format$(.rsComTov!idTovar, "0").Cells(3, 4) = Format$(.rsComTov!Tovar_num, "0000").Cells(4, 2) =.rsComTov!Tovar_name.Cells(6, 2) =.rsComTov!Tovar_note
rst As New ADODB.Recordset
ComRTovar.Open
rst =.rsComSpis
Экспорт в таблицу состава счета:
rst.Open.MoveFirst= 0= 9Until 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!spis_date.Cells(i + PosInc, 3) = rst!spis_quan.Cells(i + PosInc, 4) = rst!spis_reason= i + 1.MoveNext
With.Visible = True
Sub:.QuitobjExcel = NothingSub