unit_order.~dfm

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

object Form_Order: TForm_Order
  Left = 225
  Top = 256
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #35746#21333#26126#32454
  ClientHeight = 245
  ClientWidth = 516
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 11
    Top = 12
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #35746#21333#21495
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 321
    Top = 12
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #20132#26131#37329#39069
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 157
    Top = 12
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #19979#21333#26085#26399
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 8
    Top = 40
    Width = 48
    Height = 12
    Caption = #35746#21333#26126#32454
  end
  object Label5: TLabel
    Left = 476
    Top = 12
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #20803
  end
  object Label6: TLabel
    Left = 8
    Top = 184
    Width = 48
    Height = 12
    Caption = #35746#21333#29366#24577
  end
  object Label7: TLabel
    Left = 171
    Top = 186
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #25910#27454#20154
    FocusControl = DBEdit4
  end
  object Label8: TLabel
    Left = 339
    Top = 186
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #21457#36135#20154
    FocusControl = DBEdit5
  end
  object Bevel1: TBevel
    Left = 8
    Top = 208
    Width = 505
    Height = 9
    Shape = bsTopLine
  end
  object DBEdit1: TDBEdit
    Left = 49
    Top = 8
    Width = 105
    Height = 20
    DataField = 'iNo'
    DataSource = dm.dsOrder
    Enabled = False
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 374
    Top = 8
    Width = 94
    Height = 20
    DataField = 'fMoney'
    DataSource = dm.dsOrder
    Enabled = False
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 56
    Width = 505
    Height = 120
    DataSource = dm.dsOrderItem
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'vGoodsSN'
        Title.Caption = #21830#21697#32534#21495
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'vGoodsName'
        Title.Caption = #21830#21697#21517#31216
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fTotalPrices '
        Title.Caption = #24635#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fUnitPrice'
        Title.Caption = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'iNum'
        Title.Caption = #25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fDiscount'
        Title.Caption = #25240#25187#29575
        Visible = True
      end>
  end
  object DBEdit3: TDBEdit
    Left = 209
    Top = 8
    Width = 105
    Height = 20
    DataField = 'dDate'
    DataSource = dm.dsOrder
    Enabled = False
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    TabOrder = 3
  end
  object DBComboBox1: TDBComboBox
    Left = 64
    Top = 181
    Width = 93
    Height = 20
    DataField = 'vFettle'
    DataSource = dm.dsOrder
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    ItemHeight = 12
    Items.Strings = (
      #26410#20184#27454
      #24050#20184#27454
      #24050#21457#36135)
    TabOrder = 4
  end
  object DBEdit4: TDBEdit
    Left = 209
    Top = 182
    Width = 105
    Height = 20
    DataField = 'vChamberlain'
    DataSource = dm.dsOrder
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    TabOrder = 5
  end
  object DBEdit5: TDBEdit
    Left = 377
    Top = 182
    Width = 105
    Height = 20
    DataField = 'vShipper'
    DataSource = dm.dsOrder
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    TabOrder = 6
  end
  object BitBtn1: TBitBtn
    Left = 432
    Top = 216
    Width = 75
    Height = 25
    Caption = #20851#38381'[&C]'
    TabOrder = 7
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 352
    Top = 216
    Width = 75
    Height = 25
    Caption = #30830#23450'[&S]'
    TabOrder = 8
    OnClick = BitBtn2Click
  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
    Left = 472
    Top = 32
  end
end