📄 danjia.dfm
字号:
object DanJiaForm: TDanJiaForm
Left = 240
Top = 149
BorderStyle = bsDialog
Caption = #25910#36153#39033#30446#31649#29702
ClientHeight = 338
ClientWidth = 490
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 490
Height = 25
Align = alTop
TabOrder = 0
object DBNavigator1: TDBNavigator
Left = 1
Top = 1
Width = 488
Height = 23
DataSource = DS_Tj
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Align = alClient
Flat = True
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 129
Width = 490
Height = 41
Align = alTop
TabOrder = 1
object bitbtn_insert: TBitBtn
Left = 8
Top = 8
Width = 73
Height = 25
Caption = #26032#22686
TabOrder = 0
OnClick = bitbtn_insertClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object bitbtn_modify: TBitBtn
Left = 86
Top = 8
Width = 73
Height = 25
Caption = #20462#25913
TabOrder = 1
OnClick = bitbtn_modifyClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object bitbtn_delete: TBitBtn
Left = 165
Top = 8
Width = 73
Height = 25
Caption = #21024#38500
Enabled = False
TabOrder = 2
OnClick = bitbtn_deleteClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object bitbtn_post: TBitBtn
Left = 245
Top = 8
Width = 73
Height = 25
Caption = #20445#23384
Enabled = False
TabOrder = 3
OnClick = bitbtn_postClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
end
object bitbtn_cancel: TBitBtn
Left = 327
Top = 8
Width = 73
Height = 25
Caption = #21462#28040
Enabled = False
TabOrder = 4
OnClick = bitbtn_cancelClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object bitbtn_quit: TBitBtn
Left = 409
Top = 8
Width = 73
Height = 25
Caption = #36864#20986
TabOrder = 5
OnClick = bitbtn_quitClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
end
object Panel3: TPanel
Left = 0
Top = 170
Width = 490
Height = 168
Align = alClient
TabOrder = 2
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 488
Height = 166
Align = alClient
Color = clInfoBk
DataSource = DS_Tj
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
Columns = <
item
Expanded = False
FieldName = 'Djid'
Title.Alignment = taCenter
Title.Caption = #32534#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'sfname'
Title.Alignment = taCenter
Title.Caption = #21517#31216
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'dw'
Title.Alignment = taCenter
Title.Caption = #21333#20301
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'price'
Title.Alignment = taCenter
Title.Caption = #21333#20215
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 54
Visible = True
end>
end
end
object Panel4: TPanel
Left = 0
Top = 25
Width = 490
Height = 104
Align = alTop
TabOrder = 3
object Label1: TLabel
Left = 252
Top = 20
Width = 48
Height = 16
Caption = #21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 80
Top = 64
Width = 48
Height = 16
Caption = #21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 81
Top = 20
Width = 48
Height = 16
Caption = #32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 254
Top = 64
Width = 48
Height = 16
Caption = #21333#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Com_Dw: TComboBox
Left = 121
Top = 63
Width = 95
Height = 21
BevelKind = bkFlat
Enabled = False
ItemHeight = 13
TabOrder = 0
Items.Strings = (
#21544
#24230
#26376)
end
object Ed_bh: TEdit
Left = 121
Top = 18
Width = 95
Height = 21
Enabled = False
TabOrder = 1
end
object Ed_Name: TEdit
Left = 296
Top = 17
Width = 95
Height = 21
Enabled = False
TabOrder = 2
end
object Ed_Dj: TEdit
Left = 296
Top = 61
Width = 95
Height = 21
Enabled = False
TabOrder = 3
end
end
object DS_Tj: TDataSource
DataSet = ADQ_Tj
Left = 240
Top = 208
end
object ADQ_Tj: TADOQuery
Connection = DB_module.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select *from dbo.Zf_Dj')
Left = 280
Top = 208
end
object ADOQry_update: TADOQuery
Connection = DB_module.ADOCon
Parameters = <
item
Name = 'sfname'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end
item
Name = 'dw'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 6
Value = Null
end
item
Name = 'price'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 19
Size = 19
Value = Null
end
item
Name = 'olddjid'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
SQL.Strings = (
'update Zf_Dj'
'set '
' sfname=:sfname,'
' dw =:dw,'
' price =:price '
'where djid =:olddjid')
Left = 7
Top = 82
end
object ADOQry_insert: TADOQuery
Connection = DB_module.ADOCon
Parameters = <
item
Name = 'sfname'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end
item
Name = 'dw'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 6
Value = Null
end
item
Name = 'price'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 19
Size = 19
Value = Null
end>
SQL.Strings = (
'insert into Zf_Dj'
' (sfname,dw,price)'
'values(:sfname,:dw,:price)')
Left = 8
Top = 56
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -