coursetimeassignfrm.~dfm

delphi 编制的服务器程序

inherited CourseTimeAssignForm: TCourseTimeAssignForm
  Left = -1
  Top = 72
  Caption = #35838#31243#26102#38388#23433#25490
  ClientWidth = 794
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Width = 794
    inherited sbquery: TSpeedButton
      Visible = False
    end
    inherited sbimport: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    Width = 794
    inherited TabSheet1: TTabSheet
      object Splitter1: TSplitter [0]
        Left = 201
        Top = 0
        Width = 4
        Height = 389
        Cursor = crHSplit
        Color = clActiveCaption
        ParentColor = False
      end
      inherited DBGrid1: TDBGrid
        Left = 205
        Width = 581
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CourseName'
            Title.Alignment = taCenter
            Width = 144
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'weekcap'
            Title.Alignment = taCenter
            Title.Caption = #26143#26399
            Width = 83
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Beginhour'
            Title.Alignment = taCenter
            Title.Caption = #24320#22987#26102
            Width = 55
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'beginMin'
            Title.Alignment = taCenter
            Title.Caption = #24320#22987#20998
            Width = 54
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Endhour'
            Title.Alignment = taCenter
            Title.Caption = #32456#27490#26102
            Width = 57
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'EndMin'
            Title.Alignment = taCenter
            Title.Caption = #32456#27490#20998
            Width = 51
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Explain'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Width = 105
            Visible = True
          end>
      end
      object tv: TTreeView
        Left = 0
        Top = 0
        Width = 201
        Height = 389
        Align = alLeft
        AutoExpand = True
        BevelOuter = bvNone
        Images = ImageListTree
        Indent = 23
        ReadOnly = True
        RowSelect = True
        TabOrder = 1
        OnClick = tvClick
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 786
        BevelOuter = bvNone
        object Panel3: TPanel
          Left = 56
          Top = 29
          Width = 681
          Height = 337
          BevelInner = bvLowered
          BorderWidth = 1
          BorderStyle = bsSingle
          TabOrder = 0
          object Label1: TLabel
            Left = 120
            Top = 21
            Width = 30
            Height = 15
            Caption = #23398#26399
          end
          object Label2: TLabel
            Left = 120
            Top = 70
            Width = 45
            Height = 15
            Caption = #35838#31243#21517
            FocusControl = DBLookupComboBox1
          end
          object Label3: TLabel
            Left = 120
            Top = 124
            Width = 30
            Height = 15
            Caption = #26143#26399
          end
          object Label4: TLabel
            Left = 120
            Top = 176
            Width = 60
            Height = 15
            Caption = #24320#22987#26102#38388
          end
          object Label5: TLabel
            Left = 120
            Top = 223
            Width = 60
            Height = 15
            Caption = #32456#27490#26102#38388
          end
          object Label6: TLabel
            Left = 353
            Top = 19
            Width = 30
            Height = 15
            Caption = #29677#32423
          end
          object Label7: TLabel
            Left = 120
            Top = 275
            Width = 60
            Height = 15
            Caption = #20219#35838#32769#24072
          end
          object SpeedButton1: TSpeedButton
            Left = 508
            Top = 37
            Width = 93
            Height = 22
            Caption = #29677#32423#36873#21462
            OnClick = SpeedButton1Click
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 120
            Top = 88
            Width = 145
            Height = 23
            DataField = 'CourseName'
            DataSource = DataSource1
            TabOrder = 1
          end
          object DBComTerm: TDBComboBox
            Left = 120
            Top = 38
            Width = 145
            Height = 23
            Style = csDropDownList
            AutoDropDown = True
            DataField = 'term'
            DataSource = DataSource1
            ItemHeight = 15
            TabOrder = 0
          end
          object DBLookupComboBox4: TDBLookupComboBox
            Left = 120
            Top = 143
            Width = 73
            Height = 23
            DataField = 'weekcap'
            DataSource = DataSource1
            TabOrder = 2
          end
          object Panel4: TPanel
            Left = 120
            Top = 195
            Width = 62
            Height = 23
            BevelInner = bvLowered
            BevelOuter = bvLowered
            TabOrder = 3
            object DBEdit1: TDBEdit
              Left = 0
              Top = 2
              Width = 25
              Height = 23
              BevelInner = bvNone
              BorderStyle = bsNone
              DataField = 'Beginhour'
              DataSource = DataSource1
              TabOrder = 0
            end
            object Edit1: TEdit
              Left = 25
              Top = 2
              Width = 11
              Height = 23
              TabStop = False
              BevelInner = bvNone
              BorderStyle = bsNone
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -15
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 1
              Text = ':'
            end
            object DBEdit2: TDBEdit
              Left = 36
              Top = 2
              Width = 24
              Height = 23
              BevelInner = bvNone
              BorderStyle = bsNone
              DataField = 'beginMin'
              DataSource = DataSource1
              TabOrder = 2
            end
          end
          object Panel5: TPanel
            Left = 120
            Top = 242
            Width = 62
            Height = 23
            BevelInner = bvLowered
            BevelOuter = bvLowered
            TabOrder = 4
            object DBEdit6: TDBEdit
              Left = 0
              Top = 2
              Width = 25
              Height = 23
              BevelInner = bvNone
              BorderStyle = bsNone
              DataField = 'Endhour'
              DataSource = DataSource1
              TabOrder = 0
            end
            object Edit2: TEdit
              Left = 25
              Top = 2
              Width = 11
              Height = 23
              TabStop = False