seek.dfm

一个DELPHI的人事管理系统,具有一般人事管理系统的基本功能

object SeekForm: TSeekForm
  Left = 233
  Top = 191
  Width = 628
  Height = 368
  Caption = #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
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton3: TSpeedButton
    Left = 559
    Top = 24
    Width = 23
    Height = 22
    Hint = #26597#35810
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333FF3FF3333333333CC30003333333333773777333333333C33
      3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
      33003377333337F33377333333333C333300333F333337F33377339333333C33
      3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
      330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
      330077F377F337F33377993399333C33330077FF773337F33377399993333C33
      33333777733337F333FF333333333C33300033333333373FF7773333333333CC
      3000333333333377377733333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton3Click
  end
  object SpeedButton1: TSpeedButton
    Left = 584
    Top = 24
    Width = 23
    Height = 22
    Hint = #36864#20986
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 537
    Height = 49
    Caption = #26597#35810#31867#21035
    TabOrder = 0
    object Label1: TLabel
      Left = 176
      Top = 24
      Width = 32
      Height = 13
      Caption = 'Label1'
    end
    object Label2: TLabel
      Left = 344
      Top = 24
      Width = 73
      Height = 13
      Caption = 'Label2'
    end
    object ComboBox1: TComboBox
      Left = 16
      Top = 16
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'ComboBox1'
      OnClick = ComboBox1Click
    end
    object Edit1: TEdit
      Left = 232
      Top = 16
      Width = 97
      Height = 21
      TabOrder = 1
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 424
      Top = 16
      Width = 97
      Height = 21
      TabOrder = 2
      Text = 'Edit2'
    end
    object MaskEdit1: TMaskEdit
      Left = 232
      Top = 16
      Width = 96
      Height = 21
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 3
      Text = '    -  -  '
    end
    object MaskEdit2: TMaskEdit
      Left = 424
      Top = 16
      Width = 96
      Height = 21
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 4
      Text = '    -  -  '
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 64
    Width = 593
    Height = 265
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 256
    Top = 168
  end
  object Table1: TTable
    DatabaseName = 'rsgl'
    TableName = 'info.DB'
    Left = 176
    Top = 192
    object Table1Number: TStringField
      FieldName = 'Number'
      Size = 6
    end
    object Table1Name: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object Table1Sex: TStringField
      FieldName = 'Sex'
      Size = 2
    end
    object Table1Birthday: TDateField
      FieldName = 'Birthday'
    end
    object Table1Address: TStringField
      FieldName = 'Address'
      Size = 40
    end
    object Table1Phone: TStringField
      FieldName = 'Phone'
    end
    object Table1Unit: TStringField
      FieldName = 'Unit'
    end
    object Table1Salary: TFloatField
      FieldName = 'Salary'
    end
    object Table1Work_date: TDateField
      FieldName = 'Work_date'
    end
    object Table1Duty: TStringField
      FieldName = 'Duty'
      Size = 10
    end
    object Table1Speciality: TStringField
      FieldName = 'Speciality'
    end
    object Table1Note: TStringField
      FieldName = 'Note'
    end
    object Table1Operator: TStringField
      FieldName = 'Operator'
      Size = 8
    end
    object Table1Stamp: TDateField
      FieldName = 'Stamp'
    end
    object Table1Id: TStringField
      FieldName = 'Id'
      Size = 18
    end
  end
end