ufinance.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

object fmfinance: Tfmfinance
  Left = 251
  Top = 149
  ActiveControl = BitBtn1
  BorderStyle = bsDialog
  Caption = #20250#35745#32467#24080
  ClientHeight = 378
  ClientWidth = 397
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 309
    Top = 0
    Width = 88
    Height = 296
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 8
      Top = 63
      Width = 75
      Height = 25
      Caption = #35760#24080
      ModalResult = 1
      TabOrder = 0
      OnClick = BitBtn1Click
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 8
      Top = 95
      Width = 75
      Height = 25
      Cancel = True
      Caption = #20851#38381
      Default = True
      ModalResult = 2
      TabOrder = 1
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 8
      Top = 128
      Width = 75
      Height = 25
      Caption = #24110#21161
      TabOrder = 2
      OnClick = BitBtn3Click
      Kind = bkHelp
    end
    object BitBtn4: TBitBtn
      Left = 8
      Top = 32
      Width = 75
      Height = 25
      Caption = #38145#23450
      TabOrder = 3
      OnClick = BitBtn4Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 296
    Width = 397
    Height = 82
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 0
      Top = -1
      Width = 310
      Height = 82
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 36
        Height = 13
        Caption = #35760#24080#32773
        FocusControl = DBEdit1
      end
      object Label2: TLabel
        Left = 127
        Top = 16
        Width = 48
        Height = 13
        Caption = #35760#24080#26085#26399
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 8
        Top = 40
        Width = 33
        Height = 13
        Caption = #22791'   '#27880
      end
      object DBEdit1: TDBEdit
        Left = 44
        Top = 12
        Width = 69
        Height = 21
        DataField = 'Confirmer'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 176
        Top = 12
        Width = 125
        Height = 21
        DataField = 'ConfirmDate'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 1
      end
      object DBMemo1: TDBMemo
        Left = 44
        Top = 40
        Width = 257
        Height = 35
        DataField = 'Remark'
        DataSource = DataSource1
        TabOrder = 2
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 309
    Height = 296
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 29
      Width = 309
      Height = 267
      Bands = <
        item
        end>
      DefaultLayout = False
      HeaderPanelRowCount = 1
      KeyField = 'CostMonth'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnDblClick = dxDBGrid1DblClick
      DataSource = DataSource1
      DefaultRowHeight = 20
      Filter.Criteria = {00000000}
      FixedBandLineColor = clBlue
      FixedBandLineWidth = 1
      GridLineColor = clBlue
      OptionsDB = [edgoCancelOnExit, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
      ScrollBars = ssHorizontal
      ShowGrid = False
      ShowPreviewGrid = False
      object dxDBGrid1CostMonth: TdxDBGridMaskColumn
        Alignment = taCenter
        DisableEditor = True
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'CostMonth'
      end
      object dxDBGrid1Status: TdxDBGridImageColumn
        Alignment = taLeftJustify
        DisableCustomizing = True
        MinWidth = 16
        Width = 69
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Status'
        Descriptions.Strings = (
          #35299#38145
          #38145#23450)
        Images = ImageList1
        ImageIndexes.Strings = (
          '0'
          '1')
        Values.Strings = (
          'False'
          'True')
      end
      object dxDBGrid1Finished: TdxDBGridImageColumn
        Alignment = taLeftJustify
        DisableCustomizing = True
        MinWidth = 16
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Finished'
        Descriptions.Strings = (
          #23436#25104
          #26410#23436#25104)
        Images = ImageList2
        ImageIndexes.Strings = (
          '0'
          '1')
        Values.Strings = (
          'True'
          'False')
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 309
      Height = 29
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object Label4: TLabel
        Left = 184
        Top = 8
        Width = 12
        Height = 13
        Caption = #33267
        FocusControl = dxSpinEdit1
      end
      object Label5: TLabel
        Left = 258
        Top = 8
        Width = 12
        Height = 13
        Caption = #24180
        FocusControl = dxSpinEdit1
      end
      object Label6: TLabel
        Left = 8
        Top = 8
        Width = 72
        Height = 13
        Caption = #31995#32479#20250#35745#26399#38388
      end
      object dxSpinEdit1: TdxSpinEdit
        Left = 201
        Top = 4
        Width = 53
        TabOrder = 0
        ReadOnly = False
        OnChange = dxSpinEdit1Change
        EditorEnabled = False
        MaxValue = 2050.000000000000000000
        MinValue = 2000.000000000000000000
        Value = 2000.000000000000000000
        StoredValues = 112
      end
      object DateTimePicker1: TDateTimePicker
        Left = 84
        Top = 4
        Width = 65
        Height = 21
        Date = 38782.575052442130000000
        Format = 'yyyyMM'
        Time = 38782.575052442130000000
        DateMode = dmUpDown
        Enabled = False
        TabOrder = 1
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DMCost.CFinance
    OnDataChange = DataSource1DataChange
    Left = 24
    Top = 32
  end
  object ImageList1: TImageList
    Left = 24