change.dfm

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

object frmchange: Tfrmchange
  Left = 128
  Top = 138
  Width = 706
  Height = 499
  Caption = #23398#31821#21464#26356#31383#20307
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 334
    Top = 0
    Width = 364
    Height = 169
  end
  object Label1: TLabel
    Left = 343
    Top = 17
    Width = 60
    Height = 13
    Caption = #35760#24405#21495#65306'    '
  end
  object Label2: TLabel
    Left = 343
    Top = 59
    Width = 54
    Height = 13
    Caption = #23398'    '#21495#65306'  '
  end
  object Label3: TLabel
    Left = 338
    Top = 98
    Width = 60
    Height = 13
    Caption = #35760#24405#26085#26399#65306
  end
  object DBGrid1: TDBGrid
    Left = -1
    Top = -1
    Width = 330
    Height = 466
    DataSource = dschange
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Options = [dgTitles, dgIndicator, 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
        Alignment = taCenter
        Expanded = False
        FieldName = 'CID'
        Title.Alignment = taCenter
        Title.Caption = #35760#24405#21495
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'studentID'
        Title.Alignment = taCenter
        Title.Caption = #23398#21495
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'change'
        Title.Alignment = taCenter
        Title.Caption = #21464#26356#31867#22411
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'RecDate'
        Title.Alignment = taCenter
        Title.Caption = #35760#24405#26085#26399
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 368
    Top = 128
    Width = 75
    Height = 25
    Caption = '&'#36864#20986
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkClose
  end
  object GroupBox1: TGroupBox
    Left = 494
    Top = 1
    Width = 201
    Height = 169
    Caption = #23398#29983#22522#26412#20449#24687
    TabOrder = 2
    object Label4: TLabel
      Left = 8
      Top = 25
      Width = 69
      Height = 13
      Caption = #22995'         '#21517#65306'  '
    end
    object Label5: TLabel
      Left = 6
      Top = 52
      Width = 72
      Height = 13
      Caption = ' '#24615'        '#21035#65306'   '
    end
    object Label6: TLabel
      Left = 8
      Top = 78
      Width = 75
      Height = 13
      Caption = #20986#29983#26085#26399#65306'     '
    end
    object Label7: TLabel
      Left = 7
      Top = 111
      Width = 60
      Height = 13
      Caption = #25152#22312#29677#32423#65306
    end
    object Label8: TLabel
      Left = 11
      Top = 143
      Width = 54
      Height = 13
      Caption = #29677#20027#20219#65306'  '
    end
    object DBTname: TDBText
      Left = 73
      Top = 24
      Width = 112
      Height = 17
      Color = clSkyBlue
      DataField = 'name'
      DataSource = dsstudent
      ParentColor = False
    end
    object DBTsex: TDBText
      Left = 74
      Top = 51
      Width = 111
      Height = 17
      Color = clSkyBlue
      DataField = 'name'
      DataSource = dsstudent
      ParentColor = False
    end
    object DBTbirthdat: TDBText
      Left = 77
      Top = 80
      Width = 105
      Height = 17
      Color = clSkyBlue
      DataField = 'birthday'
      DataSource = dsstudent
      ParentColor = False
    end
    object DBTclass: TDBText
      Left = 75
      Top = 112
      Width = 105
      Height = 17
      Color = clSkyBlue
      DataField = 'classname'
      DataSource = dsclass
      ParentColor = False
    end
    object DBTmaster: TDBText
      Left = 69
      Top = 141
      Width = 116
      Height = 17
      Color = clSkyBlue
      DataField = 'master'
      DataSource = dsclass
      ParentColor = False
    end
  end
  object dbnchange: TDBNavigator
    Left = 344
    Top = 177
    Width = 340
    Height = 25
    DataSource = dschange
    ConfirmDelete = False
    TabOrder = 3
    OnClick = dbnchangeClick
  end
  object dbrgchange: TDBRadioGroup
    Left = 335
    Top = 208
    Width = 361
    Height = 97
    Caption = #22788#32602#31867#22411
    Columns = 3
    DataField = 'change'
    DataSource = dschange
    Items.Strings = (
      #20241#23398
      #22797#23398
      #36716#31995
      #36716#23398
      #32467#19994
      #27605#19994)
    TabOrder = 4
    Values.Strings = (
      #20241#23398
      #22797#23398
      #36716#31995
      #36716#23398
      #32467#19994
      #27605#19994)
  end
  object DBMdesc: TDBMemo
    Left = 336
    Top = 312
    Width = 361
    Height = 153
    DataField = 'desciption'
    DataSource = dschange
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 5
  end
  object dbeCID: TDBEdit
    Left = 400
    Top = 16
    Width = 89
    Height = 21
    DataField = 'CID'
    DataSource = dschange
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 6
    OnKeyDown = dbeCIDKeyDown
  end
  object dbestudentID: TDBEdit
    Left = 400
    Top = 56
    Width = 89
    Height = 21
    DataField = 'studentID'
    DataSource = dschange
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 7
  end
  object dberecdate: TDBEdit
    Left = 403
    Top = 93
    Width = 81
    Height = 21
    DataField = 'RecDate'
    DataSource = dschange
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 8
  end
  object dschange: TDataSource
    DataSet = tblchange
    Left = 88
    Top = 88
  end
  object dsstudent: TDataSource
    DataSet = tblstudent
    Left = 88
    Top = 168
  end
  object dsclass: TDataSource
    DataSet = tblclass
    Left = 88
    Top = 256
  end
  object tblchange: TTable
    Active = True
    BeforeDelete = tblchangeBeforeDelete
    AfterScroll = tblchangeAfterScroll
    DatabaseName = 'stud'
    TableName = 'dbo.change'
    Left = 40
    Top = 88
  end
  object tblstudent: TTable
    Active = True
    DatabaseName = 'stud'
    IndexFieldNames = 'studentID'
    MasterFields = 'studentID'
    MasterSource = dschange
    TableName = 'dbo.student'
    Left = 40
    Top = 168
  end
  object tblclass: TTable
    Active = True
    DatabaseName = 'stud'
    IndexFieldNames = 'classID'
    MasterFields = 'classID'
    MasterSource = dsstudent
    TableName = 'dbo.class'
    Left = 40
    Top = 256
  end
  object Query1: TQuery
    DatabaseName = 'stud'
    Left = 248
    Top = 96
  end
end