zhantao.dfm

来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 397 行

object Formzhantao: TFormzhantao
  Left = 223
  Top = 162
  Width = 808
  Height = 580
  Caption = '工资帐套管理'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 216
    Top = 0
    Width = 3
    Height = 553
    Cursor = crHSplit
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 216
    Height = 553
    Align = alLeft
    Caption = '帐套'
    TabOrder = 0
    object wwDBGrid1: TwwDBGrid
      Left = 2
      Top = 15
      Width = 212
      Height = 493
      Selected.Strings = (
        'ztid'#9'4'#9'编号'
        'ztname'#9'50'#9'帐套名')
      IniAttributes.Delimiter = ';;'
      TitleColor = clOlive
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      Color = clInfoBk
      DataSource = DataMod.Dszt
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clYellow
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = True
      IndicatorColor = icBlack
      FooterColor = clGreen
      FooterCellColor = clCaptionText
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 508
      Width = 212
      Height = 43
      Align = alBottom
      TabOrder = 1
      object Button1: TButton
        Left = 14
        Top = 14
        Width = 64
        Height = 21
        Caption = '新增帐套'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 91
        Top = 14
        Width = 45
        Height = 21
        Caption = '修改'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 147
        Top = 14
        Width = 45
        Height = 21
        Caption = '删除'
        TabOrder = 2
        OnClick = Button3Click
      end
    end
  end
  object GroupBox2: TGroupBox
    Left = 219
    Top = 0
    Width = 581
    Height = 553
    Align = alClient
    Caption = '帐套所对应的项目名称'
    TabOrder = 1
    object wwDBGrid2: TwwDBGrid
      Left = 2
      Top = 15
      Width = 577
      Height = 494
      Selected.Strings = (
        'pchinename'#9'20'#9'项目名称'
        'calfrom'#9'100'#9'公式')
      IniAttributes.Delimiter = ';;'
      TitleColor = clOlive
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      Color = clInfoBk
      DataSource = DataMod.Dsztandp
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clYellow
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = True
      IndicatorColor = icBlack
      FooterColor = clGreen
      FooterCellColor = clCaptionText
      FooterHeight = 11
    end
    object GroupBox4: TGroupBox
      Left = 2
      Top = 509
      Width = 577
      Height = 42
      Align = alBottom
      TabOrder = 1
      object Button4: TButton
        Left = 455
        Top = 14
        Width = 45
        Height = 21
        Caption = '删除'
        TabOrder = 0
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 399
        Top = 14
        Width = 45
        Height = 21
        Caption = '修改'
        TabOrder = 1
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 319
        Top = 15
        Width = 68
        Height = 20
        Caption = '新增项目'
        TabOrder = 2
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 512
        Top = 14
        Width = 45
        Height = 21
        Caption = '退出'
        TabOrder = 3
        OnClick = Button7Click
      end
    end
  end
  object Panel1: TPanel
    Left = 272
    Top = 216
    Width = 239
    Height = 77
    BevelWidth = 2
    BorderWidth = 1
    BorderStyle = bsSingle
    Color = clAqua
    TabOrder = 2
    object Label1: TLabel
      Left = 26
      Top = 22
      Width = 36
      Height = 13
      Caption = '帐套名'
    end
    object DBEdit1: TDBEdit
      Left = 72
      Top = 17
      Width = 145
      Height = 21
      DataField = 'ztname'
      DataSource = DataMod.Dszt
      TabOrder = 0
    end
    object Button8: TButton
      Left = 64
      Top = 46
      Width = 45
      Height = 21
      Caption = '确定'
      TabOrder = 1
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 138
      Top = 46
      Width = 45
      Height = 21
      Caption = '取消'
      TabOrder = 2
      OnClick = Button9Click
    end
  end
  object Panel2: TPanel
    Left = 200
    Top = 144
    Width = 401
    Height = 161
    BevelWidth = 2
    BorderWidth = 1
    BorderStyle = bsSingle
    Color = clAqua
    TabOrder = 3
    object Label2: TLabel
      Left = 17
      Top = 52
      Width = 63
      Height = 13
      AutoSize = False
      Caption = '项目名称'
    end
    object Label3: TLabel
      Left = 16
      Top = 81
      Width = 63
      Height = 13
      AutoSize = False
      Caption = '计算公式'
    end
    object Label4: TLabel
      Left = 16
      Top = 23
      Width = 74
      Height = 13
      AutoSize = False
      Caption = '计算优先级'
    end
    object Label5: TLabel
      Left = 127
      Top = 23
      Width = 250
      Height = 13
      AutoSize = False
      Caption = '注：0 的优先级最大，1 次之，以此类推'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Button10: TButton
      Left = 194
      Top = 112
      Width = 45
      Height = 23
      Caption = '保存'
      TabOrder = 0
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 260
      Top = 111
      Width = 45
      Height = 24
      Caption = '取消'
      TabOrder = 1
      OnClick = Button11Click
    end
    object DBEdit2: TDBEdit
      Left = 89
      Top = 76
      Width = 282
      Height = 21
      DataField = 'calfrom'
      DataSource = DataMod.Dsztandp
      TabOrder = 2
      OnKeyDown = DBEdit2KeyDown
    end
    object Button12: TButton
      Left = 93
      Top = 112
      Width = 77
      Height = 23
      Caption = '编辑公式'
      TabOrder = 3
      OnClick = Button12Click
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 89
      Top = 48
      Width = 283
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'changechinename'#9'30'#9'中文项目名'#9'F'
        'name'#9'15'#9'英文项目名'#9'F')
      DataField = 'pchinename'
      DataSource = DataMod.Dsztandp
      LookupTable = ADODataSet1
      LookupField = 'changechinename'
      Options = [loColLines, loRowLines, loTitles]
      ImeName = '中文 (简体) - 智能 ABC'
      TabOrder = 4
      AutoDropDown = False
      ShowButton = True
      SeqSearchOptions = [ssoEnabled, ssoCaseSensitive]
      AllowClearKey = False
    end
    object DBEdit3: TDBEdit
      Left = 89
      Top = 20
      Width = 34
      Height = 21
      DataField = 'calmore'
      DataSource = DataMod.Dsztandp
      ReadOnly = True
      TabOrder = 5
    end
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from syssalfields'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 66
    Top = 112
    object ADODataSet1changechinename: TStringField
      DisplayLabel = '中文项目名'
      DisplayWidth = 30
      FieldName = 'changechinename'
      Size = 50
    end
    object ADODataSet1name: TStringField
      DisplayLabel = '英文项目名'
      DisplayWidth = 15
      FieldName = 'name'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DataMod.Database1
    Parameters = <>
    Left = 243
    Top = 40
  end
  object PopupMenu1: TPopupMenu
    Left = 80
    Top = 104
    object N1: TMenuItem
      Caption = '给员工分配该帐套'
      OnClick = N1Click
    end
  end
end