📄 khfwxx.dfm
字号:
object KhFwxxForm: TKhFwxxForm
Left = 54
Top = 169
Width = 719
Height = 316
Caption = '查询客户相关服务信息'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 697
Height = 233
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'slrq'
Title.Alignment = taCenter
Title.Caption = '受理日期'
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'jsrq'
Title.Alignment = taCenter
Title.Caption = '结算日期'
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'flmc'
Title.Alignment = taCenter
Title.Caption = '分类名称'
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'ppmc'
Title.Alignment = taCenter
Title.Caption = '品牌名称'
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'ggmc'
Title.Alignment = taCenter
Title.Caption = '规格名称'
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'zxfwlx'
Title.Alignment = taCenter
Title.Caption = '服务类型'
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'xxmc'
Title.Alignment = taCenter
Title.Caption = '故障现象'
Width = 156
Visible = True
end
item
Expanded = False
FieldName = 'fwjs.zxrm'
Title.Caption = '执行人名'
Width = 60
Visible = True
end>
end
object Button1: TButton
Left = 296
Top = 256
Width = 75
Height = 25
Caption = '退出'
TabOrder = 1
OnClick = Button1Click
end
object ADOQuery1: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <
item
Name = 'P_khbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = '00001'
end>
SQL.Strings = (
'select * from fwsl,fwjs where fwsl.jsflag='#39'是'#39' '
'and fwsl.khbh=:P_khbh and fwsl.dabh = fwjs.dabh '
'and fwjs.zxfwlx<>'#39'回访'#39' and fwjs.zxfwlx<>’主动回访'#39' '
' and delflag='#39'否'#39' order by fwsl.dabh')
Left = 208
Top = 104
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 240
Top = 104
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -