unit_order_list.dfm

来自「美汇美容网网站管理系统」· DFM 代码 · 共 229 行

object Form_order_list: TForm_order_list
  Left = 320
  Top = 223
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #35746#21333#21015#34920
  ClientHeight = 279
  ClientWidth = 559
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 0
    Top = 28
    Width = 559
    Height = 251
    Align = alClient
    DataSource = dm.dsOrder
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'iNo'
        Title.Caption = #35746#21333#21495
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'vEnterpriseName'
        Title.Caption = #32463#38144#21830
        Width = 123
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fMoney'
        Title.Caption = #20132#26131#37329#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dDate'
        Title.Caption = #19979#21333#26102#38388
        Width = 95
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'vFettle'
        Title.Caption = #35746#21333#29366#24577
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'vChamberlain'
        Title.Caption = #25910#27454#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'vShipper'
        Title.Caption = #21457#36135#20154
        Visible = True
      end>
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 559
    Height = 28
    Align = alTop
    AutoSize = True
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 542
      Height = 20
      Anchors = []
      AutoSize = True
      ButtonHeight = 20
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = #26597#30475
        ImageIndex = 0
        OnClick = DBGrid1DblClick
      end
      object ToolButton2: TToolButton
        Left = 31
        Top = 0
        Caption = #25490#24207
        DropdownMenu = pmSort
        ImageIndex = 1
        Style = tbsDropDown
        OnClick = N1Click
      end
      object ToolButton4: TToolButton
        Left = 75
        Top = 0
        Caption = #25628#32034
        DropdownMenu = pmSearch
        ImageIndex = 2
        Style = tbsDropDown
        OnClick = N6Click
      end
      object ToolButton5: TToolButton
        Left = 119
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton6: TToolButton
        Left = 127
        Top = 0
        Caption = #20851#38381
        ImageIndex = 3
        OnClick = ToolButton6Click
      end
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 432
    Top = 48
  end
  object pmSort: TPopupMenu
    OwnerDraw = True
    Left = 336
    Top = 10
    object N1: TMenuItem
      Caption = #25353#35746#21333#21495#25490#24207
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #25353#32463#38144#21830#25490#24207
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #25353#20132#26131#37329#39069#25490#24207
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #25353#19979#21333#26102#38388#25490#24207
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #25353#35746#21333#29366#24577#25490#24207
      OnClick = N5Click
    end
  end
  object pmSearch: TPopupMenu
    OwnerDraw = True
    Left = 371
    Top = 10
    object N6: TMenuItem
      Caption = #24555#36895#23450#20301'..'
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = #39640#32423#26597#35810'..'
      OnClick = N7Click
    end
  end
end