Разработка программного обеспечения для складского учета
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
p>= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"cn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith
0And(DataGrid1.Text "да") Then Если имеется необработанная заявка
= "SELECT * FROM Raschod WHERE idCl_Z = " & idCl_Zrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withrs.BOF Or rs.EOF ThenSubIf.MoveFirstWhile Not rs.EOF В цикле проверяем наличие товара на складе= rs("Raschod_Tovar") Получаем ID Товара= "SELECT * FROM Tovar WHERE idTovar = " & numrsTovar = New ADODB.RecordsetrsTovar
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withrs("Raschod_quan") > rsTovar("Tovar_quan") Then"Невозможно выполнить заявку. на складе отсутствует требуемое количество товара"SubIf
.ClosersTovar = Nothing.MoveNext
Если цикл пройден, то значит товар есть.MoveFirstWhile Not rs.EOF В цикле проверяем наличие товара на складе= rs("Raschod_Tovar") Получаем ID Товара= "UPDATE Tovar SET Tovar_quan = Tovar_quan - " & rs("Raschod_quan") & " WHERE idTovar = " & numrsTovar = New ADODB.RecordsetrsTovar
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
WithrsTovar = Nothing.MoveNext.Closers = Nothing
= "UPDATE cl_z set cl_Z_flag = да WHERE idCl_Z = " & idCl_Zrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Withrs = Nothing.Closecn = Nothing
DE.rsComPZ.Close
DE.rsComPZ.Open.DataGrid2.Refresh"Расход произведен"IfSub
Sub Form_Activate()FmZ.DataGrid1.DataSource = DEFmZ.DataGrid2.DataSource = DE.DataGrid2.RefreshSub
Sub Form_Load().Columns("Cl_Z_Men").Visible = False.Columns("Cl_Z_Client").Visible = False.Columns("Cl_Z_Tovar").Visible = False.Columns("Cl_Z_Znum").Visible = False.Columns("Tovar_name").Visible = FalseSub
Код модуля FmZCont
cn As ADODB.Connectionrs As ADODB.RecordsetrsTovar As ADODB.Recordset
""Then="Provider=MSDAORA;"&_">Sub CBTovar_Click(Area As Integer)CBTovar.Text <> "" Then= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"
MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith= "SELECT * FROM Tovar WHERE idTovar = " & CBTovar.BoundTextrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
With.Text = rs("Tovar_price")IfSub
Sub RefreshData().rsComPZ.Close.rsComPZ.Open.rsComPZ.Fields(13).Value.CloseFmZ.DataGrid1.DataSource = DEFmZ.DataGrid2.DataSource = DE.DataGrid2.RefreshSub
Sub Command1_Click()
MsgBox idRaschodidRaschod = 0 Then Добавлние записи
TextCost.Text = "0" Then"Вы не выбрали товар или цена товара равна нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0" 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
DE.rsComRas.Close
DE.rsComRas.Open
Запрос на вставку данных
MsgBox idCl_Zx As Integer= CInt(idCl_Z)
MsgBox (x)= "Insert INTO Raschod (idCl_Z, Raschod_Tovar, Raschod_Price, Raschod_quan) VALUES (" & x & ", " & CBTovar.BoundText & "," & TextCost.Text & "," & TextQuan.Text & ")"
MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnlyWith
rs.Closers = Nothing.Closecn = NothingIf
0ThenTextCost.Text="0"Then""SubIf">idRaschod <> 0 Then Редактирование записиTextCost.Text = "0" Then"Вы не выбрали товар или цена товара равна нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0" Then"Количетсво товара не может быть пустым или нулевым значением"SubIf
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
Код модуля FmPrihod
cn As ADODB.Connectionrs As ADODB.RecordsetrsTovar As ADODB.Recordset
""Then="Provider=MSDAORA;"&_">Sub CBTovar_Click(Area As Integer)CBTovar.Text <> "" Then= "Provider = MSDAORA;" & _
"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"
MsgBox cmdcn = New ADODB.Connectioncn
.ConnectionString = cmd
.OpenWith= "SELECT * FROM Tovar WHERE idTovar = " & CBTovar.BoundTextrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
With.Text = rs("Tovar_price")
IfSub
Sub RefreshData().rsComPZ.Close.rsComPZ.Open.rsComPZ.Fields(13).Value.CloseFmZ.DataGrid1.DataSource = DEFmZ.DataGrid2.DataSource = DE.DataGrid2.RefreshSub
Sub Command1_Click()
MsgBox idRaschodidRaschod = 0 Then Добавлние записи
TextCost.Text = "0" Then"Вы не выбрали товар или цена товара равна нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0" 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
DE.rsComRas.Close
DE.rsComRas.Open
Запрос на вставку данных
MsgBox idCl_Zx As Integer= CInt(idCl_Z)
MsgBox (x)= "Insert INTO Raschod (idCl_Z, Raschod_Tovar, Raschod_Price, Raschod_quan) VALUES (" & x & ", " & CBTovar.BoundText & "," & TextCost.Text & "," & TextQuan.Text & ")"
MsgBox SQLrs = New ADODB.Recordsetrs
.Open SQL, cn, adOpenForwardOnly, adLockReadOnlyWith
rs.Closers = Nothing.Closecn = NothingIf
idRaschod <> 0 Then Редактирование записи
TextCost.Text = "0" Then"Вы не выбрали товар или цена товара равна нулю"SubIf
TextQuan.Text = "" Or TextQuan.Text = "0" Then"Количетсво товара не может быть пустым или нулевым значением"SubIf