unit6.dfm

用delphi编写的学生学籍管理系统

object Form6: TForm6
  Left = 245
  Top = 112
  BorderStyle = bsDialog
  Caption = 'Form6'
  ClientHeight = 453
  ClientWidth = 674
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 16
    Top = 16
    Width = 665
    Height = 417
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25968#25454#22791#20221
      OnShow = TabSheet1Show
      object DBGrid1: TDBGrid
        Left = 24
        Top = 24
        Width = 393
        Height = 369
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Backup_teacher'
            Title.Caption = #22791#20221#32769#24072
            Width = 187
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Backup_time'
            Title.Caption = #22791#20221#26102#38388
            Width = 188
            Visible = True
          end>
      end
      object GroupBox3: TGroupBox
        Left = 432
        Top = 24
        Width = 217
        Height = 257
        Caption = #25968#25454#22791#20221#26102#38388#65306
        Color = clBtnFace
        Ctl3D = False
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 32
          Width = 41
          Height = 21
          AutoSize = False
          Caption = #20174#65306
        end
        object Label3: TLabel
          Left = 8
          Top = 144
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #21040#65306
        end
        object SpeedButton1: TSpeedButton
          Left = 64
          Top = 200
          Width = 89
          Height = 22
          Caption = #26597'   '#35810
          Flat = True
          OnClick = SpeedButton1Click
        end
        object DateTimePicker1: TDateTimePicker
          Left = 32
          Top = 32
          Width = 169
          Height = 21
          Date = 38837.000000000000000000
          Time = 38837.000000000000000000
          TabOrder = 0
        end
        object DateTimePicker2: TDateTimePicker
          Left = 32
          Top = 144
          Width = 169
          Height = 21
          Date = 38837.999988425930000000
          Time = 38837.999988425930000000
          TabOrder = 1
        end
      end
      object GroupBox4: TGroupBox
        Left = 432
        Top = 296
        Width = 217
        Height = 89
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 2
        object SpeedButton2: TSpeedButton
          Left = 72
          Top = 56
          Width = 81
          Height = 25
          AllowAllUp = True
          Caption = #24320#22987#22791#20221
          Flat = True
          OnClick = SpeedButton2Click
        end
        object SpeedButton3: TSpeedButton
          Left = 72
          Top = 14
          Width = 81
          Height = 27
          Caption = #21024#38500#25968#25454
          Flat = True
          OnClick = SpeedButton3Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25968#25454#24674#22797
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = False
      object DBGrid2: TDBGrid
        Left = 24
        Top = 24
        Width = 393
        Height = 361
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Restore_teacher'
            ReadOnly = True
            Title.Caption = #24674#22797#32769#24072
            Width = 175
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Restore_time'
            Title.Caption = #24674#22797#26102#38388
            Width = 201
            Visible = True
          end>
      end
      object GroupBox5: TGroupBox
        Left = 432
        Top = 24
        Width = 217
        Height = 249
        Caption = #25968#25454#24674#22797#26102#38388#65306
        Color = clBtnFace
        Ctl3D = False
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 1
        object Label5: TLabel
          Left = 16
          Top = 32
          Width = 41
          Height = 13
          AutoSize = False
          Caption = #20174#65306
        end
        object Label7: TLabel
          Left = 16
          Top = 120
          Width = 33
          Height = 13
          AutoSize = False
          Caption = #21040#65306
        end
        object SpeedButton5: TSpeedButton
          Left = 64
          Top = 192
          Width = 89
          Height = 22
          Caption = #26597'  '#35810
          Flat = True
          OnClick = SpeedButton5Click
        end
        object DateTimePicker3: TDateTimePicker
          Left = 40
          Top = 32
          Width = 169
          Height = 21
          Date = 38837.000000000000000000
          Time = 38837.000000000000000000
          TabOrder = 0
        end
        object DateTimePicker4: TDateTimePicker
          Left = 40
          Top = 120
          Width = 169
          Height = 21
          Date = 38837.999988425930000000
          Time = 38837.999988425930000000
          TabOrder = 1
        end
      end
      object GroupBox6: TGroupBox
        Left = 424
        Top = 296
        Width = 225
        Height = 85
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 2
        object SpeedButton4: TSpeedButton
          Left = 72
          Top = 14
          Width = 81
          Height = 27
          Caption = #21024#38500#25968#25454
          Flat = True
          OnClick = SpeedButton4Click
        end
        object SpeedButton6: TSpeedButton
          Left = 72
          Top = 48
          Width = 81
          Height = 25
          Caption = #24320#22987#24674#22797
          Flat = True
          OnClick = SpeedButton6Click
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=mydb'
    Parameters = <>
    Left = 304
    Top = 336
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 132
    Top = 168
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery3
    Left = 332
    Top = 176
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 156
    Top = 168
  end
  object ADOQuery3: TADOQuery
    Parameters = <>
    Left = 356
    Top = 176
  end
  object T_counter_b: TADOTable
    CursorType = ctStatic
    Filter = 'ID='#39'3'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 180
    Top = 168
  end
  object T_counter_re: TADOTable
    CursorType = ctStatic
    Filter = 'ID='#39'4'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 380
    Top = 176
  end
end