📄 u_holiday.~dfm

📁 小型劳资管理系统,用visual basic+access编写
💻 ~DFM
字号:
object F_holiday: TF_holiday
  Left = 71
  Top = 137
  Width = 679
  Height = 395
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #35831#20551#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 408
    Top = 8
    Width = 56
    Height = 14
    Caption = #32452#21512#26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 200
    Top = 48
    Width = 3
    Height = 13
  end
  object Button1: TSpeedButton
    Left = 600
    Top = 24
    Width = 65
    Height = 25
    Caption = #25191#34892
    Font.Charset = GB2312_CHARSET
    Font.Color = clOlive
    Font.Height = -13
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777477777777777777744777774747474444447777777777777
      4477777777777777477777777777777777770007770007777777000777000777
      7777080070800777777707007070077777770000000007777777708000807777
      7777770070077777777777007007777777777777777777777777}
    ParentFont = False
    OnClick = Button1Click
  end
  object Button2: TSpeedButton
    Left = 600
    Top = 64
    Width = 65
    Height = 25
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clOlive
    Font.Height = -13
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777777777777777777777877777777777777717777777
      7777777711777781777777778187781877777777711871177777777778111177
      7777777778111777777777778111187777777777118711877777777777777118
      7777777777777711877777777777777777777777777777777777}
    ParentFont = False
    OnClick = Button2Click
  end
  object Label7: TLabel
    Left = 408
    Top = 32
    Width = 72
    Height = 15
    Caption = #35831#20551#31867#21035'='
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -15
    Font.Name = #20223#23435'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 408
    Top = 64
    Width = 72
    Height = 15
    Caption = #21592#24037#24037#21495'='
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -15
    Font.Name = #20223#23435'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 112
    Width = 657
    Height = 249
    DataSource = Ds_holiday
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'yjbm_name'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = #19968#32423#37096#38376
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ejbm_name'
        Title.Caption = #20108#32423#37096#38376
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'work_num'
        Title.Caption = #24037#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ht_name'
        Title.Caption = #35831#20551#31867#21035
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ht_date'
        Title.Caption = #35831#20551#26085#26399
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'begin_time'
        Title.Caption = #24320#22987#26102#38388
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'end_time'
        Title.Caption = #32467#26463#26102#38388
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'times'
        Title.Caption = #26102#38271
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 33
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'memo'
        Title.Caption = #21407#22240
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 79
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 393
    Height = 105
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 72
      Height = 15
      Caption = #21592#24037#22995#21517':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 208
      Top = 24
      Width = 56
      Height = 13
      Caption = #35831#20551#26085#26399
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 184
      Top = 16
      Width = 23
      Height = 22
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 184
      Top = 48
      Width = 23
      Height = 22
      OnClick = SpeedButton2Click
    end
    object Label5: TLabel
      Left = 8
      Top = 80
      Width = 72
      Height = 15
      Caption = #36755#20837#24037#21495':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton4: TSpeedButton
      Left = 184
      Top = 80
      Width = 23
      Height = 22
      OnClick = SpeedButton4Click
    end
    object SpeedButton3: TSpeedButton
      Left = 360
      Top = 24
      Width = 23
      Height = 22
      OnClick = SpeedButton3Click
    end
    object SpeedButton5: TSpeedButton
      Left = 224
      Top = 64
      Width = 57
      Height = 33
      Caption = #34917#20551
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C30E0000C30E00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777700000000000007770FFFFFFFFFFF07770F4F444444FF07770FFFFFFF0FFF
        07770F4F444400FF07770FFFFFFF000F07770F4F4444000007770FFFFFFF0FB0
        07770F4F444400FB07770FFFFFFFF0BF07770F4F4444400BF0770FFFFFFFFF0F
        B0770FFFFFFFFFF0090700000000000019077777777777770077}
      ParentFont = False
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 304
      Top = 64
      Width = 65
      Height = 33
      Caption = #38144#20551
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777877777777777777717777777
        7777777711777781777777778187781877777777711871177777777778111177
        7777777778111777777777778111187777777777118711877777777777777118
        7777777777777711877777777777777777777777777777777777}
      ParentFont = False
      OnClick = SpeedButton6Click
    end
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 63
      Height = 13
      Caption = #35831#20551#31867#21035':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object MaskEdit1: TMaskEdit
      Left = 264
      Top = 24
      Width = 97
      Height = 21
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = ' -  /  /  '
    end
    object DateTimePicker1: TDateTimePicker
      Left = 344
      Top = 24
      Width = 18
      Height = 21
      CalAlignment = dtaLeft
      Date = 37547.6077743171
      Time = 37547.6077743171
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
      OnChange = DateTimePicker1Change
    end
    object Edit2: TEdit
      Left = 80
      Top = 80
      Width = 105
      Height = 21
      TabOrder = 2
      OnKeyPress = Edit2KeyPress
    end
    object Edit3: TEdit
      Left = 80
      Top = 48
      Width = 105
      Height = 21
      TabOrder = 3
      OnKeyPress = Edit3KeyPress
    end
    object ComboBox1: TComboBox
      Left = 80
      Top = 16
      Width = 105
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      OnClick = ComboBox1Click
      Items.Strings = (
        #27491#29677#20107#20551
        #21152#29677#20107#20551
        #27491#29677#30149#20551
        #21152#29677#30149#20551
        #29305#21035#20551
        #24037#20260
        #24453#26009
        #20844#20241
        #20844#24046
        #20540#29677
        #21378#20241#26085
        #20007#20551
        #23130#20551
        #20135#20551
        #22269#24198
        #20116#19968
        #26149#33410
        #20854#23427)
    end
    object Edit1: TEdit
      Left = 80
      Top = 16
      Width = 89
      Height = 21
      TabOrder = 5
      OnKeyPress = Edit1KeyPress
    end
  end
  object ComboBox2: TComboBox
    Left = 480
    Top = 32
    Width = 81
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Items.Strings = (
      #27491#29677#20107#20551
      #21152#29677#20107#20551
      #27491#29677#30149#20551
      #21152#29677#30149#20551
      #29305#21035#20551
      #20844#20241
      #24037#20260
      #24453#26009
      #20844#24046
      #20540#29677
      #21378#20241#26085
      #22269#24198
      #26149#33410
      #20116#19968
      #20135#20551
      #23130#20551
      #20007#20551
      #20854#23427)
  end
  object Edit4: TEdit
    Left = 480
    Top = 64
    Width = 81
    Height = 21
    TabOrder = 3
    OnKeyPress = Edit4KeyPress
  end
  object Ds_holiday: TDataSource
    DataSet = DM.QV_dep_emp_holi
    Left = 64
    Top = 208
  end
end
⌨️ 快捷键说明

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