?? studentquery.dfm
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -