formula.dfm

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 290 行

object frmFormula: TfrmFormula
  Left = 183
  Top = 162
  BorderStyle = bsNone
  Caption = '公式'
  ClientHeight = 200
  ClientWidth = 450
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClose = FormClose
  OnKeyUp = FormKeyUp
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 23
    Top = 36
    Width = 23
    Height = 22
    Caption = '+'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 51
    Top = 36
    Width = 23
    Height = 22
    Caption = '-'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 78
    Top = 36
    Width = 23
    Height = 22
    Caption = '*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 106
    Top = 36
    Width = 23
    Height = 22
    Caption = '/'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton4Click
  end
  object SpeedButton5: TSpeedButton
    Left = 133
    Top = 36
    Width = 23
    Height = 22
    Caption = '('
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton5Click
  end
  object SpeedButton6: TSpeedButton
    Left = 161
    Top = 36
    Width = 23
    Height = 22
    Caption = ')'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton6Click
  end
  object pKmmc: TPanel
    Left = 126
    Top = 63
    Width = 239
    Height = 133
    TabOrder = 5
    object Label5: TLabel
      Left = 16
      Top = 19
      Width = 42
      Height = 13
      Caption = '科目：'
    end
    object seKmmcGlkm: TSDEdit
      Left = 55
      Top = 12
      Width = 170
      Height = 21
      Color = clWhite
      TabOrder = 0
      Text = 'seKmmcGlkm'
      OnButtonClick = seKmmcGlkmButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
  end
  object pCwsj: TPanel
    Left = 126
    Top = 63
    Width = 239
    Height = 133
    TabOrder = 0
    Visible = False
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 42
      Height = 13
      Caption = '科目：'
    end
    object Label2: TLabel
      Left = 16
      Top = 41
      Width = 42
      Height = 13
      Caption = '期间：'
    end
    object Label3: TLabel
      Left = 16
      Top = 73
      Width = 42
      Height = 13
      Caption = '类型：'
    end
    object Label4: TLabel
      Left = 16
      Top = 106
      Width = 42
      Height = 13
      Caption = '月份：'
    end
    object Label6: TLabel
      Left = 138
      Top = 6
      Width = 20
      Height = 19
      Caption = '：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object seGlkm: TSDEdit
      Left = 55
      Top = 8
      Width = 78
      Height = 21
      Color = clWhite
      TabOrder = 0
      Text = 'seGlkm'
      OnChange = seGlkmChange
      OnEnter = seGlkmEnter
      OnButtonClick = seGlkmButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
    object scPeriod: TSDComboBox
      Left = 55
      Top = 40
      Width = 175
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
    end
    object scType: TSDComboBox
      Left = 55
      Top = 72
      Width = 175
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
    end
    object scPerInc: TSDComboBox
      Left = 55
      Top = 104
      Width = 175
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      DispItem = cbItem2
    end
    object seGlkm2: TSDEdit
      Left = 152
      Top = 8
      Width = 77
      Height = 21
      Color = clWhite
      TabOrder = 4
      Text = 'seGlkm'
      OnButtonClick = seGlkmButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
  end
  object bbOk: TBitBtn
    Left = 369
    Top = 96
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 1
    OnClick = bbOkClick
  end
  object bbCancel: TBitBtn
    Left = 369
    Top = 148
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 2
    OnClick = bbCancelClick
  end
  object bbAdd: TBitBtn
    Left = 369
    Top = 49
    Width = 75
    Height = 23
    Caption = '填入'
    TabOrder = 3
    OnClick = bbAddClick
  end
  object tvFor: TTreeView
    Left = 8
    Top = 63
    Width = 112
    Height = 133
    Indent = 19
    ReadOnly = True
    TabOrder = 4
    OnChange = tvForChange
    Items.Data = {
      020000002A0000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
      115344455250B2C6CEF1C8A1CAFDBAAFCAFD210000000000000000000000FFFF
      FFFFFFFFFFFF000000000000000008B2C6CEF1CAFDBEDD210000000000000000
      000000FFFFFFFFFFFFFFFF000000000000000008BFC6C4BFC3FBB3C625000000
      0000000000000000FFFFFFFFFFFFFFFF00000000000000000CB2C6CEF1B1A8B1
      EDBAAFCAFD}
  end
  object mFormula: TEdit
    Left = 8
    Top = 7
    Width = 435
    Height = 21
    TabOrder = 6
    Text = 'mFormula'
  end
end