unit21.dfm

学籍管理系统 基于sql2000 实现插入删除修改 等功能 不错

object Form18: TForm18
  Left = 250
  Top = 136
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsSingle
  Caption = #25104#32489#31649#29702
  ClientHeight = 546
  ClientWidth = 717
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 360
    Top = 97
    Width = 357
    Height = 449
    Align = alClient
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 355
      Height = 447
      Align = alClient
      DataSource = DataSource2
      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 = []
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 97
    Width = 185
    Height = 449
    Align = alLeft
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 183
      Height = 447
      Align = alClient
      DataSource = DataSource1
      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 = []
      OnCellClick = DBGrid2CellClick
    end
  end
  object Panel3: TPanel
    Left = 185
    Top = 97
    Width = 175
    Height = 449
    Align = alLeft
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 1
      Top = 311
      Width = 173
      Height = 137
      Align = alBottom
      TabOrder = 0
      object BitBtn1: TBitBtn
        Left = 8
        Top = 40
        Width = 75
        Height = 25
        Caption = #28155#21152
        TabOrder = 0
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 96
        Top = 40
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 1
      end
      object BitBtn4: TBitBtn
        Left = 50
        Top = 88
        Width = 75
        Height = 25
        Caption = #20851#38381
        TabOrder = 2
        OnClick = BitBtn4Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 173
      Height = 310
      Align = alClient
      TabOrder = 1
      object Label3: TLabel
        Left = 16
        Top = 144
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #31185#30446#65306
      end
      object xh: TLabeledEdit
        Left = 16
        Top = 56
        Width = 121
        Height = 21
        EditLabel.Width = 36
        EditLabel.Height = 13
        EditLabel.Caption = #23398#21495#65306
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
      end
      object xm: TLabeledEdit
        Left = 16
        Top = 112
        Width = 121
        Height = 21
        EditLabel.Width = 36
        EditLabel.Height = 13
        EditLabel.Caption = #22995#21517#65306
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
      end
      object km: TComboBox
        Left = 16
        Top = 168
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 13
        TabOrder = 2
      end
      object cj: TLabeledEdit
        Left = 16
        Top = 224
        Width = 121
        Height = 21
        EditLabel.Width = 36
        EditLabel.Height = 13
        EditLabel.Caption = #25104#32489#65306
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 3
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 717
    Height = 97
    Align = alTop
    TabOrder = 3
    object Label1: TLabel
      Left = 24
      Top = 32
      Width = 113
      Height = 25
      AutoSize = False
      Caption = #36873#25321#29677#32423#65306
    end
    object Label2: TLabel
      Left = 264
      Top = 40
      Width = 63
      Height = 13
      Caption = #36873#25321#23398#26399' '#65306
    end
    object bj: TComboBox
      Left = 96
      Top = 32
      Width = 145
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 0
      OnChange = bjChange
    end
    object xq: TComboBox
      Left = 368
      Top = 32
      Width = 145
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 1
      OnChange = xqChange
    end
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 80
    Top = 177
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 456
    Top = 169
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery3
    Left = 48
    Top = 233
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 480
    Top = 217
  end
  object ADOQuery3: TADOQuery
    Parameters = <>
    Left = 144
    Top = 177
  end
end