物资管理信息系统 - 图文(6)

警告\

Text4.Text = \ Text4.SetFocus Exit Sub End If End If

If MSFlexGrid1.Rows > 1 Then Myrs1.AddNew

Myrs1.Fields(\出库单号码\ Myrs1.Fields(\发票号码\ Myrs1.Fields(\出库类型\ If Text3.Text = \

Myrs1.Fields(\工程号\ Else

Myrs1.Fields(\工程号\ End If

Myrs1.Fields(\出库日期\ If Text5.Text = \

Myrs1.Fields(\经办人\ Else

Myrs1.Fields(\经办人\ End If

If Text6.Text = \

Myrs1.Fields(\保管人\ Else

Myrs1.Fields(\保管人\ End If

Myrs1.Update

count = MSFlexGrid1.Rows For i = 1 To (count - 1) Myrs2.AddNew

Myrs2.Fields(\出库单号码\

Myrs2.Fields(\材料编码\ Myrs2.Fields(\数量\ If MSFlexGrid1.TextMatrix(i, 5) = \ Myrs2.Fields(\单价\

Else

Myrs2.Fields(\单价\ End If

Myrs2.Fields(\金额\ If MSFlexGrid1.TextMatrix(i, 7) = \ Myrs2.Fields(\备注\ Else

26

Myrs2.Fields(\备注\ End If

Myrs2.Update '更新余额库

str = MSFlexGrid1.TextMatrix(i, 0) Num = MSFlexGrid1.TextMatrix(i, 4) price = MSFlexGrid1.TextMatrix(i, 6)

SQLstring = \数量=数量-\金额=金额-\材料编码='\ Mydb.Execute (SQLstring)

'Set mrc = mydb.OpenRecordset(\材料编码='\

'If mrc.Fields(\数量\ 'mrc.Delete 'End If 'mrc.Close

Next i Unload Me

Project.StatusBar1.Panels(2).Text = \就绪\ Exit Sub Else

MsgBox \出库单中必须至少包含一项材料明细。\此出库单中未填写材料信息，请填写。\警告\ Exit Sub End If End Sub

Private Sub cmdAddRecord_Click()

Project.StatusBar1.Panels(2).Text = \添加出库信息\ OutInfo.Show 1 End Sub

Private Sub cmdCancel_Click() Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \ Text5.Text = \ Text6.Text = \ Combo1.ListIndex = 0 Text1.SetFocus

End Sub

Private Sub cmdClose_Click()

27

Myrs2.Close Myrs1.Close Mydb.Close Myws.Close Unload Me

Project.StatusBar1.Panels(2).Text = \就绪\End Sub

Private Sub cmdDelRecord_Click() Dim i As Integer, j As Integer

Text7.Visible = False

If MSFlexGrid1.Rows > 1 Then

If MsgBox(\确认要删除这条记录吗？\vbOKCancel + vbExclamation, \警告\= vbOK Then

i = MSFlexGrid1.Row

Text7.Text = MSFlexGrid1.TextMatrix(i, 0) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 0) = Text7.Text Text7.Text = MSFlexGrid1.TextMatrix(i, 1) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 1) = Text7.Text Text7.Text = MSFlexGrid1.TextMatrix(i, 2) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 2) = Text7.Text Text7.Text = MSFlexGrid1.TextMatrix(i, 3) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 3) = Text7.Text Text7.Text = MSFlexGrid1.TextMatrix(i, 4) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 4) = Text7.Text Text7.Text = MSFlexGrid1.TextMatrix(i, 5) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 5) = Text7.Text Text7.Text = MSFlexGrid1.TextMatrix(i, 6) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 6) = Text7.Text Text7.Text = MSFlexGrid1.TextMatrix(i, 7) Text7.Text = \

MSFlexGrid1.TextMatrix(i, 7) = Text7.Text For j = i To (MSFlexGrid1.Rows - 2)

MSFlexGrid1.TextMatrix(j, 0) = MSFlexGrid1.TextMatrix(j + 1, 0) MSFlexGrid1.TextMatrix(j, 1) = MSFlexGrid1.TextMatrix(j + 1, 1) MSFlexGrid1.TextMatrix(j, 2) = MSFlexGrid1.TextMatrix(j + 1, 2)

28

MSFlexGrid1.TextMatrix(j, 3) = MSFlexGrid1.TextMatrix(j + 1, 3) MSFlexGrid1.TextMatrix(j, 4) = MSFlexGrid1.TextMatrix(j + 1, 4) MSFlexGrid1.TextMatrix(j, 5) = MSFlexGrid1.TextMatrix(j + 1, 5) MSFlexGrid1.TextMatrix(j, 6) = MSFlexGrid1.TextMatrix(j + 1, 6) MSFlexGrid1.TextMatrix(j, 7) = MSFlexGrid1.TextMatrix(j + 1, 7) Next j

MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1 If MSFlexGrid1.Rows = 1 Then

cmdDelRecord.Enabled = False End If End If End If End Sub

Private Sub combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text3.SetFocus End If End Sub

Private Sub Form_Activate()

Project.StatusBar1.Panels(2).Text = \添加出库单\End Sub

Private Sub Form_Load() MSFlexGrid1.Cols = 8 MSFlexGrid1.Rows = 1

MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0

MSFlexGrid1.Text = \材料编码\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = \材料名称\ MSFlexGrid1.Col = 2

MSFlexGrid1.Text = \规格型号\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = \计量单位\ MSFlexGrid1.Col = 4 MSFlexGrid1.Text = \数量\ MSFlexGrid1.Col = 5 MSFlexGrid1.Text = \单价\ MSFlexGrid1.Col = 6 MSFlexGrid1.Text = \金额\ MSFlexGrid1.Col = 7

MSFlexGrid1.Text = \备注\

29

Text7.Visible = False Combo1.AddItem \修理\ Combo1.AddItem \销售\ Combo1.AddItem \改造\ Co …… 此处隐藏：2870字，全部文档内容请下载后查看。喜欢就下载吧 ……