📄 zjgl.dfm
字号:
Top = 198
Width = 540
Height = 176
Align = alClient
TabOrder = 2
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 538
Height = 174
Align = alClient
Color = clInfoBk
DataSource = DS_Zjgl
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 = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'fangno'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
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 = []
Visible = True
end
item
Expanded = False
FieldName = 'manid'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #29992#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 = 61
Visible = True
end
item
Expanded = False
FieldName = 'manname'
Title.Alignment = taCenter
Title.Caption = #23458#25143#22995#21517
Title.Font.Charset = ANSI_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'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
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 = 103
Visible = True
end
item
Expanded = False
FieldName = 'fangya'
Title.Alignment = taCenter
Title.Caption = #25151#25276
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'fangprice'
Title.Alignment = taCenter
Title.Caption = #25151#31199
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 79
Visible = True
end
item
Expanded = False
FieldName = 'Ljf'
Title.Alignment = taCenter
Title.Caption = #22403#22334#36153
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 = 'Yf'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #24212#20184#31199#37329
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'sf'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
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 = 58
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'begindate'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #36215#31199#26085#26399
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 113
Visible = True
end
item
Expanded = False
FieldName = 'enddate'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #25130#27490#26085#26399
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 98
Visible = True
end
item
Expanded = False
FieldName = 'status'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
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 = []
Width = 58
Visible = True
end>
end
end
object DS_Zjgl: TDataSource
DataSet = ADQ_Zjgl
Left = 200
Top = 256
end
object ADQ_Zjgl: TADOQuery
Connection = DB_module.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT A.id,A.fangno, A.manid, B.manname, '
' A.Jkrq, A.fangya, A.fangprice, A.Ljf, '
' A.Yf,A.sf, A.begindate, A.enddate, '
'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_Zujin A INNER JOIN'
' dbo.Zf_Man B ON A.manid = B.manid'
'where DATEPART(month, jkrq) in (DATEPART(month, GETDATE()))')
Left = 232
Top = 256
end
object ADQ_Zjglshow: TADOQuery
Connection = DB_module.ADOCon
CursorType = ctStatic
Parameters = <>
Left = 176
Top = 32
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 = 'fangya'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 18
Size = 19
Value = Null
end
item
Name = 'fangprice'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 18
Size = 19
Value = Null
end
item
Name = 'Ljf'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 2
Precision = 18
Size = 19
Value = Null
end
item
Name = 'Yf'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 3
Precision = 18
Size = 19
Value = Null
end
item
Name = 'Sf'
Attributes = [paSigned]
DataType = ftBCD
NumericScale = 3
Precision = 18
Size = 19
Value = Null
end
item
Name = 'begindate'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'enddate'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
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_Zujin'
'set fangno =:fangno,'
' manid =:manid,'
' jkrq =:Jkrq,'
' fangya =:fangya,'
' fangprice=:fangprice,'
' Ljf =:Ljf,'
' Yf =:Yf,'
' Sf =:Sf,'
' Begindate=:begindate,'
' enddate =:enddate,'
' status =:status'
'where '
' ID =:oldID')
Left = 65516
Top = 32
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 = 'fangya'
Attributes = [paSigned]
DataType = ftBCD
Precision = 18
Size = 19
Value = Null
end
item
Name = 'fangprice'
Attributes = [paSigned]
DataType = ftBCD
Precision = 18
Size = 19
Value = Null
end
item
Name = 'ljf'
Attributes = [paSigned]
DataType = ftBCD
Precision = 18
Size = 19
Value = Null
end
item
Name = 'yf'
Attributes = [paSigned]
DataType = ftBCD
Precision = 18
Size = 19
Value = Null
end
item
Name = 'sf'
Attributes = [paSigned]
DataType = ftBCD
Precision = 18
Size = 19
Value = Null
end
item
Name = 'begindate'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'enddate'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'status'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 1
Value = Null
end>
SQL.Strings = (
'insert into Zf_Zujin'
' (fangno,manid,jkrq,fangya,fangprice,ljf,yf,sf,begindate,e' +
'nddate,status)'
'values (:fangno,:manid,:jkrq,:fangya,:fangprice,:ljf,:yf,:sf,:be' +
'gindate,:enddate,:status)')
Left = 65512
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -