u_deletedemp.~dfm

小型劳资管理系统,用visual basic+access编写

object F_deletedemp: TF_deletedemp
  Left = 71
  Top = 160
  Width = 802
  Height = 375
  Caption = #31163#32844#21592#24037#20449#24687#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 794
    Height = 121
    Align = alTop
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 201
      Height = 105
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 72
        Width = 77
        Height = 13
        Caption = #36755#20837#26597#25214#20540':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object bitbtn1: TSpeedButton
        Left = 160
        Top = 72
        Width = 33
        Height = 25
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C30E0000C30E00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7447777777777777474477777777777474447777777777474447777770000474
          447777700777F8444777770877777F8077777707777777F07777707777777777
          07777077777777770777707FE777777707777078E77777770777770F8EE77770
          77777708F8F77780777777700777700777777777700007777777}
        OnClick = Button1Click
      end
      object RadioGroup1: TRadioGroup
        Left = 8
        Top = 8
        Width = 185
        Height = 41
        Caption = #26597#25214#26041#24335
        Columns = 2
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        Items.Strings = (
          #24037#21495
          #22995#21517)
        ParentFont = False
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 80
        Top = 72
        Width = 81
        Height = 21
        TabOrder = 1
        OnKeyPress = Edit1KeyPress
      end
    end
    object GroupBox2: TGroupBox
      Left = 216
      Top = 8
      Width = 185
      Height = 105
      TabOrder = 1
      object Label2: TLabel
        Left = 8
        Top = 16
        Width = 72
        Height = 15
        Caption = #31163#32844#26085#26399':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 136
        Top = 72
        Width = 33
        Height = 25
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C30E0000C30E00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7447777777777777474477777777777474447777777777474447777770000474
          447777700777F8444777770877777F8077777707777777F07777707777777777
          07777077777777770777707FE777777707777078E77777770777770F8EE77770
          77777708F8F77780777777700777700777777777700007777777}
        OnClick = SpeedButton1Click
      end
      object MaskEdit1: TMaskEdit
        Left = 80
        Top = 16
        Width = 80
        Height = 21
        EditMask = '!9999/99/00;1;_'
        MaxLength = 10
        TabOrder = 0
        Text = ' -  /  /  '
      end
      object RadioGroup2: TRadioGroup
        Left = 8
        Top = 64
        Width = 121
        Height = 33
        Columns = 2
        Items.Strings = (
          #26376
          #26085)
        TabOrder = 1
      end
      object DateTimePicker1: TDateTimePicker
        Left = 160
        Top = 16
        Width = 18
        Height = 21
        CalAlignment = dtaLeft
        Date = 37547.8334942593
        Time = 37547.8334942593
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 2
        OnChange = DateTimePicker1Change
      end
    end
    object GroupBox3: TGroupBox
      Left = 408
      Top = 8
      Width = 385
      Height = 105
      TabOrder = 2
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 72
        Height = 15
        Caption = #32452#21512#26597#35810':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clOlive
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton3: TSpeedButton
        Left = 304
        Top = 72
        Width = 65
        Height = 22
        Caption = #25191#34892#26597#35810
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton3Click
      end
      object Label4: TLabel
        Left = 8
        Top = 40
        Width = 40
        Height = 15
        Caption = #24615#21035'='
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 104
        Top = 40
        Width = 32
        Height = 15
        Caption = #25110#32773
        Font.Charset = GB2312_CHARSET
        Font.Color = clOlive
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 136
        Top = 40
        Width = 40
        Height = 15
        Caption = #23130#21542'='
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 232
        Top = 40
        Width = 32
        Height = 15
        Caption = #25110#32773
        Font.Charset = GB2312_CHARSET
        Font.Color = clOlive
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 272
        Top = 40
        Width = 40
        Height = 15
        Caption = #31821#36143'='
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object ComboBox1: TComboBox
        Left = 48
        Top = 40
        Width = 57
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          #30007
          #22899)
      end
      object ComboBox2: TComboBox
        Left = 176
        Top = 40
        Width = 57
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Items.Strings = (
          #26410#23130
          #24050#23130)
      end
      object ComboBox3: TComboBox
        Left = 320
        Top = 40
        Width = 57
        Height = 21
        ItemHeight = 13
        TabOrder = 2
        Items.Strings = (
          #22235#24029
          #37325#24198
          #27743#35199
          #27743#33487
          #28246#21271
          #28246#21335
          #27827#21271
          #27827#21335
          #24191#19996
          #24191#35199
          #36149#24030
          #20113#21335
          #38738#28023
          #23665#19996
          #31119#24314
          #28023#21335
          #23433#24509
          #26032#30086
          #20869#33945#21476
          #40657#40857#27743
          #21513#26519
          #36797#23425
          #35199#34255
          #29976#32899
          #21488#28286
          #39321#28207
          #28595#38376
          ''
          '')
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 121
    Width = 794
    Height = 208
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'work_num'
        Title.Caption = #24037#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple