sql = "select * from 客戶名稱"
rs_custom.CursorLocation = adUseClient
rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic
While Not rs_custom.EOF
      Combo1.AddItem rs_custom.Fields(0)
      rs_custom.MoveNext
Wend
findok = True
modify = False                                 '非修改狀態
showgrid2 = False
cmdcancel.Enabled = False
displaygrid1                                    '調用顯示Datagrid1子程序
setgrid2head
loaderror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub
'顯示msflexgrid1子程序
Public Sub displaygrid1()
Dim i As Integer
On Error GoTo displayerror
setgrid
setgridhead
MSFlexGrid1.Row = 0
If Not rs_data1.EOF Then
   rs_data1.MoveFirst
   Do While Not rs_data1.EOF
            MSFlexGrid1.Row = MSFlexGrid1.Row + 1
            MSFlexGrid1.Col = 0
            If Not IsNull(rs_data1.Fields(0)) Then MSFlexGrid1.Text = rs_data1.Fields(0) Else MSFlexGrid1.Text = ""
            MSFlexGrid1.Col = 1
            If Not IsNull(rs_data1.Fields(1)) Then MSFlexGrid1.Text = rs_data1.Fields(1) Else MSFlexGrid1.Text = ""
            MSFlexGrid1.Col = 2
            If Not IsNull(rs_data1.Fields(2)) Then MSFlexGrid1.Text = rs_data1.Fields(2) Else MSFlexGrid1.Text = ""
            MSFlexGrid1.Col = 3
            If Not IsNull(rs_data1.Fields(3)) Then MSFlexGrid1.Text = rs_data1.Fields(3) Else MSFlexGrid1.Text = ""
            MSFlexGrid1.Col = 4
            If Not IsNull(rs_data1.Fields(4)) Then MSFlexGrid1.Text = rs_data1.Fields(4) Else MSFlexGrid1.Text = ""
            MSFlexGrid1.Col = 5
            If Not IsNull(rs_data1.Fields(5)) Then MSFlexGrid1.Text = rs_data1.Fields(5) Else MSFlexGrid1.Text = ""
            MSFlexGrid1.Col = 6
            If rs_data1.Fields(6) = True Then MSFlexGrid1.Text = "入賬" Else MSFlexGrid1.Text = "出賬"
            rs_data1.MoveNext
   Loop
End If
displayerror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Public Sub setgrid()
Dim i As Integer
On Error GoTo seterror
With MSFlexGrid1
    .ScrollBars = flexScrollBarBoth
    .FixedCols = 0
    .Rows = rs_data1.RecordCount + 1
    .Cols = 7
    .SelectionMode = flexSelectionByRow
For i = 0 To .Rows - 1
    .RowHeight(i) = 315
Next
For i = 0 To .Cols - 1
    .ColWidth(i) = 1300
Next i
End With
Exit Sub
seterror:
     MsgBox Err.Description
End Sub

Public Sub setgridhead()
On Error GoTo setheaderror
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 = "進出賬"
Exit Sub
setheaderror:
   MsgBox Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
findok = False
rs_data1.Close
rs_custom.Close
If showgrid2 = True Then
   rs_data2.Close
End If
End Sub

Private Sub MSFlexGrid1_Click()
On Error GoTo griderror
Dim getrow As Long
If showgrid2 = True Then
   rs_data2.Close
End If
getrow = MSFlexGrid1.Row
If MSFlexGrid1.Rows = 1 Then
   MsgBox "無相關紀錄", vbOKOnly + vbExclamation, ""
Else
select_row = MSFlexGrid1.TextMatrix(getrow, 0)
'進出賬標志
jinchu = MSFlexGrid1.TextMatrix(getrow, 6)
displaygrid2
modify = True
End If
griderror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Public Sub displaygrid2()
Dim sql As String
Dim i As Integer
On Error GoTo displaybasicerror
sql = "select * from 賬務資料 where 流水號=" & "'" & select_row & "'"
rs_data2.Open sql, conn, adOpenKeyset, adLockPessimistic
showdata
showgrid2 = True
Exit Sub
displaybasicerror:
   MsgBox Err.Description
End Sub

Public Sub setgrid2head()
Dim i As Integer
On Error GoTo set2error
With MSFlexGrid2
    .ScrollBars = flexScrollBarBoth
    .FixedCols = 0
    .Cols = 9
    .SelectionMode = flexSelectionByRow
For i = 0 To .Rows - 1
    .RowHeight(i) = 315
Next
For i = 0 To .Cols - 1
    .ColWidth(i) = 1000
Next i
    .Row = 0
    .Col = 0
    .Text = "流水號"
    .Col = 1
    .Text = "日期"
    .Col = 2
    .Text = "賬目名稱"
    .Col = 3
    .Text = "物品名稱"
    .Col = 4
    .Text = "單價"
    .Col = 5
    .Text = "數量"
    .Col = 6
    .Text = "單位"
    .Col = 7
    .Text = "金額"
    .Col = 8
    .Text = "客戶名稱"
End With
Exit Sub
set2error:
     MsgBox Err.Description
