📄 fwjscl.dfm
字号:
object DBText16: TDBText
Left = 112
Top = 107
Width = 65
Height = 17
DataField = 'ssqtfy'
DataSource = DataSourcefwjs
end
end
object Button5: TButton
Left = 336
Top = 184
Width = 75
Height = 25
Caption = '退出'
TabOrder = 1
OnClick = Button5Click
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 192
Width = 713
Height = 217
Caption = '详细资料'
TabOrder = 2
object Label6: TLabel
Left = 32
Top = 24
Width = 56
Height = 14
Caption = '实际型号'
end
object Label1: TLabel
Left = 272
Top = 143
Width = 56
Height = 14
Caption = '服务情况'
end
object Label3: TLabel
Left = 32
Top = 84
Width = 56
Height = 14
Caption = '服务日期'
end
object Label5: TLabel
Left = 32
Top = 113
Width = 56
Height = 14
Caption = '实际服务'
end
object Label7: TLabel
Left = 248
Top = 115
Width = 84
Height = 14
Caption = '实际收费类型'
end
object Label8: TLabel
Left = 32
Top = 173
Width = 56
Height = 14
Caption = '结算人员'
end
object Label12: TLabel
Left = 32
Top = 143
Width = 56
Height = 14
Caption = '合计收费'
end
object Label9: TLabel
Left = 32
Top = 54
Width = 56
Height = 14
Caption = '受理型号'
end
object Label10: TLabel
Left = 272
Top = 87
Width = 56
Height = 14
Caption = '受理日期'
end
object Label11: TLabel
Left = 272
Top = 173
Width = 56
Height = 14
Caption = '档案编号'
end
object DBEdit6: TDBEdit
Left = 96
Top = 24
Width = 113
Height = 22
DataField = 'flmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 0
end
object DBEdit7: TDBEdit
Left = 216
Top = 24
Width = 113
Height = 22
DataField = 'ppmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 1
end
object DBEdit8: TDBEdit
Left = 336
Top = 24
Width = 113
Height = 22
DataField = 'ggmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 2
end
object DBEdit1: TDBEdit
Left = 336
Top = 143
Width = 233
Height = 22
DataField = 'zxqk'
DataSource = DataSourcefwjs
ReadOnly = True
TabOrder = 3
end
object DBEdit3: TDBEdit
Left = 96
Top = 84
Width = 113
Height = 22
DataField = 'zxrq'
DataSource = DataSourcefwjs
ReadOnly = True
TabOrder = 4
end
object DBEdit5: TDBEdit
Left = 96
Top = 113
Width = 113
Height = 22
DataField = 'zxfwlx'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 5
end
object DBEdit10: TDBEdit
Left = 336
Top = 115
Width = 113
Height = 22
DataField = 'zxsflx'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 6
end
object DBEdit11: TDBEdit
Left = 96
Top = 173
Width = 113
Height = 22
DataField = 'jsrm'
DataSource = DataSourcefwjs
ReadOnly = True
TabOrder = 7
end
object DBEdit2: TDBEdit
Left = 96
Top = 144
Width = 113
Height = 22
DataField = 'ssfwfy'
DataSource = DataSourcefwjs
ReadOnly = True
TabOrder = 8
end
object Button6: TButton
Left = 496
Top = 176
Width = 97
Height = 30
Caption = '其他结算资料'
TabOrder = 9
OnClick = Button6Click
end
object Button8: TButton
Left = 600
Top = 176
Width = 97
Height = 30
Caption = '服务资料'
TabOrder = 10
OnClick = Button8Click
end
object DBEdit9: TDBEdit
Left = 336
Top = 173
Width = 113
Height = 22
DataField = 'dabh'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 11
end
object Button2: TButton
Left = 600
Top = 62
Width = 97
Height = 30
Caption = '结算'
TabOrder = 12
OnClick = Button2Click
end
object Button3: TButton
Left = 600
Top = 100
Width = 97
Height = 30
Caption = '结算撤消'
TabOrder = 13
OnClick = Button3Click
end
object Button4: TButton
Left = 600
Top = 138
Width = 97
Height = 30
Caption = '结算单'
TabOrder = 14
OnClick = Button4Click
end
object DBEdit17: TDBEdit
Left = 456
Top = 24
Width = 113
Height = 22
DataField = 'pzmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 15
end
object DBEdit4: TDBEdit
Left = 96
Top = 54
Width = 113
Height = 22
DataField = 'flmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 16
end
object DBEdit12: TDBEdit
Left = 216
Top = 56
Width = 113
Height = 22
DataField = 'slppmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 17
end
object DBEdit13: TDBEdit
Left = 336
Top = 54
Width = 113
Height = 22
DataField = 'slggmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 18
end
object DBEdit15: TDBEdit
Left = 336
Top = 85
Width = 113
Height = 22
DataField = 'slrq'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 19
end
object DBCheckBox1: TDBCheckBox
Left = 456
Top = 56
Width = 97
Height = 17
Caption = '上门服务'
DataField = 'fwfs'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 20
ValueChecked = '上门'
ValueUnchecked = '工场'
end
object Button9: TButton
Left = 600
Top = 24
Width = 97
Height = 30
Caption = '服务项目更正'
TabOrder = 21
OnClick = Button9Click
end
object DBCheckBox2: TDBCheckBox
Left = 456
Top = 88
Width = 97
Height = 17
Caption = '部位结算'
DataField = 'jsfs'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 22
ValueChecked = '部位'
ValueUnchecked = '计件'
end
end
object ADOQueryfwsl: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from fwsl'
' where delflag='#39'否'#39' and pgflag='#39'是'#39' and jsflag='#39'否'#39' '
'and fwlx<>"回访" order by slrq')
Left = 295
Top = 88
end
object DataSourcefwsl: TDataSource
DataSet = ADOQueryfwsl
OnDataChange = DataSourcefwslDataChange
Left = 335
Top = 88
end
object ADOQueryfwjs: TADOQuery
Connection = MainForm.ADOConnection1
DataSource = DataSourcefwsl
Parameters = <
item
Name = 'dabh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = '00001'
end>
SQL.Strings = (
'select * from fwjs where dabh=:dabh and jslx<>'#39'回访'#39)
Left = 303
Top = 136
end
object DataSourcefwjs: TDataSource
DataSet = ADOQueryfwjs
Left = 335
Top = 136
end
object ADOQuerypjxx: TADOQuery
Connection = MainForm.ADOConnection1
DataSource = DataSourcefwsl
Parameters = <
item
Name = 'dabh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = '00001'
end>
SQL.Strings = (
'select * from wxpjxx where dabh =:dabh ')
Left = 440
Top = 136
end
object ADOQuerytmp: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
Left = 519
Top = 128
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -