学生学籍管理 delphi+sql2000 合力制作
源代码在线查看： unit9.dfm
object Form9: TForm9
Left = 156
Top = 249
Width = 979
Height = 561
Caption = #23398#29983#25104#32489#20462#25913
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 Label1: TLabel
Left = 88
Top = 48
Width = 58
Height = 25
AutoSize = False
Caption = #23398' '#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 96
Top = 168
Width = 49
Height = 25
AutoSize = False
Caption = #33521' '#35821
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 352
Top = 168
Width = 49
Height = 25
AutoSize = False
Caption = #29289' '#29702
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 608
Top = 168
Width = 65
Height = 25
AutoSize = False
Caption = 'C '#35821' '#35328
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 72
Top = 272
Width = 72
Height = 33
AutoSize = False
Caption = #39640' '#31561' '#25968' '#23398
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 336
Top = 272
Width = 80
Height = 25
AutoSize = False
Caption = #31163' '#25955' '#25968' '#23398
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 600
Top = 272
Width = 72
Height = 21
AutoSize = False
Caption = #32447' '#24615' '#20195' '#25968
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 88
Top = 368
Width = 60
Height = 25
AutoSize = False
Caption = #35745' '#31639' '#26426
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 168
Top = 48
Width = 121
Height = 21
TabOrder = 0
OnKeyPress = Edit1KeyPress
end
object Button1: TButton
Left = 376
Top = 48
Width = 75
Height = 25
Caption = #26597' '#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 512
Top = 48
Width = 75
Height = 25
Caption = #20462' '#25913
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 640
Top = 48
Width = 75
Height = 25
Caption = #25552' '#20132
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 760
Top = 48
Width = 75
Height = 25
Caption = #36820' '#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button4Click
end
object DBEdit1: TDBEdit
Left = 176
Top = 168
Width = 121
Height = 21
DataField = #33521#35821
DataSource = DataSource1
TabOrder = 5
end
object DBEdit2: TDBEdit
Left = 440
Top = 168
Width = 121
Height = 21
DataField = #29289#29702
DataSource = DataSource1
TabOrder = 6
end
object DBEdit3: TDBEdit
Left = 696
Top = 168
Width = 121
Height = 21
DataField = 'c'#35821#35328
DataSource = DataSource1
TabOrder = 7
end
object DBEdit4: TDBEdit
Left = 176
Top = 272
Width = 121
Height = 21
DataField = #39640#31561#25968#23398
DataSource = DataSource1
TabOrder = 8
end
object DBEdit5: TDBEdit
Left = 440
Top = 272
Width = 121
Height = 21
DataField = #31163#25955#25968#23398
DataSource = DataSource1
TabOrder = 9
end
object DBEdit6: TDBEdit
Left = 696
Top = 272
Width = 121
Height = 21
DataField = #32447#24615#20195#25968
DataSource = DataSource1
TabOrder = 10
end
object DBEdit7: TDBEdit
Left = 176
Top = 368
Width = 121
Height = 21
DataField = #35745#31639#26426
DataSource = DataSource1
TabOrder = 11
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 872
Top = 40
end
object ADOQuery1: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog='#23398#29983#31649#29702#31995#32479';Data Source=LP-C1755205E65A'
Parameters =
SQL.Strings = (
'select * from grade')
Left = 920
Top = 40
end
end