End Sub

Public Sub showdata()
With MSFlexGrid2
     .Rows = rs_data2.RecordCount + 1
     .Row = 0
If Not rs_data2.EOF Then
   rs_data2.MoveFirst
   Do While Not rs_data2.EOF
            .Row = .Row + 1
            .Col = 0
            If Not IsNull(rs_data2.Fields(0)) Then .Text = rs_data2.Fields(0) Else .Text = ""
            .Col = 1
            If Not IsNull(rs_data2.Fields(1)) Then .Text = rs_data2.Fields(1) Else .Text = ""
            .Col = 2
            If Not IsNull(rs_data2.Fields(2)) Then .Text = rs_data2.Fields(2) Else .Text = ""
            .Col = 3
            If Not IsNull(rs_data2.Fields(3)) Then .Text = rs_data2.Fields(3) Else .Text = ""
            .Col = 4
            If Not IsNull(rs_data2.Fields(4)) And CDbl(rs_data2.Fields(4)) < 0 Then
                    .Text = -CDbl(rs_data2.Fields(4))
            Else
                    .Text = rs_data2.Fields(4)
            End If
            .Col = 5
            If Not IsNull(rs_data2.Fields(5)) Then .Text = rs_data2.Fields(5) Else .Text = ""
            .Col = 6
            If Not IsNull(rs_data2.Fields(6)) Then .Text = rs_data2.Fields(6) Else .Text = ""
            .Col = 7
            If Not IsNull(rs_data2.Fields(7)) And CDbl(rs_data2.Fields(4)) < 0 Then
                    .Text = -CDbl(rs_data2.Fields(7))
            Else
                    .Text = rs_data2.Fields(7)
            End If
            .Col = 8
            If Not IsNull(rs_data2.Fields(8)) Then .Text = rs_data2.Fields(8) Else .Text = ""
            rs_data2.MoveNext
   Loop
   rs_data2.MoveLast
End If
End With
End Sub

Private Sub MSFlexGrid2_Click()
If cmdmodify.Caption = "確定" Then
MSFlexGrid2.Col = 3
nextpos MSFlexGrid2.Row, MSFlexGrid2.Col
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim i As Integer, j As Integer
Dim price As Double, coun As Integer
On Error GoTo texterror
If KeyAscii = 13 Then
   MSFlexGrid2.Text = Text1.Text
   i = MSFlexGrid2.Row
   j = MSFlexGrid2.Col
   If j = 3 And Trim(Text1.Text) = "" Then
      MsgBox "物品名稱不能為空", vbOKOnly + vbExclamation, ""
      Text1.SetFocus
      Exit Sub
   End If
   If j = 4 And Not IsNumeric(Text1.Text) Then
      MsgBox "單價請輸入數字！", vbOKOnly + vbExclamation, ""
      Text1.SetFocus
      Exit Sub
   End If
   If j = 5 And Not IsNumeric(Text1.Text) Then
      MsgBox "數量請輸入數字！", vbOKOnly + vbExclamation, ""
      Text1.SetFocus
      Exit Sub
   End If
   If j = 6 And Trim(Text1.Text) = "" Then
      MsgBox "單位不能為空！", vbOKOnly + vbExclamation, ""
      Text1.SetFocus
      Exit Sub
   End If
   If j = 6 And Not IsNull(Text1.Text) Then
      MSFlexGrid2.Col = 4                   '金額由程序算出
      price = CDbl(MSFlexGrid2.Text)
      MSFlexGrid2.Col = 5
      coun = CInt(MSFlexGrid2.Text)
      MSFlexGrid2.Col = 7
      MSFlexGrid2.Text = price * coun
      MSFlexGrid2.Col = MSFlexGrid2.Col + 1
      Text1.Visible = False
      Combo1.Width = MSFlexGrid2.CellWidth
      Combo1.Left = MSFlexGrid2.Left + MSFlexGrid2.ColPos(8)
      Combo1.Top = MSFlexGrid2.Top + MSFlexGrid2.RowPos(MSFlexGrid2.Row)
      Combo1.Text = MSFlexGrid2.Text
      Combo1.Visible = True
      Combo1.SetFocus
      KeyAscii = 0
      Exit Sub
   End If
MSFlexGrid2.Col = MSFlexGrid2.Col + 1
KeyAscii = 0
nextpos MSFlexGrid2.Row, MSFlexGrid2.Col
End If
Exit Sub
texterror:
    MsgBox Err.Description
End Sub

Public Sub nextpos(ByVal r As Integer, ByVal c As Integer)
On Error GoTo nexterror
Text1.Width = MSFlexGrid2.CellWidth
Text1.Height = MSFlexGrid2.CellHeight
Text1.Left = MSFlexGrid2.Left + MSFlexGrid2.ColPos(c)
Text1.Top = MSFlexGrid2.Top + MSFlexGrid2.RowPos(r)
Text1.Text = MSFlexGrid2.Text
Text1.Visible = True
Text1.SetFocus
Exit Sub
nexterror:
     MsgBox Err.Description
End Sub