VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmQueryOrder 
   Caption         =   "消費明細(xì)表"
   ClientHeight    =   6255
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8880
   Icon            =   "frmQueryOrder.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   6255
   ScaleWidth      =   8880
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Height          =   540
      Left            =   30
      ScaleHeight     =   480
      ScaleWidth      =   11505
      TabIndex        =   3
      Top             =   2925
      Width           =   11565
      Begin VB.CommandButton cmdPrinter 
         Caption         =   "打印(&P)"
         Height          =   435
         Left            =   8385
         TabIndex        =   1
         Top             =   -15
         Width           =   1110
      End
      Begin VB.CommandButton cmdClose 
         Cancel          =   -1  'True
         Caption         =   "關(guān)閉(&C)"
         Height          =   435
         Left            =   10215
         TabIndex        =   2
         Top             =   15
         Width           =   1110
      End
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   2430
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   3885
      _ExtentX        =   6853
      _ExtentY        =   4286
      _Version        =   393216
      Rows            =   3
      RowHeightMin    =   50
      BackColorSel    =   14737632
      ForeColorSel    =   12582912
      BackColorBkg    =   12632256
      WordWrap        =   -1  'True
      AllowBigSelection=   0   'False
      FocusRect       =   0
      SelectionMode   =   1
      AllowUserResizing=   1
   End
   Begin VB.Menu MnuStoreDisplay 
      Caption         =   "事務(wù)(&T)"
      Begin VB.Menu MnuStorePrint 
         Caption         =   "打印(&P) ..."
         Shortcut        =   ^P
      End
      Begin VB.Menu Line02 
         Caption         =   "-"
      End
      Begin VB.Menu MnuReturn 
         Caption         =   "返回首頁(&R)"
      End
   End
   Begin VB.Menu MnuClose 
      Caption         =   "返回首頁(&R)"
   End
End
Attribute VB_Name = "frmQueryOrder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdClose_Click()

  Unload Me
  
End Sub

Private Sub cmdPrinter_Click()

  Me.MousePointer = 11
     frmSellPrint.Show 1
  Me.MousePointer = 0
  
End Sub

Private Sub cmdSearch_Click()

  Screen.MousePointer = 11
    Load frmMainSearch
    frmMainSearch.cmbBranchName.Enabled = False
    frmMainSearch.cmbBranchName.BackColor = &H8000000F
  Screen.MousePointer = 0
    frmMainSearch.Show 1
    
    '繼續(xù)工作
    Call QuerySell(True, True, MnuDisplayStoreMerge.Checked)
    
End Sub


Private Sub Form_Load()

    Screen.MousePointer = 11
    DCondStr = ""
     '給出當(dāng)前行的ID
    SCondStr = " SheelID=" & Val(frmCustomerOrder.Grid1.TextMatrix(frmCustomerOrder.Grid1.Row, 0))
    QueryStr = "Select * From Cust"
    Me.Show
    Me.Refresh
    Call QuerySell(True, True, True)
    Screen.MousePointer = 0
    
End Sub

Private Sub Form_Resize()

    Dim sngButtonTop As Single
    Dim sngScaleWidth As Single
    Dim sngScaleHeight As Single

    On Error GoTo Form_Resize_Error
    With Me
        sngScaleWidth = .ScaleWidth
        sngScaleHeight = .ScaleHeight

        ' 移動“關(guān)閉”按鈕到右下角
        With .Picture1
              sngButtonTop = sngScaleHeight - (.Height + MARGIN_SIZE)
              .Move MARGIN_SIZE, sngButtonTop, sngScaleWidth - (2 * MARGIN_SIZE), .Height
        End With
        
        With .cmdClose
              .Move Picture1.ScaleWidth - 10 - .Width, 30
        End With
        With .cmdPrinter
              .Move Picture1.ScaleWidth - 10 - .Width - cmdClose.Width - 40, 30
        End With
        
        .Grid1.Move MARGIN_SIZE, _
            MARGIN_SIZE, _
            sngScaleWidth - (2 * MARGIN_SIZE), _
            sngButtonTop - (2 * MARGIN_SIZE)

    End With
    Exit Sub

Form_Resize_Error:
    ' 避免負(fù)值錯誤
    Resume Next

End Sub

Private Sub QuerySell(CBranch As Boolean, CStyle As Boolean, CMerge As Boolean)

   Me.MousePointer = 11
   Dim DB As Database, Ef As Recordset, HH As Integer
   Dim MargeRowBN As String, X As Integer, tmpBNX As String, ZF As String
   Dim MargeRow As String, tmpBN As String
   
    '配置網(wǎng)格
    Dim StoreQueryString As String
    Select Case SCondStr
           Case ""
               StoreQueryString = QueryStr
           Case Is <> ""
               StoreQueryString = QueryStr + " Where " & SCondStr
    End Select
    If CBranch = True Then
       StoreQueryString = StoreQueryString + " Order by Site"  '類型
       Else
       StoreQueryString = StoreQueryString + " Order by DType" '單號
    End If
    
