bankpd.dfm

来自「一套非常发好的财务管理软件,想从事此方面开发的可以借签」· DFM 代码 · 共 1,420 行 · 第 1/5 页

    Font.Name = #23435#20307
    Font.Style = []
    MenuBarColor = 15263976
    MenuBarHeight = 22
    RoundCorner = 0
    object Label10: TLabel
      Left = 193
      Top = 427
      Width = 36
      Height = 12
      Caption = #24405#20837#65306
      Transparent = True
    end
    object Label13: TLabel
      Left = 17
      Top = 427
      Width = 60
      Height = 12
      Caption = #36130#21153#20027#31649#65306
      Transparent = True
    end
    object g: TDBGridEh
      Left = 8
      Top = 136
      Width = 657
      Height = 281
      AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
      Ctl3D = False
      DataSource = DataSource1
      FixedColor = clMoneyGreen
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgEditing, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghHighlightFocus, dghClearSelection]
      ParentCtl3D = False
      RowHeight = 16
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnColEnter = gColEnter
      OnColExit = gColExit
      OnDrawColumnCell = gDrawColumnCell
      OnExit = gExit
      OnKeyPress = gKeyPress
      Columns = <
        item
          EditButtons = <>
          FieldName = 'month'
          Footers = <>
          ReadOnly = True
          Width = 15
        end
        item
          DropDownBox.Columns = <
            item
            end
            item
            end
            item
            end
            item
            end>
          EditButtons = <>
          FieldName = 'day'
          Footers = <>
          Width = 18
        end
        item
          EditButtons = <>
          FieldName = 'EarningNumber'
          Footers = <>
          Width = 29
        end
        item
          EditButtons = <>
          FieldName = 'PayNumber'
          Footers = <>
          Width = 30
        end
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = 'Summary'
          Footers = <>
          Width = 98
          OnEditButtonClick = gColumns4EditButtonClick
        end
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = 'CheckType'
          Footers = <>
          ReadOnly = True
          Width = 25
          OnEditButtonClick = gColumns5EditButtonClick
        end
        item
          EditButtons = <>
          FieldName = 'CheckNumber'
          Footers = <>
          Width = 39
        end
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = 'CodeLongSubjectName'
          Footers = <>
          ReadOnly = True
          Width = 132
          OnEditButtonClick = gColumns7EditButtonClick
        end
        item
          EditButtons = <>
          FieldName = 'J_Money'
          Footers = <>
          Title.ImageIndex = 0
          Width = 120
        end
        item
          EditButtons = <>
          FieldName = 'D_Money'
          Footers = <>
          Width = 119
        end>
    end
    object sncDBCurrencyInplaceEdit: TsncDBCurrencyEdit
      Left = 400
      Top = 176
      Width = 120
      Height = 25
      BorderStyle = bsNone
      CurrencySymbol = #65509
      DataSource = DataSource1
      DigitalNumber = 12
      NegativeFont.Charset = DEFAULT_CHARSET
      NegativeFont.Color = clWindowText
      NegativeFont.Height = -11
      NegativeFont.Name = 'MS Sans Serif'
      NegativeFont.Style = []
      ParentColor = False
      TabOrder = 2
      TabStop = True
      Visible = False
      OnMoveOut = sncDBCurrencyInplaceEditMoveOut
      OnEnter = sncDBCurrencyInplaceEditEnter
      OnExit = sncDBCurrencyInplaceEditExit
    end
    object Panel1: TPanel
      Left = 8
      Top = 88
      Width = 657
      Height = 49
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clMoneyGreen
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
      object Label1: TLabel
        Left = 0
        Top = 6
        Width = 36
        Height = 12
        Alignment = taCenter
        Caption = '2004'#24180
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object sncCurrencyLabel3: TsncCurrencyLabel
        Left = 394
        Top = 24
        Width = 120
        Height = 25
        BorderStyle = bsNone
        Ctl3D = False
        DecimalSymbols.Strings = (
          #35282
          #20998)
        DigitalNumber = 12
        DigitalSymbols.Strings = (
          #20803
          #21313
          #30334
          #21315
          #19975
          #21313
          #30334
          #21315
          #20159
          #21313
          #30334
          #21315
          #19975)
        Color = clMoneyGreen
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object sncCurrencyLabel4: TsncCurrencyLabel
        Left = 514
        Top = 24
        Width = 120
        Height = 25
        BorderStyle = bsNone
        Ctl3D = False
        DecimalSymbols.Strings = (
          #35282
          #20998)
        DigitalNumber = 12
        DigitalSymbols.Strings = (
          #20803
          #21313
          #30334
          #21315
          #19975
          #21313
          #30334
          #21315
          #20159
          #21313
          #30334
          #21315
          #19975)
        Color = clMoneyGreen
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label3: TLabel
        Left = 117
        Top = 16
        Width = 60
        Height = 12
        Caption = #25688#12288#12288#12288#35201
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 431
        Top = 6
        Width = 48
        Height = 12
        Caption = #20511#26041#37329#39069
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label5: TLabel
        Left = 551
        Top = 6
        Width = 48
        Height = 12
        Caption = #36151#26041#37329#39069
        Font.Charset = GB2312_CHARSET