u_fk_record.~dfm

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

            #21733
            #22992
            #24351
            #22969
            #20799
            #22899)
        end
        object Edit5: TEdit
          Left = 152
          Top = 8
          Width = 49
          Height = 21
          TabOrder = 1
          Text = '0'
        end
        object UpDown1: TUpDown
          Left = 201
          Top = 8
          Width = 15
          Height = 21
          Associate = Edit5
          Min = 0
          Position = 0
          TabOrder = 2
          Wrap = False
        end
        object Edit6: TEdit
          Left = 280
          Top = 8
          Width = 49
          Height = 21
          TabOrder = 3
          Text = '0'
        end
        object UpDown2: TUpDown
          Left = 329
          Top = 8
          Width = 15
          Height = 21
          Associate = Edit6
          Min = 0
          Position = 0
          TabOrder = 4
          Wrap = False
        end
      end
    end
    object GroupBox2: TGroupBox
      Left = 472
      Top = 0
      Width = 169
      Height = 145
      TabOrder = 1
      object GroupBox3: TGroupBox
        Left = 16
        Top = 16
        Width = 145
        Height = 121
        Caption = #20462#25913#25110#28155#21152
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object bitbtn4: TSpeedButton
          Left = 32
          Top = 32
          Width = 73
          Height = 25
          Caption = #20462#25913
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000C30E0000C30E00001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777700000000000007788888888888880778F7B7B75FB7B80778FB7B7555FB7
            80778F7B75555F7B80778FB75557B5F780778F75557B755F80778FB757B7B75F
            80778FFFFFFFFFF5F77787B7B7B888885F77787B7B87777775F7778888777777
            7757777777777777777777777777777777777777777777777777}
          OnClick = BitBtn4Click
        end
        object bitbtn5: TSpeedButton
          Left = 32
          Top = 72
          Width = 73
          Height = 25
          Caption = #21024#38500
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000120B0000120B00001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777777777777777777777777777777777777777877777777777777717777777
            7777777711777781777777778187781877777777711871177777777778111177
            7777777778111777777777778111187777777777118711877777777777777118
            7777777777777711877777777777777777777777777777777777}
          OnClick = BitBtn5Click
        end
      end
      object Panel2: TPanel
        Left = 8
        Top = 8
        Width = 153
        Height = 129
        BevelOuter = bvNone
        TabOrder = 1
        object Label10: TLabel
          Left = 0
          Top = 8
          Width = 144
          Height = 15
          Caption = #20026#34917#21345#36755#20837#38388#21644#26631#35782
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -15
          Font.Name = #20223#23435'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 8
          Top = 40
          Width = 40
          Height = 15
          Caption = #26102#38388':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -15
          Font.Name = #20223#23435'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 8
          Top = 72
          Width = 40
          Height = 15
          Caption = #26631#35782':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -15
          Font.Name = #20223#23435'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object SpeedButton1: TSpeedButton
          Left = 40
          Top = 104
          Width = 73
          Height = 25
          Caption = #25918#24323
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clTeal
          Font.Height = -16
          Font.Name = #20223#23435'_GB2312'
          Font.Style = []
          ParentFont = False
          OnClick = SpeedButton1Click
        end
        object Edit1: TEdit
          Left = 48
          Top = 72
          Width = 65
          Height = 21
          TabOrder = 0
        end
        object MaskEdit4: TMaskEdit
          Left = 48
          Top = 40
          Width = 73
          Height = 21
          EditMask = '!90:00;0;_'
          MaxLength = 5
          TabOrder = 1
          OnChange = MaskEdit4Change
        end
        object ComboBox2: TComboBox
          Left = 104
          Top = 72
          Width = 17
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          Text = 'ComboBox2'
          OnClick = ComboBox2Click
          Items.Strings = (
            'A'
            'B'
            'C'
            'D'
            'E'
            'F')
        end
      end
    end
    object Edit2: TEdit
      Left = 312
      Top = 120
      Width = 81
      Height = 21
      TabOrder = 2
      OnChange = Edit2Change
      OnKeyPress = Edit2KeyPress
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 153
    Width = 647
    Height = 217
    Align = alClient
    DataSource = DataSource2
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'yjbm_name'
        Title.Caption = #19968#32423#37096#38376
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        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 = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #22995#21517
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        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 = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'item'
        Title.Caption = #32602#27454#31867#21035
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'money'
        Title.Caption = #32602#27454#37329#39069
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fs_date'
        Title.Caption = #21457#29983#26085#26399
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'kkyf'
        Title.Caption = #25187#27454#26376#20221
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dj_date'
        Title.Caption = #30331#35760#26085#26399
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'memo'
        Title.Caption = #32602#27454#21407#22240
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -13
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object Q_fk_record: TQuery
    DatabaseName = 'person_DB'
    Constrained = True
    RequestLive = True
    SQL.Strings = (
      'select * from fk_record')
    Left = 152
    Top = 280
    object Q_fk_recordworknum: TStringField
      DisplayLabel = #58907#33145
      DisplayWidth = 10
      FieldName = 'worknum'
      Origin = 'PERSON_DB.fk_record.worknum'
      FixedChar = True
      Size = 6
    end
    object Q_fk_recorditem: TStringField
      DisplayLabel = #25720#59157
      DisplayWidth = 19
      FieldName = 'item'
      Origin = 'PERSON_DB.fk_record.item'
      FixedChar = True
      Size = 16
    end
    object Q_fk_recordmoney: TFloatField
      DisplayLabel = #57430#32898
      DisplayWidth = 12
      FieldName = 'money'
      Origin = 'PERSON_DB.fk_record.money'
    end
    object Q_fk_recordfs_date: TStringField
      DisplayLabel = #31047#12493#12425#25139
      DisplayWidth = 12
      FieldName = 'fs_date'
      Origin = 'PERSON_DB.fk_record.fs_date'
      FixedChar = True
      Size = 10
    end
    object Q_fk_recordkkyf: TStringField
      DisplayLabel = #921#36479#12427#59261
      DisplayWidth = 10
      FieldName = 'kkyf'
      Origin = 'PERSON_DB.fk_record.kkyf'
      FixedChar = True
      Size = 7
    end
    object Q_fk_recorddj_date: TStringField
      DisplayLabel = #31045#30296#12425#25139
      DisplayWidth = 12
      FieldName = 'dj_date'
      Origin = 'PERSON_DB.fk_record.dj_date'
      FixedChar = True
      Size = 10
    end
    object Q_fk_recordmemo: TStringField
      DisplayLabel = #34383#34411#30942#29891
      DisplayWidth = 36
      FieldName = 'memo'
      Origin = 'PERSON_DB.fk_record.memo'
      FixedChar = True
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = Q_fk_record
    OnStateChange = DataSource1StateChange
    Left = 216
    Top = 280
  end
  object Q_emp_fk: TQuery
    DatabaseName = 'person_DB'
    Constrained = True
    RequestLive = True
    SQL.Strings = (
      'select * from V_emp_fk order by fs_date')
    Left = 24
    Top = 280
    object Q_emp_fkyjbm_name: TStringField
      DisplayLabel = #58854#57850#22330#57432
      DisplayWidth = 10
      FieldName = 'yjbm_name'
      Origin = 'PERSON_DB.V_emp_fk.yjbm_name'
      ReadOnly = True
      FixedChar = True
      Size = 16
    end
    object Q_emp_fkejbm_name: TStringField
      DisplayLabel = #58861#57850#22330#57432
      DisplayWidth = 10
      FieldName = 'ejbm_name'
      Origin = 'PERSON_DB.V_emp_fk.ejbm_name'
      ReadOnly = True
      FixedChar = True
      Size = 16
    end
    object Q_emp_fkwork_num: TStringField
      DisplayLabel = #58907#33145
      DisplayWidth = 8
      FieldName = 'work_num'
      Origin = 'PERSON_DB.V_emp_fk.work_num'
      ReadOnly = True
      FixedChar = True
      Size = 10
    end
    object Q_emp_fkname: TStringField
      DisplayLabel = #65102#59069
      DisplayWidth = 8
      FieldName = 'name'
      Origin = 'PERSON_DB.V_emp_fk.name'
      FixedChar = True
      Size = 10
    end
    object Q_emp_fkitem: TStringField
      DisplayLabel = #25720#59157
      DisplayWidth = 8
      FieldName = 'item'
      Origin = 'PERSON_DB.V_emp_fk.item'
      FixedChar = True
      Size = 16
    end
    object Q_emp_fkmoney: TFloatField
      DisplayLabel = #57430#32898
      FieldName = 'money'
      Origin = 'PERSON_DB.V_emp_fk.money'
    end
    object Q_emp_fkfs_date: TStringField
      DisplayLabel = #31047#12493#12425#25139
      FieldName = 'fs_date'
      Origin = 'PERSON_DB.V_emp_fk.fs_date'
      FixedChar = True
      Size = 10
    end
    object Q_emp_fkkkyf: TStringField
      DisplayLabel = #921#36479#12427#59261
      FieldName = 'kkyf'
      Origin = 'PERSON_DB.V_emp_fk.kkyf'
      FixedChar = True
      Size = 7
    end
    object Q_emp_fkdj_date: TStringField
      DisplayLabel = #31045#30296#12425#25139
      FieldName = 'dj_date'
      Origin = 'PERSON_DB.V_emp_fk.dj_date'
      FixedChar = True
      Size = 10
    end
    object Q_emp_fkmemo: TStringField
      DisplayLabel = #34383#34411#30942#29891
      FieldName = 'memo'
      Origin = 'PERSON_DB.V_emp_fk.memo'
      FixedChar = True
      Size = 30
    end
  end
  object DataSource2: TDataSource
    DataSet = Q_emp_fk
    OnStateChange = Qnge
    Left = 88
    Top = 280
  end
end