tbasicbill.dfm

仲裁委仲裁案件计酬程序.有基础资料设置、分级设置

object BasicBillFrm: TBasicBillFrm
  Left = 244
  Top = 222
  Width = 696
  Height = 480
  Caption = #21333#25454#23548#20837
  Color = 16774127
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 229
    Top = 32
    Width = 5
    Height = 401
    Cursor = crHSplit
    Color = 14668471
    ParentColor = False
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 32
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 28
        Width = 684
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 671
      Height = 28
      AutoSize = True
      ButtonHeight = 24
      Caption = 'ToolBar1'
      TabOrder = 0
      object MainToolBar: TToolBar
        Left = 0
        Top = 2
        Width = 799
        Height = 24
        AutoSize = True
        ButtonWidth = 94
        Flat = True
        Images = ImgList
        List = True
        ShowCaptions = True
        TabOrder = 0
        object BLoad: TToolButton
          Left = 0
          Top = 0
          Action = ActInsertBill
          AutoSize = True
        end
        object BCheck: TToolButton
          Left = 88
          Top = 0
          Action = ActDataCheck
          AutoSize = True
        end
        object BSaveBill: TToolButton
          Left = 180
          Top = 0
          Action = ActBuild
          AutoSize = True
        end
        object ToolButton12: TToolButton
          Left = 272
          Top = 0
          Width = 8
          Caption = 'ToolButton12'
          ImageIndex = 7
          Style = tbsSeparator
        end
        object BQuit: TToolButton
          Left = 280
          Top = 0
          Action = ActQuit
          AutoSize = True
        end
      end
    end
  end
  object fcStatusBar1: TfcStatusBar
    Left = 0
    Top = 433
    Width = 688
    Height = 20
    Panels = <
      item
        Color = 14668471
        Component = Movie
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Name = 'Panel6'
        Style = psControl
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '200'
      end
      item
        Color = 14668471
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Name = 'Panel0'
        Tag = 0
        Text = #24555#25463#28909#38190':'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '80'
      end
      item
        Color = 14668471
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Name = 'Panel1'
        Tag = 0
        Text = 'F5      '#25968#25454#26657#39564
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '100'
      end
      item
        Color = 14668471
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Name = 'Panel2'
        Tag = 0
        Text = 'F8     '#25968#25454#24341#20837
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '100'
      end
      item
        Color = 14668471
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Name = 'Panel3'
        Tag = 0
        Text = 'F2       '#21333#25454#20445#23384
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '100'
      end
      item
        Color = 14668471
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Name = 'Panel4'
        Tag = 0
        Text = 'F12     '#35760#24405#21015#23485
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '100'
      end
      item
        Color = 14668471
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Name = 'Panel5'
        Tag = 0
        Text = 'Ctrl + F4    '#36864#20986
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50'
      end>
    ParentShowHint = False
    ShowHint = False
    SimplePanel = False
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
    object Movie: TAnimate
      Left = 1
      Top = 3
      Width = 198
      Height = 16
      Active = False
      StopFrame = 11
    end
  end
  object Panel_Left: TPanel
    Left = 0
    Top = 32
    Width = 229
    Height = 401
    Align = alLeft
    ParentColor = True
    TabOrder = 2
    object Splitter2: TSplitter
      Left = 1
      Top = 280
      Width = 227
      Height = 4
      Cursor = crVSplit
      Align = alBottom
      Color = 16756912
      ParentColor = False
    end
    object GroupBox3: TGroupBox
      Left = 1
      Top = 1
      Width = 227
      Height = 84
      Align = alTop
      Caption = 'EXCEL '#25968#25454#34920#21015#34920
      TabOrder = 0
      object SheetList: TListBox
        Left = 2
        Top = 15
        Width = 223
        Height = 67
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object ROBType: TRadioGroup
      Left = 1
      Top = 85
      Width = 227
      Height = 40
      Align = alTop
      Caption = #32418#34013#23383
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        #34013#23383
        #32418#23383)
      TabOrder = 1
    end
    object GroupBox5: TGroupBox
      Left = 1
      Top = 284
      Width = 227
      Height = 116
      Align = alBottom
      Caption = #25968#25454#38169#35823#37096#20998
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object ErrGrid: TDBGridEh
        Left = 2
        Top = 18
        Width = 223
        Height = 96
        Align = alClient
        Ctl3D = True
        DataSource = _ErrQry
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clRed
        FooterFont.Height = -13
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = [fsBold]
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth]
        ParentCtl3D = False
        SortLocal = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clRed
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
      end
    end
    object ItemGrid: TDBGridEh
      Left = 1
      Top = 125
      Width = 227
      Height = 155
      Align = alClient
      Ctl3D = False
      DataSource = _ExcelTab
      FixedColor = 11853538
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []