departmentmain.dfm

档案信息管理系统

object DepMainForm: TDepMainForm
  Left = 239
  Top = 203
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = #37096#38376#31649#29702
  ClientHeight = 316
  ClientWidth = 597
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 340
    Top = 0
    Width = 5
    Height = 316
    Color = clActiveCaption
    ParentColor = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 340
    Height = 316
    Align = alLeft
    Caption = #24403#21069#37096#38376#20449#24687
    TabOrder = 0
    object DepDBGrid: TDBGrid
      Left = 2
      Top = 18
      Width = 336
      Height = 296
      Align = alClient
      DataSource = MainDataModule.DepDataSource
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DepDBGridCellClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DepName'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#21517#31216
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DepLeader'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#36127#36131#20154
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DepMemberNo'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#24403#21069#20154#25968
          Width = 100
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 345
    Top = 0
    Width = 252
    Height = 316
    Align = alClient
    Caption = #25968#25454#24211#31649#29702
    Color = clMenuBar
    ParentColor = False
    TabOrder = 1
    object Label1: TLabel
      Left = 65
      Top = 53
      Width = 60
      Height = 16
      Caption = #37096#38376#21517#31216#65306
    end
    object Label2: TLabel
      Left = 62
      Top = 113
      Width = 72
      Height = 16
      Caption = #37096#38376#36127#36131#20154#65306
    end
    object edDepName: TEdit
      Left = 28
      Top = 76
      Width = 149
      Height = 27
      BorderStyle = bsNone
      TabOrder = 0
    end
    object edDepLeader: TEdit
      Left = 28
      Top = 139
      Width = 149
      Height = 27
      BorderStyle = bsNone
      TabOrder = 1
    end
    object btNewDep: TBitBtn
      Left = 106
      Top = 219
      Width = 92
      Height = 31
      Caption = #26032#24314#37096#38376
      TabOrder = 2
      OnClick = btNewDepClick
    end
    object btModifyDep: TBitBtn
      Left = 7
      Top = 219
      Width = 93
      Height = 32
      Caption = #20462#25913#37096#38376
      TabOrder = 3
      OnClick = btModifyDepClick
    end
    object btDelDep: TBitBtn
      Left = 7
      Top = 257
      Width = 93
      Height = 31
      Caption = #21024#38500#37096#38376
      TabOrder = 4
      OnClick = btDelDepClick
    end
    object btResetDep: TBitBtn
      Left = 106
      Top = 256
      Width = 92
      Height = 31
      Caption = #37325#32622#20449#24687
      TabOrder = 5
      OnClick = btResetDepClick
    end
  end
end