addzt1.dfm

来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 680 行 · 第 1/2 页

      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton12: TSpeedButton
      Left = 283
      Top = 220
      Width = 33
      Height = 33
      Caption = '9'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton23: TSpeedButton
      Left = 323
      Top = 220
      Width = 33
      Height = 33
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton17: TSpeedButton
      Left = 203
      Top = 260
      Width = 73
      Height = 33
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton22: TSpeedButton
      Left = 283
      Top = 260
      Width = 33
      Height = 33
      Caption = '.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton25: TSpeedButton
      Left = 323
      Top = 260
      Width = 33
      Height = 33
      Caption = '/'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 15
      Width = 185
      Height = 291
      Caption = '可用于编辑的工资项目'
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      object ListBox1: TListBox
        Left = 2
        Top = 15
        Width = 181
        Height = 274
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
        OnDblClick = ListBox1DblClick
      end
    end
    object GroupBox4: TGroupBox
      Left = 2
      Top = 306
      Width = 370
      Height = 44
      Align = alBottom
      TabOrder = 1
      object Button1: TButton
        Left = 39
        Top = 15
        Width = 56
        Height = 23
        Caption = '返回'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 110
        Top = 15
        Width = 56
        Height = 23
        Caption = '清空'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 213
        Top = 15
        Width = 56
        Height = 23
        Caption = '保存'
        TabOrder = 2
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 282
        Top = 15
        Width = 56
        Height = 23
        Caption = '退出'
        TabOrder = 3
        OnClick = Button4Click
      end
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 104
    Width = 374
    Height = 257
    Caption = '可用于编辑的函数'
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 370
      Height = 170
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      Options = [dgEditing, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'gongshi'
          Visible = True
        end>
    end
    object GroupBox5: TGroupBox
      Left = 2
      Top = 185
      Width = 370
      Height = 70
      Align = alBottom
      TabOrder = 1
      object DBText1: TDBText
        Left = 7
        Top = 15
        Width = 42
        Height = 13
        AutoSize = True
        DataField = 'memo'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Button5: TButton
        Left = 26
        Top = 38
        Width = 56
        Height = 23
        Caption = '增加'
        TabOrder = 0
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 156
        Top = 38
        Width = 56
        Height = 23
        Caption = '删除'
        TabOrder = 1
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 221
        Top = 38
        Width = 56
        Height = 23
        Caption = '选定'
        TabOrder = 2
        OnClick = Button7Click
      end
      object Button8: TButton
        Left = 287
        Top = 38
        Width = 56
        Height = 23
        Caption = '退出'
        TabOrder = 3
        OnClick = Button8Click
      end
      object Button11: TButton
        Left = 90
        Top = 38
        Width = 56
        Height = 23
        Caption = '修改'
        TabOrder = 4
        OnClick = Button11Click
      end
    end
    object Panel2: TPanel
      Left = 10
      Top = 40
      Width = 348
      Height = 105
      BevelInner = bvLowered
      Color = clAqua
      TabOrder = 2
      object Label4: TLabel
        Left = 16
        Top = 16
        Width = 42
        Height = 13
        Caption = '函 数 名'
      end
      object Label5: TLabel
        Left = 16
        Top = 40
        Width = 48
        Height = 13
        Caption = '提示信息'
      end
      object DBEdit1: TDBEdit
        Left = 72
        Top = 16
        Width = 265
        Height = 21
        DataField = 'gongshi'
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 72
        Top = 40
        Width = 265
        Height = 21
        DataField = 'memo'
        DataSource = DataSource1
        TabOrder = 1
      end
      object Button9: TButton
        Left = 111
        Top = 70
        Width = 46
        Height = 21
        Caption = '保存'
        TabOrder = 2
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 198
        Top = 72
        Width = 46
        Height = 20
        Caption = '取消'
        TabOrder = 3
        OnClick = Button10Click
      end
    end
  end
  object ADODataSet1: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select changechinename from syssalfields'
    CommandTimeout = 0
    Parameters = <>
    Left = 184
    Top = 16
    object ADODataSet1changechinename: TStringField
      FieldName = 'changechinename'
      Size = 50
    end
  end
  object ADODataSet2: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * From gongshi'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 64
    Top = 237
    object ADODataSet2gongshi: TStringField
      DisplayLabel = '可用于编辑的公式'
      FieldName = 'gongshi'
      Size = 100
    end
    object ADODataSet2memo: TStringField
      FieldName = 'memo'
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet2
    Left = 32
    Top = 237
  end
end