u_lookupkqdata.~dfm

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

object F_lookupkqdata: TF_lookupkqdata
  Left = 113
  Top = 139
  Width = 584
  Height = 396
  Caption = #21407#22987#25968#25454#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 137
    Width = 576
    Height = 207
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'machine_num'
        Title.Caption = #32771#21220#26426#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'card_num'
        Title.Caption = ' '#21345#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 96
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'date_YMD'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 105
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'date_T'
        Title.Caption = #21047#21345#26102#38388
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'check_char'
        Title.Caption = #21047#21345#26631#35782
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 95
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 576
    Height = 137
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 8
      Top = 0
      Width = 417
      Height = 137
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 72
        Height = 15
        Caption = #19968#32423#37096#38376':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 40
        Width = 72
        Height = 15
        Caption = #20108#32423#37096#38376':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 72
        Width = 72
        Height = 15
        Caption = #21592#24037#22995#21517':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 8
        Top = 104
        Width = 72
        Height = 15
        Caption = #36755#20837#24037#21495':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #20223#23435'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 160
        Top = 104
        Width = 23
        Height = 22
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777700777700000000091000070FFFF0FF9F10FF070FF00009F10F
          FF070F0878801077FF070087E8F80FFFFF07007E787F07777F0700EFE8E70FFF
          FF07008FF87807777F070F08E880FFFFFF070F7000077777FF070FFFF0FFFFFF
          FF07444444444444444744444444444444474444444444444447}
        OnClick = SpeedButton1Click
      end
      object Label6: TLabel
        Left = 88
        Top = 16
        Width = 32
        Height = 13
        Caption = 'Label6'
      end
      object Label7: TLabel
        Left = 88
        Top = 48
        Width = 32
        Height = 13
        Caption = 'Label7'
      end
      object Label8: TLabel
        Left = 88
        Top = 72
        Width = 32
        Height = 13
        Caption = 'Label8'
      end
      object Edit1: TEdit
        Left = 80
        Top = 104
        Width = 81
        Height = 21
        TabOrder = 0
        OnChange = Edit1Change
        OnKeyPress = Edit1KeyPress
      end
      object GroupBox2: TGroupBox
        Left = 192
        Top = 8
        Width = 217
        Height = 121
        TabOrder = 1
        object Label5: TLabel
          Left = 8
          Top = 24
          Width = 72
          Height = 15
          Caption = #24320#22987#26102#38388':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -15
          Font.Name = #20223#23435'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object SpeedButton2: TSpeedButton
          Left = 176
          Top = 24
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F0000000120B0000120B00001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            DDDDDDDD0000DDDDDDDDDDD77D77D77D0000DDD707DDDD007007007D0000DD73
            307DDD00D00D00DD0000DD7F3307DDDDDDDDDDDD0000DDD3F3307DDDDDDDDDDD