studentquery.dfm

一款比较好的学生信息管理系统DELPHI+ACCE

object frmstudentquery: Tfrmstudentquery
  Left = 240
  Top = 132
  Width = 648
  Height = 465
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #23398#29983#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 8
    Width = 102
    Height = 16
    Caption = #35831#36755#20837#23398#22909#21495#65306'      '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object edtstudentID: TEdit
    Left = 32
    Top = 32
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    MaxLength = 9
    TabOrder = 0
    OnChange = edtstudentIDChange
  end
  object Button1: TButton
    Left = 48
    Top = 80
    Width = 75
    Height = 25
    Caption = #36864#20986'&Q'
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 168
    Top = 8
    Width = 465
    Height = 113
    Caption = #23398#29983#22522#26412#20449#24687
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 16
      Width = 63
      Height = 13
      Caption = #22995'      '#21517#65306'   '
    end
    object Label3: TLabel
      Left = 16
      Top = 48
      Width = 63
      Height = 13
      Caption = #24615'      '#21035#65306'   '
    end
    object Label4: TLabel
      Left = 16
      Top = 80
      Width = 60
      Height = 13
      Caption = #20986#29983#26085#26399#65306
    end
    object Label5: TLabel
      Left = 216
      Top = 24
      Width = 60
      Height = 13
      Caption = #25152#22312#29677#32423#65306
    end
    object Label6: TLabel
      Left = 216
      Top = 56
      Width = 57
      Height = 13
      Caption = #29677' '#20027'  '#20219#65306
    end
    object dbtname: TDBText
      Left = 72
      Top = 16
      Width = 113
      Height = 17
      Color = clGradientActiveCaption
      DataField = 'name'
      DataSource = dsstudent
      ParentColor = False
    end
    object dbtsex: TDBText
      Left = 72
      Top = 48
      Width = 113
      Height = 17
      Color = clSkyBlue
      DataField = 'sex'
      DataSource = dsstudent
      ParentColor = False
    end
    object dbtbirthday: TDBText
      Left = 72
      Top = 80
      Width = 113
      Height = 17
      Color = clSkyBlue
      DataField = 'birthday'
      DataSource = dsstudent
      ParentColor = False
    end
    object dbtclassname: TDBText
      Left = 272
      Top = 24
      Width = 137
      Height = 17
      Color = clSkyBlue
      DataField = 'classname'
      DataSource = dsclass
      ParentColor = False
    end
    object dbtmaster: TDBText
      Left = 272
      Top = 56
      Width = 137
      Height = 17
      Color = clSkyBlue
      DataField = 'master'
      DataSource = dsclass
      ParentColor = False
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 128
    Width = 633
    Height = 305
    ActivePage = TabSheet2
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = #23398#31821#21464#26356
      object dbgchange: TDBGrid
        Left = 0
        Top = 0
        Width = 313
        Height = 281
        DataSource = dschange
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CID'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#21495
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'change'
            Title.Caption = #21464#26356#31867#22411
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'RecDate'
            Title.Caption = #35760#24405#26085#26399' '
            Visible = True
          end>
      end
      object DBMemo1: TDBMemo
        Left = 312
        Top = 0
        Width = 313
        Height = 281
        DataField = 'desciption'
        DataSource = dschange
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #22870#21169#24773#20917
      ImageIndex = 1
      object dbgreward: TDBGrid
        Left = 0
        Top = -4
        Width = 313
        Height = 281
        DataSource = dsreward
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'RID'
            Title.Caption = #35760#24405#21495
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'reward'
            Title.Caption = #22870#21169#31867#22411
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'recdate'
            Title.Caption = #35760#24405#26085#26399
            Visible = True
          end>
      end
      object DBMemo2: TDBMemo
        Left = 312
        Top = -4
        Width = 313
        Height = 281
        DataField = 'description'
        DataSource = dsreward
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = #22788#32602#24773#20917
      ImageIndex = 2
      object dbgpunish: TDBGrid
        Left = 0
        Top = -4
        Width = 313
        Height = 281
        DataSource = dspunish
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'PID'
            Title.Caption = #35760#24405#21495
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'punish'
            Title.Caption = #22788#32602#31867#22411
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'recdate'
            Title.Caption = #35760#24405#26085#26399
            Visible = True
          end>
      end
      object DBMemo3: TDBMemo
        Left = 312
        Top = -4
        Width = 313
        Height = 281
        DataField = 'description'
        DataSource = dspunish
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
      end
    end
  end
  object tblstudent: TTable
    DatabaseName = 'stud'
    TableName = 'dbo.student'
    Left = 28
    Top = 208
  end
  object tblclass: TTable
    DatabaseName = 'stud'
    IndexFieldNames = 'departID'
    MasterFields = 'classID'
    MasterSource = dsstudent
    TableName = 'dbo.class'
    Left = 92
    Top = 208
  end
  object tblchange: TTable
    DatabaseName = 'stud'
    IndexFieldNames = 'studentID'
    MasterFields = 'studentID'
    MasterSource = dsstudent
    TableName = 'dbo.change'
    Left = 156
    Top = 208
  end
  object tblreward: TTable
    DatabaseName = 'stud'
    IndexFieldNames = 'studentID'
    MasterFields = 'studentID'
    MasterSource = dsstudent
    TableName = 'dbo.reward'
    Left = 212
    Top = 208
  end
  object tblpunish: TTable
    DatabaseName = 'stud'
    IndexFieldNames = 'studentID'
    MasterFields = 'studentID'
    MasterSource = dsstudent
    TableName = 'dbo.punish'
    Left = 268
    Top = 208
  end
  object dsstudent: TDataSource
    DataSet = tblstudent
    Left = 28
    Top = 248
  end
  object dsclass: TDataSource
    DataSet = tblclass
    Left = 92
    Top = 248
  end
  object dschange: TDataSource
    DataSet = tblchange
    Left = 156
    Top = 248
  end
  object dsreward: TDataSource
    DataSet = tblreward
    Left = 212
    Top = 248
  end
  object dspunish: TDataSource
    DataSet = tblpunish
    Left = 268
    Top = 248
  end
end