?? staffclass.~dfm
字號:
object frmStaffClass: TfrmStaffClass
Left = 175
Top = 100
Width = 550
Height = 440
Caption = #26435#38480#31649#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object Panel4: TPanel
Left = 0
Top = 0
Width = 185
Height = 364
Align = alLeft
BevelInner = bvLowered
TabOrder = 0
object GroupBox1: TGroupBox
Left = 4
Top = 20
Width = 176
Height = 112
Caption = #26597#35810#26465#20214
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 29
Width = 30
Height = 13
Caption = #32534' '#21495
end
object Label2: TLabel
Left = 8
Top = 54
Width = 30
Height = 13
Caption = #22995' '#21517
end
object Edit_Name: TEdit
Left = 52
Top = 50
Width = 120
Height = 21
MaxLength = 20
TabOrder = 1
end
object Edit_No: TEdit
Left = 52
Top = 25
Width = 120
Height = 21
MaxLength = 4
TabOrder = 0
OnKeyPress = Edit_NoKeyPress
end
object BtnQuery: TBitBtn
Left = 7
Top = 78
Width = 160
Height = 28
Caption = #26597#35810'(&Q)'
TabOrder = 2
OnClick = BtnQueryClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
object GroupBox2: TGroupBox
Left = 4
Top = 132
Width = 176
Height = 335
Enabled = False
TabOrder = 1
object Bevel1: TBevel
Left = 5
Top = 139
Width = 164
Height = 2
end
object Label3: TLabel
Left = 9
Top = 22
Width = 40
Height = 13
AutoSize = False
Caption = #32534' '#21495
end
object Label4: TLabel
Left = 9
Top = 49
Width = 40
Height = 13
AutoSize = False
Caption = #22995' '#21517
end
object Edit_StaffNo: TEdit
Left = 52
Top = 17
Width = 120
Height = 21
Color = clBtnFace
MaxLength = 4
TabOrder = 0
OnKeyPress = Edit_StaffNoKeyPress
end
object Edit_StaffName: TEdit
Left = 52
Top = 45
Width = 120
Height = 21
Color = clBtnFace
MaxLength = 20
TabOrder = 1
OnKeyPress = Edit_StaffNameKeyPress
end
end
end
object Panel2: TPanel
Left = 0
Top = 364
Width = 542
Height = 49
Align = alBottom
BevelInner = bvLowered
TabOrder = 1
object BtnOK: TBitBtn
Left = 29
Top = 11
Width = 82
Height = 26
Caption = #20445#23384'(&S)'
Enabled = False
TabOrder = 0
OnClick = BtnOKClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
93337777FF777777733370000000073333333777777773333333}
NumGlyphs = 2
end
object BtnUndo: TBitBtn
Left = 129
Top = 11
Width = 82
Height = 26
Caption = #21462#28040'(&C)'
Enabled = False
TabOrder = 1
OnClick = BtnUndoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object BtnEdit: TBitBtn
Left = 237
Top = 11
Width = 82
Height = 26
Caption = #20462#25913'(&E)'
TabOrder = 2
OnClick = BtnEditClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
3055577777555557F7F555000555555999555577755555577755}
NumGlyphs = 2
end
object BtnExit: TBitBtn
Left = 361
Top = 11
Width = 82
Height = 26
Caption = #36864#20986'(&X)'
TabOrder = 3
OnClick = BtnExitClick
Glyph.Data = {
36060000424D3606000000000000360000002800000020000000100000000100
18000000000000060000120B0000120B00000000000000000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF000000008080000000BFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF000000008080008080000000BFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBF0000000000000080800080800080800000000000000000000000000000
00000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF000000008080008080008080000000FFFFFFFFFFFF000000BFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF000000008080008080000000000000FFFFFFFFFFFF000000BFBF
BFBFBFBFBFBFBFBFBFBF800000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF000000008080008080008080000000FFFFFFFFFFFF000000BFBF
BFBFBFBFBFBFBF800000800000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFC0C0C0BFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF000000008080008080008080000000FFFFFFFFFFFF000000BFBF
BFBFBFBF800000800000800000800000800000BFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFC0C0C0BFBFBFBFBFBF
BFBFBFBFBFBF000000008080008080008080000000FFFFFFFFFFFF000000BFBF
BF800000800000800000800000800000800000BFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFC0C0C0C0C0C0BFBFBFBFBFBFBFBFBFBFBFBFC0C0C0BFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF000000008080008080008080000000FFFFFFFFFFFF000000BFBF
BFBFBFBF800000800000800000800000800000BFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFC0C0C0BFBFBFBFBFBFC0C0C0BFBFBFBFBFBF
BFBFBFBFBFBF000000008080008080000000FFFFFFFFFFFFFFFFFF000000BFBF
BFBFBFBFBFBFBF800000800000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFC0C0C0BFBFBFBFBFBFC0C0C0C0C0C0BFBFBFBFBFBF
BFBFBFBFBFBF000000008080000000FFFFFFFFFFFFFFFFFFFFFFFF000000BFBF
BFBFBFBFBFBFBFBFBFBF800000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFBFBFBF
BFBFBFBFBFBF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFBFBFBF
BFBFBFBFBFBF000000000000000000000000000000000000000000000000BFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
NumGlyphs = 2
end
end
object Panel1: TPanel
Left = 185
Top = 0
Width = 357
Height = 364
Align = alClient
BevelOuter = bvNone
TabOrder = 2
object Panel3: TPanel
Left = 0
Top = 0
Width = 357
Height = 149
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 24
Width = 353
Height = 123
Align = alClient
DataSource = dsStaff
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
Expanded = False
FieldName = #32534#30721
Title.Caption = #32534#21495
Width = 96
Visible = True
end
item
Expanded = False
FieldName = #20511#38405#20154#22995#21517
Title.Caption = #22995#21517
Width = 156
Visible = True
end>
end
object Panel7: TPanel
Left = 2
Top = 2
Width = 353
Height = 22
Align = alTop
TabOrder = 1
end
end
object Panel5: TPanel
Left = 0
Top = 149
Width = 357
Height = 215
Align = alBottom
BevelInner = bvLowered
Caption = 'Panel3'
Enabled = False
TabOrder = 1
object Panel6: TPanel
Left = 14
Top = 23
Width = 59
Height = 31
BevelOuter = bvNone
Caption = #26435#38480#20998#37197
TabOrder = 0
end
object BtnSelAll: TBitBtn
Left = 14
Top = 128
Width = 59
Height = 24
Caption = #20840#36873'(&L)'
Enabled = False
TabOrder = 2
OnClick = BtnSelAllClick
end
object BtnSelNo: TBitBtn
Left = 14
Top = 166
Width = 59
Height = 24
Caption = #19981#36873'(&B)'
Enabled = False
TabOrder = 3
OnClick = BtnSelNoClick
end
object RightListBox: TCheckListBox
Left = 94
Top = 9
Width = 167
Height = 189
Color = clScrollBar
Columns = 1
Flat = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
Items.Strings = (
'1.'#30879#29255#31649#29702
'2.'#27468#26354#31649#29702
'3.'#27468#26143#31649#29702
'4.'#20511#38405#20154#31649#29702
'5.'#20511#20986#30331#35760
'6.'#24402#36824#30331#35760
'7.'#20854#20182#31649#29702
'8.'#26435#38480#35774#32622
'9.'#26356#25913#23494#30721
'10.'#37325#26032#30331#24405)
ParentFont = False
TabOrder = 1
end
end
end
object QryStaff: TADOQuery
Connection = DM.ADO_Con
CursorType = ctStatic
AfterScroll = QryStaffAfterScroll
Parameters = <>
SQL.Strings = (
'select * from '#20511#38405#20154#34920' where '#20851#31995'='#39#31649#29702#21592#39)
Left = 264
Top = 72
end
object QryComm: TADOQuery
Connection = DM.ADO_Con
Parameters = <>
Left = 240
Top = 104
end
object dsStaff: TDataSource
DataSet = QryStaff
Left = 372
Top = 58
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -