mainunit.~dfm

为前公司仓库发料开发的分练系统 入门及作品。

object MainForm: TMainForm
  Left = 199
  Top = 122
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MainForm'
  ClientHeight = 553
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFCC
    CCCCCCCCCCCCCCCCCCCCCCCCCCFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCFCCCC
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCFFFFFFFFFFFFFFFCCCFFFFFFCCCCCCCF
    FFFFFFFFFFFFFFFCCCFFFFFFFCCCCCCFFFFFFFFFFFFFFFFCCCFFFFFFFCCCCCCF
    FFFFFFFFFFFFFFFCCCFFFFFFFCCCCCCFFFFFFFFFFFFFFFFCCCFFFFFFFCCCCCCF
    FFFFFFFFFFFFFFFCCCFFFFFFFCCCCCCFFFFFFFFFFFFFFFFCCCFFFFFFFCCCCCCC
    CCCCCCCCCCCCCCCCCCFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCFFFFFFFCCCCCCC
    CCCCCCCCCCCCCCCCCCFFFFFFFCCCCCCFFFFFFFCCCFFFFFFCCCFFFFFFFCCCCCCF
    FFFFFFCCCFFFFFFCCCFFFFFFFCCCCCCFFFFFFFCCCFFFFFFCCCFFFFFFFCCCCCCF
    FFFFFFCCCFFFFFFCCCFFFFFFFCCCCCCFFFFFFFCCCFFFFFFCCCFFFFFFFCCCCCCF
    FFFFFFCCCFFFFFFCCCFFFFFFFCCCCCCFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCF
    FFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCF
    FFFFFFCCCFFFFFFFFFFFFFFFFCCCCCCFFFFFFFCCCFFFFFFFFFFFFFFFFCCCCCCF
    FFFFFFCCCFFFFFFFFFFFFFFFFCCCCCCFFFFFFFCCCFFFFFFFFFFFFFFFFCCCCCCF
    FFFFFFCCCFFFFFFFFFFFFFFFFCCCCCCFFFFFFFCCCFFFFFFFFFFFFFFFFCCCCCCC
    FFFFFFCCCFFFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCFCCC
    CCCCCCCCCCCCCCCCCCCCCCCCCCCFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCFF0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object SB01: TdxStatusBar
    Left = 0
    Top = 528
    Width = 777
    Height = 25
    Cursor = crHandPoint
    Panels = <
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        BiDiMode = bdLeftToRight
        ParentBiDiMode = False
        Width = 650
      end
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        Text = #12288'  '#21046#20316#20154#65306#26446#22283#21213
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object DBN: TcxDBNavigator
    Left = 10
    Top = 498
    Width = 756
    Height = 25
    Cursor = crHandPoint
    Buttons.Filter.Visible = False
    DataSource = DS
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
  end
  object RG01: TcxRadioGroup
    Left = 5
    Top = 339
    Cursor = crHandPoint
    Caption = #36039#26009#31649#29702
    Properties.Items = <>
    TabOrder = 2
    Height = 153
    Width = 145
  end
  object BT01: TcxButton
    Left = 21
    Top = 363
    Width = 110
    Height = 25
    Cursor = crHandPoint
    Caption = #23566#20837' '#38936#26009#21934' '#36039#26009'...'
    TabOrder = 3
    OnClick = BT01Click
  end
  object BT02: TcxButton
    Left = 21
    Top = 395
    Width = 110
    Height = 25
    Cursor = crHandPoint
    Caption = #23566#20837' '#24235#12288#23384' '#36039#26009'...'
    TabOrder = 4
    OnClick = BT02Click
  end
  object BT03: TcxButton
    Left = 21
    Top = 451
    Width = 110
    Height = 25
    Cursor = crHandPoint
    Caption = #28165#38500' '#20840#12288#37096' '#36039#26009'...'
    TabOrder = 5
    OnClick = BT03Click
  end
  object RG02: TcxRadioGroup
    Left = 155
    Top = 339
    Cursor = crHandPoint
    Caption = #25805#20316
    Properties.Items = <>
    TabOrder = 6
    Height = 153
    Width = 145
  end
  object BT11: TcxButton
    Left = 172
    Top = 363
    Width = 110
    Height = 113
    Cursor = crHandPoint
    Caption = #20998#39006#21450#26597#24235#23384
    TabOrder = 7
    OnClick = BT11Click
  end
  object RG03: TcxRadioGroup
    Left = 306
    Top = 339
    Cursor = crHandPoint
    Caption = #30064#24120#34389#29702
    Properties.Items = <>
    TabOrder = 8
    Height = 153
    Width = 305
  end
  object RG04: TcxRadioGroup
    Left = 617
    Top = 339
    Cursor = crHandPoint
    Caption = #22577#34920#36664#20986
    Properties.Items = <>
    TabOrder = 9
    Height = 153
    Width = 153
  end
  object BT31: TcxButton
    Left = 637
    Top = 363
    Width = 110
    Height = 25
    Cursor = crHandPoint
    Caption = #23566#20986' '#24037#21934#20633#26009#34920'...'
    TabOrder = 10
    OnClick = BT31Click
  end
  object BT32: TcxButton
    Left = 637
    Top = 451
    Width = 110
    Height = 25
    Cursor = crHandPoint
    Caption = #23566#20986' '#24037#21934#29289#26009#34920'...'
    TabOrder = 11
    OnClick = BT32Click
  end
  object BT21: TcxButton
    Left = 322
    Top = 363
    Width = 110
    Height = 25
    Cursor = crHandPoint
    Caption = #26597#25214' '#26410#20998#39006#35352#37636
    TabOrder = 12
    OnClick = BT21Click
  end
  object BT22: TcxButton
    Left = 322
    Top = 451
    Width = 110
    Height = 25
    Cursor = crHandPoint
    Caption = #21295#20837' '#36039#26009#35373#23450#32317#27284
    TabOrder = 13
    OnClick = BT22Click
  end
  object CB01: TcxComboBox
    Left = 322
    Top = 403
    Cursor = crHandPoint
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Arial'
    Style.Font.Style = []
    TabOrder = 14
    Width = 110
  end
  object DBED01: TcxDBTextEdit
    Left = 450
    Top = 363
    Cursor = crHandPoint
    DataBinding.DataField = #26009#34399
    DataBinding.DataSource = DS
    ParentFont = False
    Style.Color = clCream
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Arial'
    Style.Font.Style = []
    TabOrder = 15
    Width = 145
  end
  object DBME: TcxDBMemo
    Left = 450
    Top = 403
    Cursor = crHandPoint
    DataBinding.DataField = #21697#21517#35215#26684
    DataBinding.DataSource = DS
    ParentFont = False
    Style.Color = clCream
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -11
    Style.Font.Name = 'Arial'
    Style.Font.Style = []
    TabOrder = 16
    Height = 73
    Width = 145
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 777
    Height = 72
    Align = alTop
    Caption = #24037' '#21934' '#20633' '#26009' '#34920' '#21046' '#20316' '#24037' '#20855
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -29
    Font.Name = #27161#26999#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 17
    object cxLabel1: TcxLabel
      Left = 190
      Top = 20
      Caption = #24037' '#21934' '#20633' '#26009' '#34920' '#21046' '#20316' '#24037' '#20855
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Style.Font.Charset = ANSI_CHARSET
      Style.Font.Color = clRed
      Style.Font.Height = -29
      Style.Font.Name = #27161#26999#39636
      Style.Font.Style = []
      Style.Shadow = False
      Style.TextColor = clNavy
      Style.TransparentBorder = True
      Transparent = True
    end
  end
  object PB: TcxProgressBar
    Left = 1
    Top = 531
    ParentFont = False
    Position = 66.000000000000000000
    Properties.PeakValue = 66.000000000000000000
    Style.BorderStyle = ebsOffice11
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlue
    Style.Font.Height = -11
    Style.Font.Name = 'MS Sans Serif'
    Style.Font.Style = []
    Style.Shadow = False
    TabOrder = 18
    Visible = False
    Width = 649
  end
  object cxRadioGroup1: TcxRadioGroup
    Left = 2
    Top = 72
    Cursor = crHandPoint
    Caption = #36039#26009#28687#35261
    Properties.Items = <>
    TabOrder = 19
    Height = 257
    Width = 775
  end
  object dxDBGrid1: TdxDBGrid
    Left = 13
    Top = 87
    Width = 753
    Height = 233
    Cursor = crHandPoint
    Bands = <
      item
      end>
    DefaultLayout = False
    HeaderPanelRowCount = 1
    KeyField = #39006#21029
    SummaryGroups = <
      item
        DefaultGroup = False
        SummaryItems = <
          item
          end>
        Name = 'dxDBGrid1SummaryGroup2'
      end>
    SummarySeparator = ', '
    Color = clCream
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 20
    BandFont.Charset = DEFAULT_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -11
    BandFont.Name = 'MS Sans Serif'
    BandFont.Style = []