ubaseinfo.dfm

简单易用的按件按时计工资管理系统

object BaseInfo: TBaseInfo
  Left = 184
  Top = 114
  Width = 696
  Height = 480
  Caption = #22522#30784#36164#26009
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlClass: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 453
    Align = alLeft
    TabOrder = 0
    object tvClass: TTreeView
      Left = 1
      Top = 1
      Width = 183
      Height = 451
      Cursor = crHandPoint
      Align = alClient
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnChange = tvClassChange
      Items.Data = {
        0100000021000000000000000000000000000000FFFFFFFF0000000002000000
        08BBF9B4A1D7CAC1CF1B0000000000000000000000FFFFFFFFFFFFFFFF000000
        000000000002D7E91D0000000000000000000000FFFFFFFFFFFFFFFF00000000
        0000000004D4B1B9A4}
    end
  end
  object pnlmain: TPanel
    Left = 185
    Top = 0
    Width = 503
    Height = 453
    Align = alClient
    TabOrder = 1
    object cbMain: TCoolBar
      Left = 1
      Top = 1
      Width = 501
      Height = 29
      Bands = <
        item
          Control = tbMain
          ImageIndex = -1
          Width = 497
        end>
      object tbMain: TToolBar
        Left = 9
        Top = 0
        Width = 484
        Height = 25
        ButtonWidth = 75
        Caption = 'tbMain'
        Flat = True
        Images = Img_Main
        List = True
        ShowCaptions = True
        TabOrder = 0
        object ToolButton1: TToolButton
          Left = 0
          Top = 0
          Action = actAdd
        end
        object ToolButton2: TToolButton
          Left = 75
          Top = 0
          Width = 8
          Caption = 'ToolButton2'
          ImageIndex = 5
          Style = tbsSeparator
        end
        object ToolButton3: TToolButton
          Left = 83
          Top = 0
          Action = actDel
        end
        object ToolButton4: TToolButton
          Left = 158
          Top = 0
          Width = 8
          Caption = 'ToolButton4'
          ImageIndex = 23
          Style = tbsSeparator
        end
        object ToolButton5: TToolButton
          Left = 166
          Top = 0
          Action = actSave
        end
        object ToolButton6: TToolButton
          Left = 241
          Top = 0
          Width = 8
          Caption = 'ToolButton6'
          ImageIndex = 8
          Style = tbsSeparator
        end
        object ToolButton7: TToolButton
          Left = 249
          Top = 0
          Action = actClose
        end
      end
    end
    object Cell: TdxDBGrid
      Left = 1
      Top = 30
      Width = 501
      Height = 422
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = #20027#38190
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 1
      DataSource = dsItem
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoEnterThrough, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
    end
  end
  object cdsItem: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspItem'
    Left = 376
    Top = 240
  end
  object dsItem: TDataSource
    DataSet = cdsItem
    Left = 376
    Top = 272
  end
  object dspItem: TDataSetProvider
    DataSet = DM.ads
    Constraints = True
    Options = [poAllowCommandText]
    UpdateMode = upWhereChanged
    Left = 376
    Top = 200
  end
  object Actions: TActionList
    Images = Img_Main
    Left = 256
    Top = 136
    object actClose: TAction
      Caption = #20851#38381'(Esc)'
      ImageIndex = 20
      ShortCut = 27
      OnExecute = actCloseExecute
    end
    object actAdd: TAction
      Caption = #26032#22686
      ImageIndex = 4
      OnExecute = actAddExecute
    end
    object actDel: TAction
      Caption = #21024#38500
      ImageIndex = 22
      OnExecute = actDelExecute
    end
    object actSave: TAction
      Caption = #20445#23384
      ImageIndex = 7
      OnExecute = actSaveExecute
    end
  end
  object Img_Main: TImageList
    Left = 272
    Top = 96
    Bitmap = {
      494C010130003100040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      000000000000360000002800000040000000D0000000010020000000000000D0
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000