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

End Sub

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

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

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

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

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

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

Private Sub Text7_Change() MSFlexGrid1.Text = Text7.Text End Sub

Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then

31

Text7.Visible = False End If End Sub

Private Sub Text7_LostFocus() Text7.Visible = False End Sub

材料信息管理：

Private Sub Command1_Click()

If (Trim(PutText(0).Text) = \ MsgBox \请输入材料名称\信息提示\ Exit Sub

End If

If (Trim(PutText(1).Text) = \ MsgBox \请输入规格型号\信息提示\ Exit Sub

End If

If (Trim(Text1) = \

MsgBox \请输入计量单位\信息提示\ Exit Sub End If

For i = 1 To MSFlexGrid1.Rows - 1 If MSFlexGrid1.TextMatrix(i, 1) = PutText(0).Text And MSFlexGrid1.TextMatrix(i, 2) = PutText(1) And MSFlexGrid1.TextMatrix(i, 3) = Text1 Then

MsgBox \表中已经存在此种材料的记录！\警告\

ShowID = NewID

PutText(0).Text = \ PutText(1).Text = \ Text1.Text = \ PutText(0).SetFocus Exit Sub End If Next i

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = NewID MSFlexGrid1.Col = 1

MSFlexGrid1.Text = PutText(0).Text MSFlexGrid1.Col = 2

MSFlexGrid1.Text = PutText(1).Text

32

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Text1.Text

Set rs = Mydb.OpenRecordset(\ rs.AddNew

rs.Fields(\

rs.Fields(\ If Trim(PutText(1).Text) <> \

rs.Fields(\ End If

If Trim(Text1.Text) <> \ rs.Fields(\ End If rs.Update rs.Close

NewID = NewID + 1 ShowID = NewID End Sub

Private Sub Command2_Click() If ShowID = \

MsgBox \请选择材料\信息提示\ Exit Sub End If Set rs = Mydb.OpenRecordset(\* from Goods where Goodsid='\+ Trim(ShowID) + \

If Not rs.EOF Then

If (vbYes = MsgBox(\您确定要删除该纪录吗？,这可能回导致数据的丢失\vbYesNo + vbQuestion, \信息提示\ rs.Delete

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

Else

For i = MSFlexGrid1.Row + 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.Row = i MSFlexGrid1.Col = 0 ll1 = MSFlexGrid1 MSFlexGrid1.Col = 1 ll2 = MSFlexGrid1 MSFlexGrid1.Col = 2 ll3 = MSFlexGrid1 MSFlexGrid1.Col = 3 ll4 = MSFlexGrid1

MSFlexGrid1.Row = i - 1

33

MSFlexGrid1.Col = 0 MSFlexGrid1 = ll1 MSFlexGrid1.Col = 1 MSFlexGrid1 = ll2 MSFlexGrid1.Col = 2 MSFlexGrid1 = ll3 MSFlexGrid1.Col = 3 MSFlexGrid1 = ll4 Next

MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1 End If End If End If rs.Close End Sub

Private Sub Command3_Click() If ShowID = \

MsgBox \请选择材料\信息提示\ Exit Sub End If

Set rs = Mydb.OpenRecordset(\\

If Not rs.EOF Then

If (Trim(PutText(0).Text) = \ MsgBox \请输入材料名称\信息提示\ Exit Sub

End If

If (Trim(PutText(1).Text) = \

MsgBox \请输入规格型号\信息提示\ Exit Sub End If

If (Trim(Text1) = \

MsgBox \请输入计量单位\信息提示\ Exit Sub End If

For i = 1 To MSFlexGrid1.Rows - 1

If MSFlexGrid1.TextMatrix(i, 1) = PutText(0).Text And MSFlexGrid1.TextMatrix(i, 2) = PutText(1) And MSFlexGrid1.TextMatrix(i, 3) = Text1 Then

MsgBox \表中已经存在此种材料的记录！\vbOKOnly + vbExclamation, \警告\

PutText(0).SetFocus Exit Sub

34

End If

Next i rs.Edit

rs.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Trim(PutText(0).Text) MSFlexGrid1.Col = 2

MSFlexGrid1.Text = Trim(PutText(1).Text) MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Trim(Text1.Text) If Trim(PutText(1).Text) <> \

rs.Fields(\ End If

If Trim(Text1.Text) <> \ rs.Fields(\ End If rs.Update End If rs.Close End Sub

Private Sub Command4_Click() Mydb.Close Unload Me

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

Private Sub Command5_Click() Call MSFlexGrid1_Dbl …… 此处隐藏：2229字，全部文档内容请下载后查看。喜欢就下载吧 ……