📄 rssf.dfm
字号:
00000000000000007B6F396739677B6F39675A6B186318631863186339673967
3967D65A00000000BD77BD77BD77BD775A6B3967B5569452945218635A6B9C73
BD77396700000000BD77BD779C733967D65A1042CE396B2D4A298C31EF3D3967
9C73396700000000BD77BD777B6F18639452F75EB5563146EF3D4A294A291042
1863396700000000BD779C73D65AF75EDE7B1042A514A5144A29EF3DAD354A29
1042D65A000000009C735A6B3967FF7F31460000630C841042082925524A2925
0821EF3D00000000EF3D10429C73FF7FA514C618000000004208630C1042A514
84102925000000001863AD358410D65A4A299452AD35000021042104A514630C
8410E71C000000003967D65A524AA51421048410841021040000420842084208
630CC618000000005A6BF75ED65A18633146E71C2925A514420842084208630C
8410C61800000000BD777B6F1863D65A1042CE394A29A5144208841084108410
C618C618000000009C737B6F9C737B6FF75E9452EF3DAD354A29292584108410
C6184A2900000000B556D65A39675A6B7B6FF75E524A8C312925E71CC618E71C
E71CAD3500000000B556EF3D524A734EB556734EEF3DAD356B2D8C31AD35EF3D
3146524A00000000000000000000000000000000000000000000000000000000
000000000000}
end
end
object Panel3: TPanel
Left = 0
Top = 198
Width = 542
Height = 194
Align = alClient
TabOrder = 2
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 540
Height = 192
Align = alClient
Color = clInfoBk
DataSource = DS_RsSf
Font.Charset = GB2312_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
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fangno'
Title.Alignment = taCenter
Title.Caption = #25151#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 49
Visible = True
end
item
Expanded = False
FieldName = 'manid'
Title.Alignment = taCenter
Title.Caption = #23458#25143#32534#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'manname'
Title.Alignment = taCenter
Title.Caption = #23458#25143#22995#21517
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 = 'Jkrq'
Title.Alignment = taCenter
Title.Caption = #20132#27454#26085#26399
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 66
Visible = True
end
item
Expanded = False
FieldName = 'Sybd'
Title.Alignment = taCenter
Title.Caption = #19978#26376#34920#24213
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 65
Visible = True
end
item
Expanded = False
FieldName = 'Bybd'
Title.Alignment = taCenter
Title.Caption = #26412#26376#34920#24213
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'Sys'
Title.Alignment = taCenter
Title.Caption = #23454#29992#25968
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'rsdj'
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 = 38
Visible = True
end
item
Expanded = False
FieldName = 'Yfj'
Title.Alignment = taCenter
Title.Caption = #24212#20184#37329#39069
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 67
Visible = True
end
item
Expanded = False
FieldName = 'sfj'
Title.Alignment = taCenter
Title.Caption = #23454#25910#37329#39069
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'status'
Title.Alignment = taCenter
Title.Caption = #29366#24577
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = True
end>
end
end
object DS_RsSf: TDataSource
DataSet = ADQ_RsSf
Left = 200
Top = 256
end
object ADQ_RsSf: TADOQuery
Connection = DB_module.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT A.ID,A.fangno, A.manid, B.manname,A.Jkrq, A.Sybd, A.Bybd,' +
' A.Sys, A.rsdj, A.Yfj,'
' A.sfj,case A.status when '#39'1'#39' then '#39#24050#20132#27454#39' else '#39#26410#20132#27454#39' end as' +
' status'
'FROM dbo.Zf_Reshui A INNER JOIN'
' dbo.Zf_Man B ON A.manid = B.manid')
Left = 232
Top = 256
end
object ADQ_Rsglshow: TADOQuery
Connection = DB_module.ADOCon
CursorType = ctStatic
Parameters = <>
Left = 336
end
object ADOQry_update: TADOQuery
Connection = DB_module.ADOCon
Parameters = <
item
Name = 'fangno'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 8
Value = Null
end
item
Name = 'manid'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 8
Value = Null
end
item
Name = 'Jkrq'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'sybd'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'bybd'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'sys'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'rsdj'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 11
Size = 19
Value = Null
end
item
Name = 'yfj'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 11
Size = 19
Value = Null
end
item
Name = 'sfj'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 11
Size = 19
Value = Null
end
item
Name = 'status'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 1
Value = Null
end
item
Name = 'oldID'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
SQL.Strings = (
'update Zf_Reshui'
'set fangno=:fangno,'
' manid =:manid,'
' Jkrq =:Jkrq,'
' sybd =:sybd,'
' bybd =:bybd,'
' sys =:sys,'
' Rsdj =:rsdj,'
' yfj =:yfj,'
' sfj =:sfj,'
' status=:status'
'where'
' id=:oldID')
Left = 180
Top = 72
end
object ADOQry_insert: TADOQuery
Connection = DB_module.ADOCon
Parameters = <
item
Name = 'fangno'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 8
Value = Null
end
item
Name = 'manid'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 8
Value = Null
end
item
Name = 'jkrq'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'sybd'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'bybd'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'sys'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'rsdj'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 11
Size = 19
Value = Null
end
item
Name = 'yfj'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 11
Size = 19
Value = Null
end
item
Name = 'sfj'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 11
Size = 19
Value = Null
end
item
Name = 'status'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 1
Value = Null
end>
SQL.Strings = (
'insert into Zf_Reshui'
' (fangno,manid,jkrq,sybd,bybd,sys,rsdj,yfj,sfj,status)'
'values (:fangno,:manid,:jkrq,:sybd,:bybd,:sys,:rsdj,:yfj,:sfj,:s' +
'tatus)')
Left = 152
Top = 72
end
object ADQ_Dj: TADOQuery
Connection = DB_module.ADOCon
Parameters = <>
SQL.Strings = (
'select price from zf_dj where DjId=2')
Left = 360
end
object ADQ_Date: TADOQuery
Connection = DB_module.ADOCon
Parameters = <>
Left = 544
Top = 64
end
object ADQ_RecordCount: TADOQuery
Connection = DB_module.ADOCon
Parameters = <>
Left = 544
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -