pd.dfm

一套非常发好的财务管理软件,想从事此方面开发的可以借签

          3333333333333333333333333333330000003333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333330000003333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333000000333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333000000333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333300
          0000333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333300000033333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333300000033333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333330000003333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333330000003333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333330000003333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333000000444444444444
          4444444444444444444444444444444444444444444444444444444444444444
          4444444444444444444444000000AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
          AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA00
          0000}
        Stretch = True
      end>
    TitleBarDrawAppIcon = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MenuBarColor = 15263976
    MenuBarHeight = 22
    RoundCorner = 0
    object Label6: TLabel
      Left = 489
      Top = 59
      Width = 60
      Height = 12
      Caption = #20973#35777#32534#21495#65306
      Transparent = True
    end
    object Label7: TLabel
      Left = 513
      Top = 79
      Width = 36
      Height = 12
      Caption = #38468#20214#65306
      Transparent = True
    end
    object Label8: TLabel
      Left = 605
      Top = 79
      Width = 12
      Height = 12
      Caption = #24352
      Transparent = True
    end
    object Label9: TLabel
      Left = 248
      Top = 85
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
      Transparent = True
    end
    object Label10: TLabel
      Left = 193
      Top = 395
      Width = 36
      Height = 12
      Caption = #21046#21333#65306
      Transparent = True
    end
    object Label11: TLabel
      Left = 353
      Top = 395
      Width = 36
      Height = 12
      Caption = #23457#26680#65306
      Transparent = True
    end
    object Label12: TLabel
      Left = 509
      Top = 395
      Width = 36
      Height = 12
      Caption = #30331#24080#65306
      Transparent = True
    end
    object Label13: TLabel
      Left = 17
      Top = 395
      Width = 60
      Height = 12
      Caption = #36130#21153#20027#31649#65306
      Transparent = True
    end
    object g: TDBGridEh
      Left = 8
      Top = 152
      Width = 620
      Height = 233
      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 = []
      FooterRowCount = 1
      Options = [dgEditing, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghHighlightFocus, dghClearSelection]
      ParentCtl3D = False
      RowHeight = 16
      SumList.Active = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = gCellClick
      OnColEnter = gColEnter
      OnColExit = gColExit
      OnDrawColumnCell = gDrawColumnCell
      OnKeyPress = gKeyPress
      Columns = <
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = 'Summary'
          Footers = <>
          Width = 130
          OnEditButtonClick = gColumns0EditButtonClick
        end
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = 'Name'
          Footers = <
            item
              Alignment = taCenter
              Value = #21512#35745#65306
              ValueType = fvtStaticText
            end>
          ReadOnly = True
          Width = 179
          OnEditButtonClick = gColumns1EditButtonClick
        end
        item
          EditButtons = <>
          FieldName = 'J_Money'
          Footers = <
            item
              DisplayFormat = #65509'#,.##'
              FieldName = 'J_Money'
              ValueType = fvtSum
            end>
          Title.ImageIndex = 0
          Width = 144
        end
        item
          EditButtons = <>
          FieldName = 'D_Money'
          Footers = <
            item
              DisplayFormat = #65509'#,.##'
              FieldName = 'D_Money'
              ValueType = fvtSum
            end>
          Width = 144
        end>
    end
    object sncDBCurrencyInplaceEdit: TsncDBCurrencyEdit
      Left = 320
      Top = 184
      Width = 137
      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 = 5
      TabStop = True
      Visible = False
      OnMoveOut = sncDBCurrencyInplaceEditMoveOut
      OnEnter = sncDBCurrencyInplaceEditEnter
      OnExit = sncDBCurrencyInplaceEditExit
      OnKeyPress = sncDBCurrencyInplaceEditKeyPress
    end
    object Panel1: TPanel
      Left = 8
      Top = 104
      Width = 620
      Height = 49
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clMoneyGreen
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 6
      object Label1: TLabel
        Left = 40
        Top = 16
        Width = 48
        Height = 12
        Caption = #25688#12288#12288#35201
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
        OnClick = Label1Click
        OnMouseDown = Label1MouseDown
        OnMouseUp = Label1MouseUp
        OnMouseEnter = Label1MouseEnter
        OnMouseLeave = Label1MouseLeave
      end
      object sncCurrencyLabel3: TsncCurrencyLabel
        Left = 310
        Top = 24
        Width = 145
        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
        ParentColor = False
      end
      object sncCurrencyLabel4: TsncCurrencyLabel
        Left = 455
        Top = 24
        Width = 145
        Height = 25
        BorderStyle = bsNone
        Ctl3D = False
        DecimalSymbols.Strings = (
          #35282
          #20998)
        DigitalNumber = 12
        DigitalSymbols.Strings = (
          #20803
          #21313