📄 cbgl.dfm
字号:
Left = 20
Top = 66
Width = 56
Height = 16
Caption = #30005' '#34920#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 345
Top = 66
Width = 80
Height = 16
Caption = #25220#34920#26085#26399#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 20
Top = 26
Width = 56
Height = 16
Caption = #25151' '#21495#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Ed_Fh: TEdit
Left = 71
Top = 23
Width = 92
Height = 21
Enabled = False
TabOrder = 0
OnChange = Ed_FhChange
OnKeyDown = Ed_FhKeyDown
OnKeyPress = Ed_FhKeyPress
end
object Ed_Db: TEdit
Left = 71
Top = 64
Width = 92
Height = 21
Enabled = False
TabOrder = 1
end
object Ed_Lsb: TEdit
Left = 238
Top = 23
Width = 92
Height = 21
Enabled = False
TabOrder = 2
end
object Ed_Rsb: TEdit
Left = 415
Top = 22
Width = 92
Height = 21
Enabled = False
TabOrder = 3
end
object Ed_Mqb: TEdit
Left = 238
Top = 63
Width = 92
Height = 21
Enabled = False
TabOrder = 4
end
object DT_Cbrq: TDateTimePicker
Left = 415
Top = 64
Width = 92
Height = 21
CalAlignment = dtaLeft
Date = 38124
Time = 38124
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 5
end
object DBGrid1: TDBGrid
Left = 77
Top = 42
Width = 241
Height = 16
BorderStyle = bsNone
Color = clAqua
DataSource = DS_Fh
FixedColor = clAqua
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
OnDblClick = DBGrid1DblClick
OnKeyDown = DBGrid1KeyDown
Columns = <
item
Expanded = False
FieldName = 'fangno'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #25151#21495
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'area'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #38754#31215
Width = 45
Visible = True
end
item
Expanded = False
FieldName = 'housetype'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #25143#22411
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'facetype'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #26397#21521
Width = 49
Visible = True
end
item
Expanded = False
FieldName = 'sb'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #23478#20855#35774#22791
Visible = True
end
item
Expanded = False
FieldName = 'fangya'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #25276#37329#12288
Width = 42
Visible = True
end
item
Expanded = False
FieldName = 'fangprice'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #26376#31199
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'status'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #29366#24577
Visible = True
end>
end
end
object DS_Cbgl: TDataSource
DataSet = ADQ_Cbgl
Left = 176
Top = 288
end
object ADQ_Cbgl: TADOQuery
Connection = DB_module.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT A.manid, B.manname, A.fangno,C.Cbrq, C.lsb, C.rsb, '
' C.db, C.mqb FROM dbo.zf_Biaodi200405 C '
'INNER JOIN dbo.Zf_Rz A ON C.fangno = A.fangno '
'INNER JOIN dbo.Zf_Man B ON A.manid = B.manid')
Left = 216
Top = 288
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 = 'cbrq'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'lsb'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'rsb'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'db'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end
item
Name = 'mqb'
Attributes = [paSigned, paNullable]
DataType = ftBCD
NumericScale = 2
Precision = 6
Size = 19
Value = Null
end>
SQL.Strings = (
'insert into Zf_BiaodiYYYYMM'
' (fangno,cbrq,lsb,rsb,db,mqb)'
'values (:fangno,:cbrq,:lsb,:rsb,:db,:mqb)')
Left = 65515
Top = 80
end
object ADOQry_update: TADOQuery
Connection = DB_module.ADOCon
Parameters = <>
Left = 65514
Top = 112
end
object ADQ_Fh: TADOQuery
Connection = DB_module.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select fangno,area,housetype,facetype,sb,fangya,fangprice,'
'case status when '#39'1'#39' then '#39#24050#20986#31199#39' else '#39#26410#20986#31199#39' end as status'
'from fjcb')
Left = 65517
Top = 8
end
object DS_Fh: TDataSource
DataSet = ADQ_Fh
Left = 65515
Top = 40
end
object ADQ_RecordCount: TADOQuery
Connection = DB_module.ADOCon
Parameters = <>
Left = 288
Top = 88
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -