baseaccountvoucher.dfm

中小企业管理系统------ ERP系统原代码

inherited frmBaseAccountVoucher: TfrmBaseAccountVoucher
  Left = 179
  Top = 69
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #35760#36130#20973#35777
  ClientHeight = 480
  ClientWidth = 654
  KeyPreview = True
  OldCreateOrder = True
  OnKeyDown = FormKeyDown
  DesignSize = (
    654
    480)
  PixelsPerInch = 96
  TextHeight = 12
  object CurrencyLabel2: TsncCurrencyLabel [0]
    Left = 520
    Top = 135
    Width = 121
    Height = 15
    Ctl3D = False
    DecimalSymbols.Strings = (
      #35282
      #20998)
    DigitalSymbols.Strings = (
      #20803
      #21313
      #30334
      #21315
      #19975
      #21313
      #30334
      #21315
      #20159
      #21313
      #30334
      #21315
      #19975)
    Color = 16776176
    ParentColor = False
    Visible = False
  end
  object CurrencyLabel1: TsncCurrencyLabel [1]
    Left = 408
    Top = 135
    Width = 121
    Height = 15
    Ctl3D = False
    DecimalSymbols.Strings = (
      #35282
      #20998)
    DigitalSymbols.Strings = (
      #20803
      #21313
      #30334
      #21315
      #19975
      #21313
      #30334
      #21315
      #20159
      #21313
      #30334
      #21315
      #19975)
    Color = 16776176
    ParentColor = False
    Visible = False
  end
  object SeSkinLabel1: TSeSkinLabel [2]
    Left = 232
    Top = 43
    Width = 100
    Height = 24
    Performance = kspNoBuffer
    Transparent = True
    Caption = #35760#24080#20973#35777
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    SkinObject = 'Label'
  end
  object SeSkinLabel4: TSeSkinLabel [3]
    Left = 112
    Top = 460
    Width = 36
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Anchors = [akRight, akBottom]
    Caption = #21046#21333#65306
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object SeSkinLabel5: TSeSkinLabel [4]
    Left = 305
    Top = 460
    Width = 36
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Anchors = [akRight, akBottom]
    Caption = #23457#26680#65306
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object SeSkinLabel6: TSeSkinLabel [5]
    Left = 504
    Top = 460
    Width = 36
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Anchors = [akRight, akBottom]
    Caption = #30331#24080#65306
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object lblBillDate: TSeSkinLabel [6]
    Left = 25
    Top = 78
    Width = 36
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Caption = #26085#26399#65306
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object lblUserCode: TSeSkinLabel [7]
    Left = 193
    Top = 78
    Width = 60
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Caption = #20973#35777#32534#21495#65306
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object SeSkinLabel2: TSeSkinLabel [8]
    Left = 376
    Top = 78
    Width = 36
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Caption = #38468#20214#65306
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object SeSkinLabel3: TSeSkinLabel [9]
    Left = 501
    Top = 78
    Width = 12
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Caption = #24352
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object lblMemo: TSeSkinLabel [10]
    Left = 25
    Top = 105
    Width = 36
    Height = 12
    Performance = kspNoBuffer
    Transparent = True
    Caption = #22791#27880#65306
    Color = clBtnFace
    ParentColor = False
    SkinObject = 'Label'
  end
  object gridMain: TdxDBGrid [11]
    Tag = 1
    Left = 8
    Top = 131
    Width = 640
    Height = 322
    BandRowCount = 2
    Bands = <
      item
        Caption = #25688#35201
        Width = 191
      end
      item
        Caption = #20250#35745#31185#30446
        Width = 175
      end
      item
        Caption = #20511#26041#37329#39069
        Width = 128
      end
      item
        Caption = #36151#26041#37329#39069
        Width = 114
      end>
    DefaultLayout = False
    HeaderPanelRowCount = 1
    KeyField = 'ID'
    ShowSummaryFooter = True
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 4
    OnKeyDown = gridMainKeyDown
    OnKeyPress = gridMainKeyPress
    OnMouseDown = gridMainMouseDown
    AutoSearchTextColor = clDefault
    BandColor = 16769947
    DataSource = dsList
    DefaultRowHeight = 29
    Filter.Criteria = {00000000}
    FixedBandLineColor = clInfoText
    GroupPanelColor = clBtnFace
    GroupNodeTextColor = clInfoText
    HeaderColor = 16769947
    HideSelectionTextColor = clDefault
    HighlightTextColor = clDefault
    LookAndFeel = lfFlat
    OptionsBehavior = [edgoDblClick, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabs, edgoTabThrough, edgoVertThrough]
    OptionsCustomize = [edgoBandSizing, edgoColumnSizing, edgoHeaderPanelSizing]
    OptionsDB = [edgoCanAppend, edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks, edgoUseLocate]
    OptionsView = [edgoUseBitmap]
    RowFooterTextColor = clBlack
    ScrollBars = ssVertical
    ShowBands = True
    ShowHeader = False
    OnChangeColumn = gridMainChangeColumn
    OnChangedColumnsWidth = gridMainChangedColumnsWidth
    OnCustomDrawBand = gridMainCustomDrawBand
    OnCustomDrawCell = gridMainCustomDrawCell
    OnCustomDraw = gridMainCustomDraw
    Anchors = [akLeft, akTop, akRight, akBottom]
    object gridMainSummary: TdxDBGridButtonColumn
      Width = 191
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Summary'
      SummaryFooterType = cstCount
      SummaryFooterFormat = #21512#35745#65306
      Buttons = <
        item
          Default = True
        end>
    end
    object gridMainSubjectName: TdxDBGridButtonColumn
      Width = 175
      BandIndex = 1
      RowIndex = 0
      FieldName = 'SubjectName'
      Buttons = <
        item
          Default = True
        end>
    end
    object gridMainDebitTotal: TdxDBGridMaskColumn
      DisableEditor = True
      Width = 128
      BandIndex = 2
      RowIndex = 0
      FieldName = 'DebitTotal'
      SummaryFooterType = cstSum
    end
    object gridMainLenderTotal: TdxDBGridMaskColumn
      DisableEditor = True
      Width = 114
      BandIndex = 3
      RowIndex = 0
      FieldName = 'LenderTotal'
      SummaryFooterType = cstSum
    end
  end
  object CurrencyEdit: TsncDBCurrencyEdit [12]
    Left = 528
    Top = 104
    Width = 121
    Height = 19
    BorderStyle = bsNone
    CurrencySymbol = #65509
    DataSource = dsList
    FocusedColor = 13303807
    MoveOutAllowed = True
    NegativeFont.Charset = DEFAULT_CHARSET
    NegativeFont.Color = clWindowText
    NegativeFont.Height = -11
    NegativeFont.Name = 'MS Sans Serif'
    NegativeFont.Style = []
    ParentColor = False
    TabOrder = 5
    TabStop = True
    Visible = False
    OnMoveOut = CurrencyEditMoveOut
    OnKeyDown = CurrencyEditKeyDown
  end
  object edtUserCode: TdxDBEdit [13]
    Left = 252
    Top = 74
    Width = 114
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 1
    DataField = 'UserCode'
    DataSource = dsMaster
    StyleController = frmData.StyleController
  end
  object edtAccessory: TdxDBEdit [14]
    Left = 412
    Top = 74
    Width = 85
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 2
    DataField = 'Accessory'
    DataSource = dsMaster
    StyleController = frmData.StyleController
  end
  object edtMemo: TdxDBEdit [15]
    Left = 64
    Top = 101
    Width = 433
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 3
    DataField = 'Memo'
    DataSource = dsMaster
    ReadOnly = False
    StyleController = frmData.StyleController
    StoredValues = 64
  end
  object edtDate: TdxDBDateEdit [16]
    Left = 64
    Top = 74
    Width = 121
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 0
    OnKeyDown = edtDateKeyDown
    DataField = 'Date'
    DataSource = dsMaster
    StyleController = frmData.StyleController
  end