📄 u_yhgl.dfm
字号:
object FYHGL: TFYHGL
Left = 199
Top = 117
Width = 699
Height = 454
ActiveControl = DBGrid1
BorderIcons = [biSystemMenu]
Caption = #31995#32479#29992#25143#31649#29702
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 393
Height = 281
Hint = #29992#25143'/'#25805#20316#21592#22522#26412#20449#24687
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
PopupMenu = PopupMenu3
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'YHMC'
Title.Alignment = taCenter
Title.Caption = #29992#25143#21517#31216
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'BZ'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 272
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 384
Width = 396
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 596
Top = 384
Width = 81
Height = 25
Caption = '&C '#20851#38381
TabOrder = 2
Kind = bkClose
end
object GroupBox1: TGroupBox
Left = 8
Top = 304
Width = 393
Height = 73
Caption = #20851#20110#26032#22686#29992#25143#23494#30721
Ctl3D = True
ParentCtl3D = False
TabOrder = 3
object Image1: TImage
Left = 16
Top = 24
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020040000000000E80200001600000028000000
2000000040000000010004000000000000020000000000000000000000000000
0000000000000000000080000080000000808000800000008000800080800000
C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
FFFFFF0000000000000000000000000000000000000000000000077000000000
0000000000000000000007870000000000000000000000077008078700000000
0000000000000887770087870000000000000000000008078780778700000000
000080000000080787080787000000000008B330000000078707078700000000
0800BB80000000878700878700000000833BB800000080778780778700000000
8BBB80300000080787807787000000800BB80300000000078708078700000833
BB803000000000878708078800008BBBB8030000000080778780770800008BBB
8030000000008077880770778000BBB8030000000000080780770000000BBB80
300000000000080807700888888BB803000000000000808077088BBBBBBB8030
0000000000080780708BBBBBBBB7B300000000000080778070BBBB7B7B7B7300
00000000080770800BBBB0B0B7B7B30000000000807707808BBBBB0B0B7B7300
00000000807770788BBBBBB0B0B7B30000000000807707008BBB880B0B0B7300
00000000807770808BB07770B0B7300000000000807700878BB00770BBB73000
000000000807708808B00870BB73000000000000008077000788000BB3300000
0000000000080000878077773000000000000000000088808887888800000000
0000000000000000877780000000000000000000000000000000000000000000
00000000FFF9FFFFFFF0FFFFFE687FFFFC007FFFF8007FFFFA107FF1FA087FE0
FC007F80F8007F00F4107F00FA107C01FC087803F8087007F412700FF424201F
FA48003FFA80007FF50000FFE90001FFD10001FFA50001FF490001FF440001FF
480001FF410003FF480003FFA00007FFD0000FFFEE001FFFF0007FFFFE03FFFF
FF07FFFF}
end
object Label1: TLabel
Left = 64
Top = 24
Width = 222
Height = 36
Caption = #26032#29992#25143#30340#32570#30465#23494#30721#20026' SUNCER ,'#29992#25143#21487#20197#29992' '#31995#32479#35774#23450'-'#12297#20462#25913#23494#30721' '#21151#33021#20462#25913#35774#32622#20010#20154#23494#30721#12290
WordWrap = True
end
end
object GroupBox2: TGroupBox
Left = 408
Top = 8
Width = 273
Height = 369
Caption = ' '#29992#25143#26435#38480#35774#32622' '
TabOrder = 4
object Label2: TLabel
Left = 192
Top = 16
Width = 72
Height = 12
Caption = #29992#25143#25317#26377#26435#38480
end
object Label3: TLabel
Left = 216
Top = 200
Width = 48
Height = 12
Caption = #31995#32479#26435#38480
end
object SpeedButton1: TSpeedButton
Left = 8
Top = 184
Width = 33
Height = 22
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777777777700077770000077770007777066607777000777706660777
7000777706660777700070000666000070007706666666077000777066666077
7000777706660777700077777060777770007777770777777000777777777777
7000}
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Left = 48
Top = 184
Width = 33
Height = 22
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777777777700077777707777770007777706077777000777706660777
7000777066666077700077066666660770007000066600007000777706660777
7000777706660777700077770666077770007777000007777000777777777777
7000}
OnClick = SpeedButton4Click
end
object ListBox1: TListBox
Left = 8
Top = 32
Width = 257
Height = 145
DragMode = dmAutomatic
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
TabOrder = 0
OnDblClick = SpeedButton4Click
OnDragDrop = ListBox1DragDrop
OnDragOver = ListBox1DragOver
end
object ListBox2: TListBox
Left = 8
Top = 216
Width = 257
Height = 145
DragMode = dmAutomatic
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu2
TabOrder = 1
OnDblClick = SpeedButton1Click
OnDragDrop = ListBox2DragDrop
OnDragOver = ListBox2DragOver
end
end
object BitBtn2: TBitBtn
Left = 480
Top = 384
Width = 81
Height = 25
Caption = '&S '#20445#23384
TabOrder = 5
OnClick = BitBtn2Click
Glyph.Data = {
F2010000424DF201000000000000760000002800000024000000130000000100
0400000000007C01000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
3333333333388F3333333333000033334224333333333333338338F333333333
0000333422224333333333333833338F33333333000033422222243333333333
83333338F3333333000034222A22224333333338F33F33338F33333300003222
A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
33333A2224A2233333333338F338F83300003333333333A2224A333333333333
8F338F33000033333333333A222433333333333338F338F30000333333333333
A224333333333333338F38F300003333333333333A223333333333333338F8F3
000033333333333333A3333333333333333383330000}
NumGlyphs = 2
end
object Query1: TQuery
CachedUpdates = True
BeforePost = Query1BeforePost
AfterPost = Query1AfterPost
AfterDelete = Query1AfterPost
OnNewRecord = Query1NewRecord
DatabaseName = 'CTIC'
SQL.Strings = (
'Select * From CZY')
UpdateObject = UpdateSQL1
Left = 96
Top = 72
end
object DataSource1: TDataSource
DataSet = Query1
OnDataChange = DataSource1DataChange
Left = 128
Top = 72
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update CZY'
'set'
' YHBM = :YHBM,'
' YHMC = :YHMC,'
' YHMM = :YHMM,'
' YHQX = :YHQX,'
' BZ = :BZ'
'where'
' YHBM = :OLD_YHBM')
InsertSQL.Strings = (
'insert into CZY'
' (YHBM, YHMC, YHMM, YHQX, BZ)'
'values'
' (:YHBM, :YHMC, :YHMM, :YHQX, :BZ)')
DeleteSQL.Strings = (
'delete from CZY'
'where'
' YHBM = :OLD_YHBM')
Left = 160
Top = 72
end
object Query2: TQuery
DatabaseName = 'CTIC'
SQL.Strings = (
'Select Max(YHBM) MAXBM From CZY')
Left = 96
Top = 104
end
object PopupMenu1: TPopupMenu
Left = 504
Top = 112
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
end
object PopupMenu2: TPopupMenu
Left = 504
Top = 264
object MenuItem1: TMenuItem
Caption = #20840#36873
OnClick = MenuItem1Click
end
end
object PopupMenu3: TPopupMenu
Left = 128
Top = 104
object N2: TMenuItem
Caption = #21021#22987#21270#29992#25143#23494#30721
OnClick = N2Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -