📄 uunitbase.dfm
字号:
object funitbase: Tfunitbase
Left = 219
Top = 161
Width = 696
Height = 480
Caption = #20998#20844#21496#22522#30784#20449#24687
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object unitDBGrid: TDBGrid
Left = 0
Top = 137
Width = 688
Height = 309
Align = alClient
DataSource = unitDataSource
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'UNIT_ID'
Title.Caption = #20998#20844#21496#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'UNIT_NAME'
Title.Caption = #20998#20844#21496#21517#31216
Width = 186
Visible = True
end
item
Expanded = False
FieldName = 'UNIT_ADDRESS'
Title.Caption = #22320#22336
Width = 197
Visible = True
end
item
Expanded = False
FieldName = 'UNIT_PHONE'
Title.Caption = #30005#35805
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'UNIT_MANAGER'
Title.Caption = #36127#36131#20154
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 688
Height = 137
Align = alTop
TabOrder = 1
object Label5: TLabel
Left = 27
Top = 108
Width = 86
Height = 13
Caption = #36127' '#36131' '#20154#65306
end
object Label4: TLabel
Left = 27
Top = 83
Width = 84
Height = 13
Caption = #30005' '#35805#65306
end
object Label3: TLabel
Left = 27
Top = 59
Width = 84
Height = 13
Caption = #22320' '#22336#65306
end
object Label2: TLabel
Left = 27
Top = 34
Width = 84
Height = 13
Caption = #20998#20844#21496#21517#31216#65306
end
object Label1: TLabel
Left = 27
Top = 10
Width = 84
Height = 13
Caption = #20998#20844#21496#32534#21495#65306
end
object GroupBox1: TGroupBox
Left = 440
Top = 1
Width = 247
Height = 135
Align = alRight
TabOrder = 0
object addBitBtn: TBitBtn
Left = 48
Top = 16
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 0
OnClick = addBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object delBitBtn: TBitBtn
Left = 48
Top = 56
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 1
OnClick = delBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object modBitBtn: TBitBtn
Left = 48
Top = 96
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 2
OnClick = modBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object savBitBtn: TBitBtn
Left = 144
Top = 16
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 3
OnClick = savBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object canBitBtn: TBitBtn
Left = 144
Top = 56
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 4
OnClick = canBitBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888808888888888088800088888888888880000888888
8088888000888888088888880008888008888888800088008888888888000008
8888888888800088888888888800000888888888800088008888888000088880
0888880000888888008888000888888888088888888888888888}
end
object exiBitBtn: TBitBtn
Left = 144
Top = 96
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 5
OnClick = exiBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
end
object Edit1: TEdit
Left = 122
Top = 8
Width = 121
Height = 21
TabOrder = 1
Text = 'Edit1'
end
object Edit2: TEdit
Left = 122
Top = 32
Width = 135
Height = 21
TabOrder = 2
Text = 'Edit2'
end
object Edit3: TEdit
Left = 122
Top = 56
Width = 167
Height = 21
TabOrder = 3
Text = 'Edit3'
end
object Edit4: TEdit
Left = 122
Top = 80
Width = 135
Height = 21
TabOrder = 4
Text = 'Edit4'
end
object Edit5: TEdit
Left = 122
Top = 104
Width = 121
Height = 21
TabOrder = 5
Text = 'Edit5'
end
end
object unitTable: TTable
AfterScroll = unitTableAfterScroll
DatabaseName = 'LYDB'
TableName = 'dbo.ENT_UNIT_INFO'
Left = 16
Top = 232
end
object unitDataSource: TDataSource
DataSet = unitTable
Left = 48
Top = 232
end
object addQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'insert ent_unit_info (unit_id,unit_name,unit_address,'
' unit_phone,unit_manager)'
'values (:unit_id,:unit_name,:unit_address,'
' :unit_phone,:unit_manager)')
Left = 480
Top = 8
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_name'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_address'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_phone'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_manager'
ParamType = ptUnknown
end>
end
object modQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'update ent_unit_info'
'set unit_id=:unit_id,unit_name=:unit_name,'
' unit_address=:unit_address,unit_phone=:unit_phone,'
' unit_manager=:unit_manager'
'where unit_id=:unit_id')
Left = 480
Top = 88
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_name'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_address'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_phone'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_manager'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end>
end
object delQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'delete from ent_unit_info'
'where unit_id=:unit_id')
Left = 480
Top = 48
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end>
end
object unitQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_unit_info'
'where unit_id=:unit_id')
Left = 304
Top = 232
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -