archmain.dfm

档案信息管理系统

        Left = 117
        Top = 79
        Width = 149
        Height = 26
        BevelKind = bkFlat
        BorderStyle = bsNone
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
      end
      object edCompDep: TEdit
        Left = 117
        Top = 167
        Width = 149
        Height = 26
        BevelKind = bkFlat
        BorderStyle = bsNone
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 1
      end
      object cbCompOp: TComboBox
        Left = 117
        Top = 48
        Width = 50
        Height = 24
        BevelKind = bkFlat
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        ItemHeight = 16
        TabOrder = 2
        Items.Strings = (
          '='
          '>'
          '<'
          '>='
          '<=')
      end
      object edCompArch: TEdit
        Left = 171
        Top = 48
        Width = 96
        Height = 26
        BevelKind = bkFlat
        BorderStyle = bsNone
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 3
      end
      object cbCompGender: TComboBox
        Left = 117
        Top = 108
        Width = 149
        Height = 24
        BevelKind = bkFlat
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        ItemHeight = 16
        TabOrder = 4
        Items.Strings = (
          #30007
          #22899)
      end
      object cbCompBirthday: TComboBox
        Left = 117
        Top = 197
        Width = 59
        Height = 24
        BevelKind = bkFlat
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        ItemHeight = 16
        TabOrder = 5
        Items.Strings = (
          '='
          '>'
          '<'
          '>='
          '<=')
      end
      object edCompDegree: TEdit
        Left = 117
        Top = 138
        Width = 149
        Height = 26
        BevelKind = bkFlat
        BorderStyle = bsNone
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 6
      end
      object cbCompCT: TComboBox
        Left = 117
        Top = 288
        Width = 60
        Height = 24
        BevelKind = bkFlat
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        ItemHeight = 16
        TabOrder = 7
        Items.Strings = (
          '='
          '>'
          '<'
          '>='
          '<=')
      end
      object edCompBirthday: TMaskEdit
        Left = 177
        Top = 197
        Width = 89
        Height = 26
        BevelKind = bkFlat
        BorderStyle = bsNone
        EditMask = '!99/99/00;1;_'
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        MaxLength = 8
        TabOrder = 8
        Text = '  -  -  '
      end
      object edCompJST: TMaskEdit
        Left = 117
        Top = 228
        Width = 149
        Height = 26
        Hint = 'xx-xx-xx'
        BevelKind = bkFlat
        BorderStyle = bsNone
        EditMask = '!99/99/00;1;_'
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        MaxLength = 8
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        Text = '  -  -  '
      end
      object edCompJET: TMaskEdit
        Left = 117
        Top = 258
        Width = 149
        Height = 26
        Hint = 'xx-xx-xx'
        BevelKind = bkFlat
        BorderStyle = bsNone
        EditMask = '!99/99/00;1;_'
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        MaxLength = 8
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        Text = '  -  -  '
      end
      object edCompCreateTime: TMaskEdit
        Left = 178
        Top = 287
        Width = 88
        Height = 26
        BevelKind = bkFlat
        BorderStyle = bsNone
        EditMask = '!99/99/00;1;_'
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        MaxLength = 8
        TabOrder = 11
        Text = '  -  -  '
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 309
    Top = 0
    Width = 395
    Height = 407
    Align = alRight
    Caption = #26723#26696#24211#24403#21069#35760#24405
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 18
      Width = 391
      Height = 387
      Align = alClient
      DataSource = MainDataModule.StuffDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'ArchiveNo'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name'
          Title.Alignment = taCenter
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Gender'
          Title.Alignment = taCenter
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Birthday'
          Title.Alignment = taCenter
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Degree'
          Title.Alignment = taCenter
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DepName'
          Title.Alignment = taCenter
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Posistion'
          Title.Alignment = taCenter
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JobStartDate'
          Title.Alignment = taCenter
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JobEndDAte'
          Title.Alignment = taCenter
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TelNumber'
          Title.Alignment = taCenter
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Address'
          Title.Alignment = taCenter
          Width = 100
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 707
    Top = 0
    Width = 131
    Height = 407
    Align = alRight
    Caption = #22522#26412#25805#20316
    Color = clMenuBar
    ParentColor = False
    TabOrder = 2
    object btNewArch: TBitBtn
      Left = 20
      Top = 30
      Width = 92
      Height = 30
      Caption = #26032#24314#26723#26696
      TabOrder = 0
      OnClick = btNewArchClick
    end
    object btModifyArch: TBitBtn
      Left = 20
      Top = 69
      Width = 92
      Height = 31
      Caption = #20462#25913#26723#26696
      TabOrder = 1
      OnClick = btModifyArchClick
    end
    object btDelArch: TBitBtn
      Left = 20
      Top = 108
      Width = 92
      Height = 31
      Caption = #21024#38500#26723#26696
      TabOrder = 2
      OnClick = btDelArchClick
    end
    object btPrintArch: TBitBtn
      Left = 20
      Top = 226
      Width = 92
      Height = 31
      Caption = #25171#21360#26723#26696
      TabOrder = 3
      OnClick = btPrintArchClick
    end
    object btResetArch: TBitBtn
      Left = 20
      Top = 148
      Width = 92
      Height = 30
      Caption = #37325#32622#25968#25454
      TabOrder = 4
      OnClick = btResetArchClick
    end
    object btSearchArch: TBitBtn
      Left = 20
      Top = 187
      Width = 92
      Height = 31
      Caption = #26597#35810#26723#26696
      TabOrder = 5
      OnClick = btSearchArchClick
    end
  end
end