unit2.dfm

一个建立在BDE引擎上的

object Form2: TForm2
  Left = 1
  Top = 3
  BorderStyle = bsNone
  Caption = 'Form2'
  ClientHeight = 573
  ClientWidth = 789
  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 Backdrop1: TBackdrop
    Left = 0
    Top = 0
    Width = 789
    Height = 573
    EndColor = clBtnHighlight
    StartColor = clTeal
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 3
      Top = 312
      Width = 574
      Height = 228
      BorderStyle = bsNone
      DataSource = DataSource1
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BuD'
          Title.Caption = '部门代号'
          Width = 82
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BuNa'
          Title.Caption = '部门名称'
          Width = 147
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BuC'
          Title.Caption = '部门长'
          Width = 141
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BuNu'
          Title.Caption = '部门人数'
          Width = 127
          Visible = True
        end>
    end
    object DBMemo1: TDBMemo
      Left = 576
      Top = 312
      Width = 213
      Height = 228
      DataField = 'BuJ'
      DataSource = DataSource1
      TabOrder = 1
    end
    object Panel3: TPanel
      Left = 1
      Top = 0
      Width = 788
      Height = 313
      Caption = 'Panel2'
      TabOrder = 2
      object Backdrop4: TBackdrop
        Left = 1
        Top = 1
        Width = 786
        Height = 311
        EndColor = 16744576
        StartColor = clCaptionText
        TabOrder = 0
        object Label5: TLabel
          Left = 96
          Top = 96
          Width = 52
          Height = 24
          Caption = '--->'
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -24
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label6: TLabel
          Left = 256
          Top = 96
          Width = 52
          Height = 24
          Caption = '--->'
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -24
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label7: TLabel
          Left = 432
          Top = 96
          Width = 52
          Height = 24
          Caption = '--->'
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -24
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object DBGrid3: TDBGrid
          Left = 8
          Top = 8
          Width = 89
          Height = 209
          DataSource = DataSource1
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGrid3DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'BuNa'
              Title.Caption = '部门名称'
              Width = 66
              Visible = True
            end>
        end
        object buname: TDBEdit
          Left = 624
          Top = 144
          Width = 121
          Height = 21
          DataField = 'BuNa'
          DataSource = DataSource1
          TabOrder = 1
          Visible = False
        end
        object DBGrid4: TDBGrid
          Left = 160
          Top = 8
          Width = 97
          Height = 209
          DataSource = DataSource2
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGrid4DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'KeNa'
              Title.Caption = '科室名称'
              Width = 67
              Visible = True
            end>
        end
        object kename: TDBEdit
          Left = 632
          Top = 144
          Width = 121
          Height = 21
          DataField = 'KeNa'
          DataSource = DataSource2
          TabOrder = 3
          Visible = False
        end
        object DBGrid5: TDBGrid
          Left = 328
          Top = 8
          Width = 105
          Height = 209
          DataSource = DataSource3
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 4
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGrid5DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'BanNa'
              Title.Caption = '班组名称'
              Width = 58
              Visible = True
            end>
        end
        object banname: TDBEdit
          Left = 584
          Top = 144
          Width = 121
          Height = 21
          DataField = 'BanNa'
          DataSource = DataSource3
          TabOrder = 5
          Visible = False
        end
        object DBGrid6: TDBGrid
          Left = 504
          Top = 8
          Width = 105
          Height = 209
          DataSource = DataSource4
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 6
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGrid6DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'RName'
              Title.Caption = '姓名'
              Width = 67
              Visible = True
            end>
        end
        object rname: TDBEdit
          Left = 608
          Top = 144
          Width = 121
          Height = 21
          DataField = 'RName'
          DataSource = DataSource4
          TabOrder = 7
          Visible = False
        end
        object Button4: TButton
          Left = 592
          Top = 253
          Width = 89
          Height = 25
          Caption = '返回输入菜单'
          TabOrder = 8
          OnClick = Button4Click
        end
        object Button1: TButton
          Left = 440
          Top = 254
          Width = 89
          Height = 25
          Caption = '进入高级查询'
          TabOrder = 9
          OnClick = Button1Click
        end
      end
    end
    object DBGrid2: TDBGrid
      Left = 3
      Top = 312
      Width = 573
      Height = 225
      DataSource = DataSource5
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Visible = False
      Columns = <
        item
          Expanded = False
          FieldName = 'KeD'
          Title.Caption = '科室代号'
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KeNa'
          Title.Caption = '科室名称'
          Width = 155
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KeC'
          Title.Caption = '科长'
          Width = 160
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KeNu'
          Title.Caption = '科室人员数'
          Width = 133
          Visible = True
        end>
    end
    object DBMemo2: TDBMemo
      Left = 576
      Top = 312
      Width = 214
      Height = 227
      DataField = 'KeJ'
      DataSource = DataSource5