⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 wsalary_work.dfm

📁 很经典的数据库代码
💻 DFM
📖 第 1 页 / 共 2 页
字号:
        Top = 17
        Width = 100
        Height = 21
        EditMask = '!0000-!90-90 !90:00;1;_'
        MaxLength = 16
        TabOrder = 0
        Text = '    -  -     :  '
      end
      object MaskEdit4: TMaskEdit
        Left = 2
        Top = 59
        Width = 101
        Height = 21
        EditMask = '!0000-!90-90 !90:00;1;_'
        MaxLength = 16
        TabOrder = 1
        Text = '    -  -     :  '
      end
      object DBGrid5: TDBGrid
        Left = 0
        Top = 83
        Width = 369
        Height = 244
        Align = alCustom
        DataSource = DM.DS_Leave
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Leave_ID'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#32534#21495
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Leave_PID'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#24037#21495
            Width = 52
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PID_Name'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#22995#21517
            Width = 52
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Leave_DStart'
            Title.Alignment = taCenter
            Title.Caption = #24320#22987#26102#38388
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Leave_DEnd'
            Title.Alignment = taCenter
            Title.Caption = #32467#26463#26102#38388
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Leave_Text'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Visible = True
          end>
      end
      object Memo2: TMemo
        Left = 160
        Top = 3
        Width = 204
        Height = 78
        TabOrder = 3
      end
    end
    object TabSheet5: TTabSheet
      Caption = #32771#21220#32479#35745
      ImageIndex = 4
      object Label12: TLabel
        Left = 109
        Top = 1
        Width = 84
        Height = 13
        Caption = #32479#35745#24320#22987#26085#26399#65306
      end
      object Label13: TLabel
        Left = 253
        Top = 2
        Width = 84
        Height = 13
        Caption = #32479#35745#32467#26463#26085#26399#65306
      end
      object Label15: TLabel
        Left = 221
        Top = 22
        Width = 12
        Height = 13
        Caption = #33267
      end
      object Label16: TLabel
        Left = 11
        Top = 1
        Width = 60
        Height = 13
        Caption = #32479#35745#26376#20221#65306
      end
      object DateTimePicker2: TDateTimePicker
        Left = 108
        Top = 18
        Width = 102
        Height = 21
        CalAlignment = dtaLeft
        Date = 37694.8602701736
        Time = 37694.8602701736
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker3: TDateTimePicker
        Left = 252
        Top = 18
        Width = 102
        Height = 21
        CalAlignment = dtaLeft
        Date = 37694.8602701736
        Time = 37694.8602701736
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object DBGrid6: TDBGrid
        Left = 0
        Top = 48
        Width = 369
        Height = 279
        Align = alCustom
        DataSource = DM.DS_Stat
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Stat_ID'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_YMonth'
            Title.Alignment = taCenter
            Title.Caption = #32479#35745#26376#20221
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_PID'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#24037#21592
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PID_Name'
            Title.Alignment = taCenter
            Title.Caption = #21592#24037#22995#21517
            Width = 52
            Visible = True
          end
          item
            Alignment = taLeftJustify
            Expanded = False
            FieldName = 'Stat_HWork'
            Title.Alignment = taCenter
            Title.Caption = #19978#29677#26102#38388
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_HOvertime'
            Title.Alignment = taCenter
            Title.Caption = #21152#29677#26102#38388
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_DEvection'
            Title.Alignment = taCenter
            Title.Caption = #20986#24046#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_DLeave'
            Title.Alignment = taCenter
            Title.Caption = #35831#20551#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_TAbsent'
            Title.Alignment = taCenter
            Title.Caption = #26103#24037#27425#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_TLate'
            Title.Alignment = taCenter
            Title.Caption = #36831#21040#27425#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Stat_TEarly'
            Title.Alignment = taCenter
            Title.Caption = #26089#36864#27425#25968
            Visible = True
          end>
      end
      object ME_MStat: TMaskEdit
        Left = 10
        Top = 17
        Width = 59
        Height = 21
        EditMask = '!0000-!90;1;_'
        MaxLength = 7
        TabOrder = 3
        Text = '    -  '
      end
    end
  end
  object DBNavigator1: TDBNavigator [2]
    Left = 344
    Top = 32
    Width = 240
    Height = 25
    DataSource = DM.DS_Atten
    TabOrder = 2
    Visible = False
  end
  object Panel1: TPanel [3]
    Left = 376
    Top = 56
    Width = 215
    Height = 335
    BevelInner = bvLowered
    TabOrder = 3
    object Label1: TLabel
      Left = 8
      Top = 37
      Width = 36
      Height = 13
      Caption = #37096#38376#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 2
      Width = 60
      Height = 13
      Caption = #21592#24037#24037#21495#65306
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 72
      Width = 211
      Height = 261
      Align = alCustom
      DataSource = DM.DS_Employee
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'Employee_ID'
          Title.Alignment = taCenter
          Title.Caption = #24037#21495
          Title.Color = clAqua
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Employee_Name'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Employee_Branch'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376
          Width = 59
          Visible = True
        end>
    end
    object ME_Branch: TMaskEdit
      Left = 6
      Top = 50
      Width = 96
      Height = 21
      EditMask = '0000;1;_'
      MaxLength = 4
      TabOrder = 1
      Text = '    '
      OnChange = ME_BranchChange
    end
    object BB_Query: TBitBtn
      Left = 122
      Top = 28
      Width = 75
      Height = 25
      Cancel = True
      Caption = #21592#24037#26597#25214
      TabOrder = 2
      OnClick = BB_QueryClick
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00C0C0C00000000000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00C0C0C000000000000080800000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00C0C0C000000000000080800080800000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00C0C0C000000000000080800080800000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00C0C0C000C0C0C000C0C0C000FF00FF00FF00FF00C0C0
        C000000000000080800080800000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00C0C0C0000000000000000000000000000000000080808000C0C0C0000000
        0000FFFFFF0080800000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C0C0
        C000C0C0C00000000000C0C0C000C0C0C000C0C0C00000000000000000008080
        000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
        0000C0C0C000FFFF0000FFFFFF00FFFFFF00FFFFFF00FFFF0000000000000000
        0000C0C0C000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000C0C0
        C000FFFF0000FFFF0000C0C0C0008080000080800000FFFFFF00FFFF00000000
        000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
        0000FFFF0000FFFF0000FFFF0000FFFF0000C0C0C00080800000FFFFFF00C0C0
        C00000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
        0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF000080800000FFFFFF00C0C0
        C00000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFF
        0000FFFFFF00FFFF0000FFFF0000FFFFFF00FFFF0000C0C0C000FFFFFF00C0C0
        C00000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C0C0C000C0C0
        C000FFFF0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000
        000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        0000C0C0C000FFFF0000FFFFFF00FFFFFF00FFFFFF00FFFF0000C0C0C000C0C0
        C000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
        000000000000C0C0C000FFFF0000FFFF0000C0C0C000C0C0C00000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000C0C0C00000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      Layout = blGlyphRight
    end
    object ME_Person: TMaskEdit
      Left = 6
      Top = 15
      Width = 94
      Height = 21
      EditMask = '000000;1;_'
      MaxLength = 6
      TabOrder = 3
      Text = '      '
      OnChange = ME_PersonChange
    end
  end
  inherited ImageList1: TImageList
    Left = 320
    Top = 32
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 64
    Top = 168
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -