?? unitinput.dfm
字號:
object fmInput: TfmInput
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #25104#32489#24405#20837
ClientHeight = 511
ClientWidth = 439
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 168
Top = 32
Width = 46
Height = 13
Caption = #24405#20837#21592':'
end
object lbLLY: TLabel
Left = 224
Top = 32
Width = 35
Height = 13
Caption = 'lbLLY'
end
object Label3: TLabel
Left = 24
Top = 32
Width = 33
Height = 13
Caption = #31185#30446':'
end
object Label4: TLabel
Left = 24
Top = 8
Width = 33
Height = 13
Caption = #23398#26657':'
end
object lbSchool: TLabel
Left = 72
Top = 8
Width = 56
Height = 13
Caption = 'lbSchool'
end
object Label6: TLabel
Left = 168
Top = 8
Width = 33
Height = 13
Caption = #32771#23460':'
end
object lbKS: TLabel
Left = 208
Top = 8
Width = 28
Height = 13
Caption = 'lbKS'
end
object Label8: TLabel
Left = 304
Top = 8
Width = 46
Height = 13
Caption = #32771#29983#25968':'
end
object lbKSS: TLabel
Left = 360
Top = 8
Width = 35
Height = 13
Caption = 'lbKSS'
end
object lbKM: TLabel
Left = 72
Top = 32
Width = 28
Height = 13
Caption = 'lbKM'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object BitBtn1: TBitBtn
Left = 336
Top = 392
Width = 75
Height = 25
Caption = #25552#20132
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
F2010000424DF201000000000000760000002800000024000000130000000100
0400000000007C01000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
3333333333388F3333333333000033334224333333333333338338F333333333
0000333422224333333333333833338F33333333000033422222243333333333
83333338F3333333000034222A22224333333338F33F33338F33333300003222
A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
33333A2224A2233333333338F338F83300003333333333A2224A333333333333
8F338F33000033333333333A222433333333333338F338F30000333333333333
A224333333333333338F38F300003333333333333A223333333333333338F8F3
000033333333333333A3333333333333333383330000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 336
Top = 448
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 2
Kind = bkCancel
end
object StringGrid1: TStringGrid
Left = 32
Top = 64
Width = 265
Height = 409
ColCount = 3
Ctl3D = False
DefaultColWidth = 80
DefaultRowHeight = 16
FixedColor = clSkyBlue
FixedCols = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowMoving, goEditing, goTabs, goAlwaysShowEditor]
ParentCtl3D = False
TabOrder = 0
OnSetEditText = StringGrid1SetEditText
end
object IBQuery1: TIBQuery
Database = DM.IBDB1
Transaction = DM.IBTrans1
SQL.Strings = (
'select first 30 skip 30 a.zkzh,b.stdname,a.yuwen1 from ACH1 a,S' +
'TUDENT b where a.bmh=b.bmh order by a.zkzh')
UpdateObject = IBUpdateSQL1
Left = 328
Top = 136
end
object IBUpdateSQL1: TIBUpdateSQL
Left = 328
Top = 176
end
object DataSource1: TDataSource
DataSet = IBQuery1
Left = 368
Top = 136
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -