dcgl.dfm

我的本科毕业代码,基本功能都出来了.不是特别好,请指教

object dcgl_Form: Tdcgl_Form
  Caption = #26032#20070#20856#34255#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Height = 331
  Position = poDefault
  Visible = True
  Width = 431
  WindowState = wsMaximized
  Left = 8
  Top = 8
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    Left = 0
    Top = 0
    Width = 423
    Height = 297
    object TabSheet1: TTabSheet
      Caption = #26032#20070#20998#37197
      object GroupBox4: TGroupBox
        Align = alLeft
        Caption = #39044#20998#37197#22270#20070
        TabOrder = 0
        Left = 0
        Top = 0
        Width = 169
        Height = 269
        object l1_LB: TListBox
          Align = alClient
          ItemHeight = 13
          TabOrder = 0
          Left = 2
          Top = 49
          Width = 165
          Height = 218
          OnClick = l1_LBClick
          OnDblClick = cmdRoneClick
        end
        object Panel1: TPanel
          Align = alTop
          TabOrder = 1
          Left = 2
          Top = 15
          Width = 165
          Height = 34
          object sm_Edit: TEdit
            TabOrder = 0
            Left = 8
            Top = 8
            Width = 145
            Height = 21
            OnEnter = sm_EditEnter
          end
        end
      end
      object GroupBox5: TGroupBox
        Align = alLeft
        TabOrder = 1
        Left = 169
        Top = 0
        Width = 72
        Height = 269
        object cmdRone: TButton
          Caption = '>'
          TabOrder = 0
          Left = 8
          Top = 40
          Width = 51
          Height = 25
          OnClick = cmdRoneClick
        end
        object cmdRall: TButton
          Caption = '>>'
          TabOrder = 1
          Left = 8
          Top = 72
          Width = 51
          Height = 25
          OnClick = cmdRallClick
        end
        object cmdLall: TButton
          Caption = '<<'
          TabOrder = 2
          Left = 8
          Top = 104
          Width = 51
          Height = 25
          OnClick = cmdLallClick
        end
        object cmdLone: TButton
          Caption = '<'
          TabOrder = 3
          Left = 8
          Top = 136
          Width = 51
          Height = 25
          OnClick = cmdLoneClick
        end
        object sl_LEdit: TLabeledEdit
          EditLabel.Caption = #25968#37327' '
          EditLabel.Height = 13
          EditLabel.Width = 27
          TabOrder = 4
          Left = 8
          Top = 184
          Width = 57
          Height = 21
        end
        object cmdsave: TButton
          Caption = #20445#23384
          TabOrder = 5
          Left = 8
          Top = 216
          Width = 51
          Height = 25
          OnClick = cmdsaveClick
        end
      end
      object GroupBox6: TGroupBox
        Align = alClient
        Caption = #20998#20837#24211#23460
        TabOrder = 2
        Left = 241
        Top = 0
        Width = 174
        Height = 269
        object Panel2: TPanel
          Align = alTop
          TabOrder = 0
          Left = 2
          Top = 15
          Width = 170
          Height = 34
          object in1_CBox: TComboBox
            Style = csOwnerDrawFixed
            ItemHeight = 16
            ItemIndex = 0
            TabOrder = 0
            Text = #24037#31243#25216#26415#38405#35272#23460
            Items.Strings = (
              #24037#31243#25216#26415#38405#35272#23460
              #25991#29702#20070#38405#35272#23460
              #24037#31243#25216#26415#20070#24211
              #25991#29702#20070#23460
              #26032#20070#38405#35272#23460
              #30005#23376#38405#35272#23460
              #24037#20855#38405#35272#23460)
            Left = 8
            Top = 8
            Width = 153
            Height = 22
          end
        end
        object r1_LB: TListBox
          Align = alClient
          ItemHeight = 13
          TabOrder = 1
          Left = 2
          Top = 49
          Width = 170
          Height = 218
          OnDblClick = cmdLoneClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #22270#20070#35843#37197
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Align = alLeft
        Caption = #35843#20986#24211#23460
        TabOrder = 0
        Left = 0
        Top = 0
        Width = 169
        Height = 269
        object l2_LB: TListBox
          Align = alClient
          ItemHeight = 13
          TabOrder = 0
          Left = 2
          Top = 49
          Width = 165
          Height = 172
        end
        object Panel3: TPanel
          Align = alTop
          TabOrder = 1
          Left = 2
          Top = 15
          Width = 165
          Height = 34
          object out_CBox: TComboBox
            Style = csOwnerDrawFixed
            ItemHeight = 16
            ItemIndex = 0
            TabOrder = 0
            Text = #24037#31243#25216#26415#38405#35272#23460
            Items.Strings = (
              #24037#31243#25216#26415#38405#35272#23460
              #25991#29702#20070#38405#35272#23460
              #24037#31243#25216#26415#20070#24211
              #25991#29702#20070#23460
              #26032#20070#38405#35272#23460
              #30005#23376#38405#35272#23460
              #24037#20855#38405#35272#23460)
            Left = 8
            Top = 8
            Width = 153
            Height = 22
            OnSelect = out_CBoxSelect
          end
        end
        object GroupBox7: TGroupBox
          Align = alBottom
          Caption = #36755#20837#20070#21517#27169#31946#26816#32034
          TabOrder = 2
          Left = 2
          Top = 221
          Width = 165
          Height = 46
          object sm1_Edit: TEdit
            TabOrder = 0
            Left = 8
            Top = 16
            Width = 145
            Height = 21
            OnEnter = sm_EditEnter
          end
        end
      end
      object GroupBox2: TGroupBox
        Align = alLeft
        TabOrder = 1
        Left = 169
        Top = 0
        Width = 72
        Height = 269
        object cmdrone1: TButton
          Caption = '>'
          TabOrder = 0
          Left = 8
          Top = 40
          Width = 51
          Height = 25
          OnClick = cmdrone1Click
        end
        object cmdrall1: TButton
          Caption = '>>'
          TabOrder = 1
          Left = 8
          Top = 72
          Width = 51
          Height = 25
          OnClick = cmdrall1Click
        end
        object cmdlall1: TButton
          Caption = '<<'
          TabOrder = 2
          Left = 8
          Top = 104
          Width = 51
          Height = 25
        end
        object cmdlone1: TButton
          Caption = '<'
          TabOrder = 3
          Left = 8
          Top = 136
          Width = 51
          Height = 25
        end
        object sl1_LEdit: TLabeledEdit
          EditLabel.Caption = #25968#37327' '
          EditLabel.Height = 13
          EditLabel.Width = 27
          TabOrder = 4
          Left = 8
          Top = 184
          Width = 57
          Height = 21
        end
        object cmdsave1: TButton
          Caption = #20445#23384
          TabOrder = 5
          Left = 8
          Top = 216
          Width = 51
          Height = 25
          OnClick = cmdsave1Click
        end
      end
      object GroupBox3: TGroupBox
        Align = alClient
        Caption = #35843#20837#24211#23460
        TabOrder = 2
        Left = 241
        Top = 0
        Width = 174
        Height = 269
        object Panel4: TPanel
          Align = alTop
          TabOrder = 0
          Left = 2
          Top = 15
          Width = 170
          Height = 34
          object in2_CBox: TComboBox
            Style = csOwnerDrawFixed
            ItemHeight = 16
            ItemIndex = 0
            TabOrder = 0
            Text = #24037#31243#25216#26415#38405#35272#23460
            Items.Strings = (
              #24037#31243#25216#26415#38405#35272#23460
              #25991#29702#20070#38405#35272#23460
              #24037#31243#25216#26415#20070#24211
              #25991#29702#20070#23460
              #26032#20070#38405#35272#23460
              #30005#23376#38405#35272#23460
              #24037#20855#38405#35272#23460)
            Left = 8
            Top = 8
            Width = 153
            Height = 22
          end
        end
        object r2_LB: TListBox
          Align = alClient
          ItemHeight = 13
          TabOrder = 1
          Left = 2
          Top = 49
          Width = 170
          Height = 218
        end
      end
    end
  end
end