frmsearch.dfm

实用的茶楼管理系统

object SearchForm: TSearchForm
  Left = 258
  Top = 113
  Width = 743
  Height = 478
  Caption = 'SearchForm'
  Color = 15451300
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000001119191919100000000000000000000119999991919110000000000000
    0000119999999919191100000000000000011119999999999191100000000000
    00038881999999999919100000000000000038F8199999999991910000000000
    0000038B8199999999991100000000000000038F819999999991911000000000
    0000038B8199999999991110000000000000038F819999999999911000000000
    000038B8199999999999111000000000000038FB199999999999911000000000
    00038F119999999999991110000000000001119999D9D9D9D999911000000000
    0019D998889D9D9D9D991100000000000019D9D8D9D9D9D9D991910000000000
    0019FDF9988888889D9111000000000000019F888DDDDDDD8891100000000000
    000019D891100DD8991100000000000000000119913809991111000000000000
    000000022238011111000000000000000000022A200B00000000000000000000
    00002A772003B00000000000000000000022A277000030000000000000000000
    0222AA220000000000000000000000002AAA2720000000000000000000000002
    22A2770000000000000000000000000000222200000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFF007FFFFC001FFFF8000FFFF00007FFE00003FFE00003FFF00001FFF80
    001FFF80000FFF80000FFF80000FFF00000FFF00000FFE00000FFE00000FFC00
    001FFC00001FFC00001FFE00003FFF00007FFF8000FFFFE003FFFF807FFFFF02
    3FFFFC073FFFF807FFFFF00FFFFFE01FFFFFFC3FFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 735
    Height = 451
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    ParentColor = True
    TabOrder = 0
    object grd: TcxGrid
      Left = 0
      Top = 40
      Width = 735
      Height = 411
      Align = alClient
      TabOrder = 0
      object grdTV_cOrder: TcxGridDBTableView
        DataController.DataSource = DS_cOrder
        DataController.Filter.Criteria = {FFFFFFFF0000000000}
        DataController.KeyFieldNames = 'ID'
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skSum
            FieldName = 'price'
            Column = grdTV_cOrderprice
          end
          item
            Kind = skSum
            FieldName = 'cMoney'
            Column = grdTV_cOrdercMoney
          end
          item
            Kind = skSum
            FieldName = 'custNum'
            Column = grdTV_cOrdercustNum
          end>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        object grdTV_cOrderID: TcxGridDBColumn
          Visible = False
          Options.Editing = False
          DataBinding.FieldName = 'ID'
        end
        object grdTV_cOrdercTableID: TcxGridDBColumn
          Visible = False
          Options.Editing = False
          Width = 77
          DataBinding.FieldName = 'cTableID'
        end
        object grdTV_cOrdercDate: TcxGridDBColumn
          Caption = #26085#26399
          Options.Editing = False
          Width = 68
          DataBinding.FieldName = 'cDate'
        end
        object grdTV_cOrdercTime: TcxGridDBColumn
          Caption = #26102#38388
          PropertiesClassName = 'TcxTimeEditProperties'
          Properties.TimeFormat = tfHourMin
          Options.Editing = False
          Width = 67
          DataBinding.FieldName = 'cTime'
        end
        object grdTV_cOrdercustNum: TcxGridDBColumn
          Caption = #39038#23458#20154#25968
          Options.Editing = False
          Width = 73
          DataBinding.FieldName = 'custNum'
        end
        object grdTV_cOrderprice: TcxGridDBColumn
          Caption = #24212#25910#37329#39069
          Options.Editing = False
          Width = 79
          DataBinding.FieldName = 'price'
        end
        object grdTV_cOrdercMoney: TcxGridDBColumn
          Caption = #23454#25910#37329#39069
          Options.Editing = False
          Width = 83
          DataBinding.FieldName = 'cMoney'
        end
        object grdTV_cOrderrebate: TcxGridDBColumn
          Caption = #25240#25187
          PropertiesClassName = 'TcxLabelProperties'
          Options.Editing = False
          Width = 54
          DataBinding.FieldName = 'rebate'
        end
        object grdTV_cOrderRemark: TcxGridDBColumn
          Caption = #22791#27880
          Options.Editing = False
          Width = 241
          DataBinding.FieldName = 'Remark'
        end
      end
      object grdTableView1: TcxGridTableView
        DataController.Filter.Criteria = {FFFFFFFF0000000000}
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
      end
      object grdDBTableView1: TcxGridDBTableView
        DataController.DataSource = DS_cOrderDetail
        DataController.DetailKeyFieldNames = 'OrderID'
        DataController.Filter.Criteria = {FFFFFFFF0000000000}
        DataController.KeyFieldNames = 'ID'
        DataController.MasterKeyFieldNames = 'ID'
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        object grdDBTableView1OrderID: TcxGridDBColumn
          DataBinding.FieldName = 'OrderID'
        end
        object grdDBTableView1MenuID: TcxGridDBColumn
          DataBinding.FieldName = 'MenuID'
        end
        object grdDBTableView1Price: TcxGridDBColumn
          DataBinding.FieldName = 'Price'
        end
      end
      object grdTV_cOrderDetail: TcxGridDBTableView
        DataController.DataSource = DS_cOrderDetail
        DataController.DetailKeyFieldNames = 'OrderID'
        DataController.Filter.Criteria = {FFFFFFFF0000000000}
        DataController.KeyFieldNames = 'OrderID'
        DataController.MasterKeyFieldNames = 'ID'
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsView.GroupByBox = False
        object grdTV_cOrderDetailOrderID: TcxGridDBColumn
          Visible = False
          DataBinding.FieldName = 'OrderID'
        end
        object grdTV_cOrderDetailMenuID: TcxGridDBColumn
          Visible = False
          DataBinding.FieldName = 'MenuID'
        end
        object grdTV_cOrderDetailName: TcxGridDBColumn
          Caption = #21517#31216
          Options.Editing = False
          Options.Filtering = False
          DataBinding.FieldName = 'Name'
        end
        object grdTV_cOrderDetailPrice: TcxGridDBColumn
          Caption = #21333#20215
          Options.Editing = False
          Options.Filtering = False
          DataBinding.FieldName = 'Price'
        end
      end
      object Lev_cOrder: TcxGridLevel
        GridView = grdTV_cOrder
        Options.DetailTabsPosition = dtpTop
        object Lev_cOrderDetail: TcxGridLevel
          GridView = grdTV_cOrderDetail
        end
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 735
      Height = 40
      Align = alTop
      BevelOuter = bvLowered
      Caption = #32508#21512#26597#35810
      Color = clYellow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12615680
      Font.Height = -21
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object Que: TADOQuery
    Active = True
    Connection = DM.AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cOrder')
    Left = 24
    Top = 224
  end
  object DS_cOrder: TDataSource
    DataSet = Que
    Left = 56
    Top = 224
  end
  object DS_cOrderDetail: TDataSource
    DataSet = Dataset_cOrderDetail
    Left = 56
    Top = 288
  end
  object Dataset_cOrderDetail: TADODataSet
    Active = True
    Connection = DM.AdoConn
    CursorType = ctStatic
    CommandText = 
      'select cOrderDetail.OrderID, cOrderDetail.MenuID,Menu.Name, cOrd' +
      'erDetail.Price'#13#10#13#10'from cOrderDetail,Menu'#13#10'where cOrderDetail.Men' +
      'uID=Menu.ID'
    Parameters = <>
    Left = 24
    Top = 288
  end
end