📄 fwsl.dfm
字号:
object FwSlForm: TFwSlForm
Left = 28
Top = 104
Width = 729
Height = 453
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 GroupBox2: TGroupBox
Left = 7
Top = 3
Width = 602
Height = 126
Caption = '客户信息'
TabOrder = 0
object Label2: TLabel
Left = 24
Top = 24
Width = 56
Height = 14
Caption = '客户名称'
end
object Label3: TLabel
Left = 336
Top = 24
Width = 84
Height = 14
Caption = '主要联系电话'
end
object Label5: TLabel
Left = 336
Top = 56
Width = 84
Height = 14
Caption = '其他联系电话'
end
object Label6: TLabel
Left = 24
Top = 56
Width = 56
Height = 14
Caption = '地址区域'
end
object Label7: TLabel
Left = 24
Top = 88
Width = 56
Height = 14
Caption = '详细住址'
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 96
Top = 56
Width = 169
Height = 22
DataField = 'qybh'
KeyField = 'qybh'
ListField = 'mc'
ListSource = DataSourcedzqy
TabOrder = 3
OnClick = DBLookupComboBox1Click
end
object Edit1: TEdit
Left = 96
Top = 24
Width = 169
Height = 22
TabOrder = 0
end
object Edit2: TEdit
Left = 432
Top = 24
Width = 153
Height = 22
TabOrder = 1
end
object Edit3: TEdit
Left = 432
Top = 56
Width = 153
Height = 22
TabOrder = 2
end
object Edit5: TEdit
Left = 96
Top = 88
Width = 241
Height = 22
TabOrder = 4
end
end
object GroupBox1: TGroupBox
Left = 8
Top = 136
Width = 705
Height = 281
Caption = '服务信息'
TabOrder = 1
object RadioGroup1: TRadioGroup
Left = 260
Top = 18
Width = 105
Height = 121
Caption = '服务类型'
ItemIndex = 1
Items.Strings = (
'安装'
'维修'
'调试'
'回访')
TabOrder = 1
OnClick = RadioGroup1Click
end
object GroupBox3: TGroupBox
Left = 14
Top = 18
Width = 233
Height = 249
Caption = '商品信息'
TabOrder = 0
object Label8: TLabel
Left = 17
Top = 26
Width = 56
Height = 14
Caption = '商品分类'
end
object Label9: TLabel
Left = 17
Top = 58
Width = 56
Height = 14
Caption = '商品品牌'
end
object Label10: TLabel
Left = 17
Top = 89
Width = 56
Height = 14
Caption = '商品规格'
end
object Label1: TLabel
Left = 17
Top = 152
Width = 56
Height = 14
Caption = '购买日期'
end
object Label11: TLabel
Left = 17
Top = 208
Width = 56
Height = 14
Caption = '发票号码'
end
object Label4: TLabel
Left = 17
Top = 121
Width = 56
Height = 14
Caption = '商品型号'
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 80
Top = 28
Width = 137
Height = 22
KeyField = 'flbh'
ListField = 'flmc'
ListSource = DataSourceflxx
TabOrder = 0
OnClick = DBLookupComboBox2Click
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 80
Top = 59
Width = 137
Height = 22
KeyField = 'ppbh'
ListField = 'mc'
ListSource = DataSourceppxx
TabOrder = 1
OnClick = DBLookupComboBox3Click
end
object DBLookupComboBox4: TDBLookupComboBox
Left = 80
Top = 89
Width = 137
Height = 22
KeyField = 'ggbh'
ListField = 'mc'
ListSource = DataSourceggxx
TabOrder = 2
end
object DateTimePicker1: TDateTimePicker
Left = 80
Top = 151
Width = 137
Height = 22
CalAlignment = dtaLeft
Date = 37430.3741018171
Time = 37430.3741018171
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object Edit7: TEdit
Left = 80
Top = 208
Width = 137
Height = 22
TabOrder = 4
end
object CheckBox2: TCheckBox
Left = 80
Top = 181
Width = 113
Height = 17
Caption = '购买日期不详'
TabOrder = 5
OnClick = CheckBox2Click
end
object Edit4: TEdit
Left = 80
Top = 120
Width = 137
Height = 22
TabOrder = 6
end
end
object RadioGroup2: TRadioGroup
Left = 260
Top = 146
Width = 105
Height = 121
Caption = '保修类型'
ItemIndex = 0
Items.Strings = (
'商场保修'
'商场过期'
'外购保修'
'外购非保修')
TabOrder = 2
OnClick = RadioGroup2Click
end
object GroupBox5: TGroupBox
Left = 376
Top = 18
Width = 313
Height = 247
Caption = '服务描述'
TabOrder = 3
object Label16: TLabel
Left = 21
Top = 32
Width = 56
Height = 14
Caption = '现象类型'
end
object Label13: TLabel
Left = 21
Top = 63
Width = 56
Height = 14
Caption = '现象描述'
end
object Label15: TLabel
Left = 21
Top = 94
Width = 56
Height = 14
Caption = '服务备注'
end
object Label14: TLabel
Left = 21
Top = 124
Width = 56
Height = 14
Caption = '服务方式'
end
object Label17: TLabel
Left = 21
Top = 211
Width = 56
Height = 14
Caption = '接待人员'
end
object DBLookupComboBox6: TDBLookupComboBox
Left = 80
Top = 32
Width = 193
Height = 22
KeyField = 'gzbh'
ListField = 'mc'
ListSource = DataSourcegzbm
TabOrder = 0
end
object Edit8: TEdit
Left = 80
Top = 63
Width = 193
Height = 22
TabOrder = 1
end
object RadioButton1: TRadioButton
Left = 96
Top = 124
Width = 81
Height = 17
Caption = '工场服务'
Checked = True
TabOrder = 2
TabStop = True
OnClick = RadioButton1Click
end
object RadioButton2: TRadioButton
Left = 184
Top = 124
Width = 81
Height = 17
Caption = '上门服务'
TabOrder = 3
OnClick = RadioButton1Click
end
object Edit9: TEdit
Left = 80
Top = 94
Width = 193
Height = 22
TabOrder = 4
end
object DBLookupComboBox7: TDBLookupComboBox
Left = 80
Top = 211
Width = 121
Height = 22
KeyField = 'rybh'
ListField = 'ryxm'
ListSource = DataSourceryxx
TabOrder = 5
end
object GroupBox4: TGroupBox
Left = 16
Top = 152
Width = 281
Height = 49
Caption = '约定时间'
TabOrder = 6
object Label18: TLabel
Left = 192
Top = 19
Width = 14
Height = 14
Caption = '时'
end
object Label19: TLabel
Left = 264
Top = 19
Width = 14
Height = 14
Caption = '分'
end
object DateTimePicker2: TDateTimePicker
Left = 8
Top = 19
Width = 121
Height = 22
CalAlignment = dtaLeft
Date = 37430.3741018171
Time = 37430.3741018171
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object ComboBox1: TComboBox
Left = 216
Top = 19
Width = 41
Height = 22
Style = csDropDownList
BiDiMode = bdLeftToRight
ItemHeight = 14
ParentBiDiMode = False
TabOrder = 1
Items.Strings = (
'00'
'15'
'30'
'45')
end
object Edit10: TEdit
Left = 136
Top = 19
Width = 33
Height = 22
ReadOnly = True
TabOrder = 2
Text = '12'
end
object UpDown1: TUpDown
Left = 169
Top = 19
Width = 15
Height = 22
Associate = Edit10
Min = 0
Max = 24
Position = 12
TabOrder = 3
Wrap = False
end
end
end
end
object Button1: TButton
Left = 624
Top = 16
Width = 81
Height = 33
Caption = '确定'
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 624
Top = 96
Width = 81
Height = 33
Caption = '放弃'
TabOrder = 3
OnClick = Button2Click
end
object Button3: TButton
Left = 624
Top = 56
Width = 81
Height = 33
Caption = ' 服务资料'
TabOrder = 4
OnClick = Button3Click
end
object ADOTabledzqy: TADOTable
Connection = MainForm.ADOConnection1
TableName = 'dzqy'
Left = 375
Top = 83
end
object DataSourcedzqy: TDataSource
DataSet = ADOTabledzqy
Left = 424
Top = 80
end
object ADOTableflxx: TADOTable
Connection = MainForm.ADOConnection1
TableName = 'flxx'
Top = 160
end
object DataSourceflxx: TDataSource
DataSet = ADOTableflxx
Top = 184
end
object ADOQueryppxx: TADOQuery
Connection = MainForm.ADOConnection1
DataSource = DataSourceflxx
Parameters = <
item
Name = 'flbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = '0001'
end>
SQL.Strings = (
'select * from ppxx where gsfl=:flbh')
Top = 216
end
object DataSourceppxx: TDataSource
DataSet = ADOQueryppxx
Top = 256
end
object ADOQueryggxx: TADOQuery
Connection = MainForm.ADOConnection1
DataSource = DataSourceppxx
Parameters = <
item
Name = 'gsfl'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = '0001'
end
item
Name = 'ppbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = '0001'
end>
SQL.Strings = (
'select * from ggxx where flbh=:gsfl and ppbh=:ppbh')
Top = 288
end
object DataSourceggxx: TDataSource
DataSet = ADOQueryggxx
Top = 320
end
object ADOQuerygzbm: TADOQuery
Connection = MainForm.ADOConnection1
DataSource = DataSourceflxx
Parameters = <
item
Name = 'flbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = '0001'
end>
SQL.Strings = (
'select * from gzbm where flbh=:flbh')
Left = 536
Top = 112
end
object DataSourcegzbm: TDataSource
DataSet = ADOQuerygzbm
Left = 568
Top = 120
end
object ADOQuerytmp: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from khxx')
Left = 408
Top = 112
end
object ADOTablesys: TADOTable
Connection = MainForm.ADOConnection1
TableName = 'sysparm'
Left = 488
Top = 112
end
object DataSourcetmp: TDataSource
DataSet = ADOQuerytmp
Left = 440
Top = 112
end
object ADOQueryryxx: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from ryxx')
Left = 104
Top = 384
end
object DataSourceryxx: TDataSource
DataSet = ADOQueryryxx
Left = 144
Top = 392
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -