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

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

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

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

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

MSFlexGrid1.Text = \计量单位\ MSFlexGrid1.ColWidth(1) = 1200 NewID = 1000

Set Mydb = OpenDatabase(App.Path + \ Set rs = Mydb.OpenRecordset(\

Do While Not rs.EOF

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

MSFlexGrid1.Text = rs.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = rs.Fields(\ If NewID < rs.Fields(\ NewID = rs.Fields(\ End If

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = rs.Fields(\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = rs.Fields(\ rs.MoveNext Loop

rs.Close

NewID = NewID + 1

ShowID.Caption = Trim(Format(NewID)) Command3.Enabled = False Command2.Enabled = False End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub

Private Sub MSFlexGrid1_DblClick() If (MSFlexGrid1.Row = 0) Then Exit Sub

36

End If

MSFlexGrid1.Col = 0

Set rs = Mydb.OpenRecordset(\* from goods where Goodsid='\+ MSFlexGrid1.Text + \ If Not rs.EOF Then

ShowID.Caption = rs.Fields(\ PutText(0).Text = rs.Fields(\ If (Not IsNull(rs.Fields(\ PutText(1).Text = rs.Fields(\ Else

PutText(1).Text = \ End If

If (Not IsNull(rs.Fields(\ Text1.Text = rs.Fields(\ Else

Text1.Text = \ End If

Command3.Enabled = True Command2.Enabled = True End If

rs.Close End Sub

Private Sub PutText_GotFocus(Index As Integer) FocusMark = Index End Sub

库存余额信息：

Private Sub Command1_Click() Dim db As Database

Dim Myrs1 As Recordset, Myrs2 As Recordset Dim txtSQL As String Dim sSQL As String

Set db = OpenDatabase(App.Path + \ If Check1.Value = vbChecked Then

sSQL = \ End If

If Check2.Value = vbChecked Then

If Trim(sSQL & \

sSQL = \

Else

sSQL = sSQL & \ End If

37

End If

If Trim(sSQL) = \

MsgBox \请设置查询方式！\警告\ Exit Sub Else

MSFlexGrid1.Rows = 1

Set Myrs2 = db.OpenRecordset(\ If Myrs2.RecordCount >= 1 Then While Myrs2.EOF = False

Set Myrs1 = db.OpenRecordset(\goodsid='\& Myrs2.Fields(\& \and 材料编码='\& Myrs2.Fields(\& \

If Myrs1.RecordCount >= 1 Then

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

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 2

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 4

MSFlexGrid1.Text = Myrs1.Fields(\数量\

MSFlexGrid1.Col = 5

MSFlexGrid1.Text = Format(Myrs1.Fields(\单价\ MSFlexGrid1.Col = 6

MSFlexGrid1.Text = Format(Myrs1.Fields(\金额\ MSFlexGrid1.Col = 7

If IsNull(Myrs1.Fields(\备注\ MSFlexGrid1.Text = \

Else

MSFlexGrid1.Text = Myrs1.Fields(\备注\ End If

Myrs2.MoveNext Else

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

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 2

38

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 4 MSFlexGrid1.Text = 0 MSFlexGrid1.Col = 5 MSFlexGrid1.Text = 0 MSFlexGrid1.Col = 6 MSFlexGrid1.Text = 0 MSFlexGrid1.Col = 7 MSFlexGrid1.Text = \ Myrs2.MoveNext End If

Myrs1.Close Wend Else

MsgBox \不存在这种材料！\信息提示\ Exit Sub End If Myrs2.Close End If

db.Close End Sub

Private Sub Command2_Click()

Unload Me

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

Private Sub Form_Load() Dim db As Database

Dim Myrs1 As Recordset Dim SQLstring As String

MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 8

MSFlexGrid1.TextMatrix(0, 0) = \材料编码\ MSFlexGrid1.TextMatrix(0, 1) = \材料名称\ MSFlexGrid1.TextMatrix(0, 2) = \规格型号\ MSFlexGrid1.TextMatrix(0, 3) = \计量单位\ MSFlexGrid1.TextMatrix(0, 4) = \数量\ MSFlexGrid1.TextMatrix(0, 5) = \单价\ MSFlexGrid1.TextMatrix(0, 6) = \金额\ MSFlexGrid1.TextMatrix(0, 7) = \ …… 此处隐藏：2788字，全部文档内容请下载后查看。喜欢就下载吧 ……