Grid1.Visible = False
Grid1.Clear
Grid1.Cols = 11
Grid1.FormatString = "^ .. |^ 座位 |^ 菜單類型 |^ 菜單號碼 |^ 物品名稱 |^ 單位 |^ 單價 |^ 數(shù)量 |^ 金額 |^ 加工費 |^ 總金額 "
Grid1.ColWidth(0) = 300
Grid1.ColWidth(1) = 1000
Grid1.ColWidth(2) = 1000
Grid1.ColWidth(3) = 1000
Grid1.ColWidth(4) = 1200
Grid1.ColWidth(5) = 600
Grid1.ColWidth(6) = 800
Grid1.ColWidth(7) = 800
Grid1.ColWidth(8) = 1000
Grid1.ColWidth(9) = 800
Grid1.ColWidth(10) = 1000

  On Error Resume Next
  
  Set DB = OpenDatabase(ConData, False, False, Constr)
    Set Ef = DB.OpenRecordset(StoreQueryString, dbOpenDynaset)
        '增加一個合計
 If Ef.EOF And Ef.BOF Then
    Grid1.Rows = 29
   Else
    Do While Not Ef.EOF
       Grid1.Rows = Grid1.Rows + 1
       Ef.MoveNext
    Loop
        If Grid1.Rows < 29 Then
           Grid1.Rows = 29 + 3
        End If
        Grid1.Rows = 29 + 3
        Ef.Close
    Set Ef = DB.OpenRecordset(StoreQueryString, dbOpenDynaset)
        HH = 1
        Do While Not Ef.EOF()
           Grid1.Row = HH
           Grid1.Col = 0
           Grid1.CellAlignment = 4
        If Not IsNull(Ef.Fields(0).Value) Then
           Grid1.Text = Ef.Fields(0).Value
        End If
           Grid1.Row = HH
           Grid1.Col = 1
           Grid1.CellAlignment = 4
        If Not IsNull(Ef.Fields("Site").Value) Then '"^ .. |^ 物品類別 |^ 物品名稱 |^ 單位 |^ 物品代碼 |^ 單價 |^ 數(shù)量 |^ 金額 |^ 購物日期 "
           Grid1.Text = Ef.Fields("Site").Value
         If CBranch = True Then
          If Trim(Grid1.Text) <> MargeRowBN Then
             tmpBN = Trim(Grid1.Text)
                If CMerge = False Then
                   Grid1.MergeCells = 0
                   Grid1.MergeCol(1) = False
                   Grid1.MergeRow(HH - 1) = False
                   Grid1.MergeRow(HH) = False
                End If
                For X = 1 To 8
                  Grid1.Col = X
                  If CMerge = False Then
                     Grid1.CellBackColor = &H80C0FF
                  Else
                     Grid1.CellBackColor = RGB(0, 0, 0)
                  End If
                Next
          ElseIf CMerge = True Then
              Grid1.MergeCells = 3
              Grid1.MergeCol(1) = True
              Grid1.MergeRow(HH - 1) = True
              Grid1.MergeRow(HH) = True
           Else
              Grid1.MergeCells = 0
              Grid1.MergeCol(1) = False
              Grid1.MergeRow(HH - 1) = False
              Grid1.MergeRow(HH) = False
          End If
              MargeRowBN = tmpBN
          Else
              Grid1.MergeCol(1) = False
         End If
        End If
           Grid1.Col = 2
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("DType").Value) Then
           Grid1.Text = Ef.Fields("DType").Value
            If CStyle = True Then
              If Trim(Grid1.Text) <> MargeRow Then
                 tmpBN = Trim(Grid1.Text)
                 If CMerge = False Then
                   Grid1.MergeCells = 0
                   Grid1.MergeCol(2) = False
                   Grid1.MergeRow(HH - 1) = False
                   Grid1.MergeRow(HH) = False
                End If
                For X = 1 To 8
                    Grid1.Col = X
                 If CMerge = False Then
                    Grid1.CellBackColor = &H80C0FF
                 Else
                    Grid1.CellBackColor = RGB(0, 0, 0)
                 End If
                Next
            ElseIf CMerge = True Then
              Grid1.MergeCells = 3
              Grid1.MergeCol(2) = True
              Grid1.MergeRow(HH - 1) = True
              Grid1.MergeRow(HH) = True
              Else
              Grid1.MergeCells = flexMergeRestrictAll
           End If
              MargeRow = tmpBN
          Else
              Grid1.MergeCol(2) = False
         End If
        End If
           Grid1.Col = 3
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("DNumber").Value) Then
           Grid1.Text = Ef.Fields("DNumber").Value
        End If
           Grid1.Col = 4
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("Name").Value) Then
           Grid1.Text = Ef.Fields("Name").Value '"^ .. |^ 物品類別 |^ 物品名稱 |^ 單位 |^ 物品代碼 |^ 單價 |^ 數(shù)量 |^ 金額 |^ 購物日期 "
        End If
           Grid1.Col = 5
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("Unit").Value) Then
           Grid1.Text = Format(Ef.Fields("Unit").Value, "Currency")
        End If
           Grid1.Col = 6
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("Price").Value) Then
           Grid1.Text = Ef.Fields("Price").Value
        End If
           Grid1.Col = 7
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("Quanty").Value) Then
           Grid1.Text = Ef.Fields("Quanty").Value
        End If
           Grid1.Col = 8
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("Amo").Value) Then
           Grid1.Text = Ef.Fields("Amo").Value
        End If
           Grid1.Col = 9
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("JGF").Value) Then
           Grid1.Text = Ef.Fields("JGF").Value
        End If
           Grid1.Col = 10
           Grid1.CellAlignment = 1
        If Not IsNull(Ef.Fields("Amos").Value) Then
           Grid1.Text = Ef.Fields("Amos").Value
        End If
          Ef.MoveNext
          HH = HH + 1
        Loop
        Ef.Close
        DB.Close
           Grid1.Row = HH + 1
        For X = 1 To 10
            Grid1.Col = X
            Grid1.CellForeColor = RGB(255, 0, 0)
        Next
        '定義合計
        Dim SumQTY As Currency  '合計第7列
            Grid1.Col = 7
        For X = 1 To HH - 1
            Grid1.Row = X
            SumQTY = SumQTY + Val(Grid1.Text)
        Next
            Grid1.Col = 2
            Grid1.Row = HH + 1
            Grid1.CellAlignment = 1
            Grid1.CellFontBold = True
            Grid1.CellFontSize = 10
            Grid1.Text = "--合  計--"
            Grid1.Col = 7
            Grid1.CellAlignment = 1
            Grid1.CellFontBold = True
            Grid1.CellFontSize = 10
            Grid1.Text = SumQTY
            SumQTY = 0
            Grid1.Col = 8   '合計第六行
        For X = 1 To HH - 1
            Grid1.Row = X
            SumQTY = SumQTY + Val(Grid1.Text)
        Next
            Grid1.Col = 8  '寫入
            Grid1.Row = HH + 1
            Grid1.CellAlignment = 1
            Grid1.CellFontBold = True
            Grid1.CellFontSize = 10
            Grid1.Text = SumQTY
            SumQTY = 0
            Grid1.Col = 9  '合計第七行
        For X = 1 To HH - 1
            Grid1.Row = X
            SumQTY = SumQTY + Val(Grid1.Text)
        Next
            Grid1.Col = 9  '寫入
            Grid1.Row = HH + 1
            Grid1.CellAlignment = 1
            Grid1.CellFontBold = True
            Grid1.CellFontSize = 10
            Grid1.Text = SumQTY
            SumQTY = 0
            Grid1.Col = 10  '合計第七行
        For X = 1 To HH - 1
            Grid1.Row = X
            SumQTY = SumQTY + Val(Grid1.Text)
        Next
            Grid1.Col = 10  '寫入
            Grid1.Row = HH + 1
            Grid1.CellAlignment = 1
            Grid1.CellFontBold = True
            Grid1.CellFontSize = 10
            Grid1.Text = SumQTY
        '定義合計結(jié)束
 End If
 Grid1.Col = 1
 Grid1.Row = 20
 Grid1.ColSel = 10
 Grid1.Visible = True
 Me.MousePointer = 0
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
  Set frmQueryOrder = Nothing
  SCondStr = ""
  QueryStr = "Select * From Site"
  frmCustomerOrder.Show
  
End Sub

Private Sub Grid1_DblClick()

  PopupMenu MnuStoreDisplay
  
End Sub

Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button = 2 Then
     PopupMenu MnuStoreDisplay
  End If
  
End Sub

Private Sub MnuClose_Click()

  MnuReturn_Click
  
End Sub

Private Sub MnuReturn_Click()
 
 Unload Me
 
End Sub


Private Sub MnuStorePrint_Click()

  cmdPrinter.Value = True
  
End Sub