📄 fwpgcl.dfm
字号:
object FwPgForm: TFwPgForm
Left = 44
Top = 111
Width = 738
Height = 422
BorderIcons = [biSystemMenu, biMinimize]
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 GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 713
Height = 177
Caption = '受理信息'
TabOrder = 0
object DBGrid1: TDBGrid
Left = 8
Top = 16
Width = 617
Height = 153
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fwlx'
Title.Alignment = taCenter
Title.Caption = '类型'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'slrq'
Title.Alignment = taCenter
Title.Caption = '受理日期'
Width = 79
Visible = True
end
item
Expanded = False
FieldName = 'sltime'
Title.Alignment = taCenter
Title.Caption = '受理时间'
Visible = True
end
item
Expanded = False
FieldName = 'khmc'
Title.Alignment = taCenter
Title.Caption = '客户名称'
Width = 126
Visible = True
end
item
Expanded = False
FieldName = 'pgflag'
Title.Alignment = taCenter
Title.Caption = '派工'
Width = 34
Visible = True
end
item
Expanded = False
FieldName = 'pgrq'
Title.Alignment = taCenter
Title.Caption = '派工日期'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'pgrm'
Title.Alignment = taCenter
Title.Caption = '派工人'
Width = 61
Visible = True
end
item
Expanded = False
FieldName = 'zxrm'
Title.Alignment = taCenter
Title.Caption = '服务人员'
Width = 69
Visible = True
end>
end
object Button1: TButton
Left = 632
Top = 24
Width = 65
Height = 25
Caption = '查询'
TabOrder = 1
OnClick = Button1Click
end
object CheckBox1: TCheckBox
Left = 632
Top = 104
Width = 73
Height = 17
Caption = '全部信息'
TabOrder = 2
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 632
Top = 144
Width = 73
Height = 17
Caption = '注销信息'
TabOrder = 3
OnClick = CheckBox2Click
end
object Button7: TButton
Left = 632
Top = 64
Width = 65
Height = 25
Caption = '退出'
TabOrder = 4
OnClick = Button7Click
end
end
object GroupBox3: TGroupBox
Left = 120
Top = 192
Width = 401
Height = 193
Caption = '注销信息'
TabOrder = 1
Visible = False
object Panel1: TPanel
Left = 24
Top = 24
Width = 361
Height = 121
BevelOuter = bvLowered
Color = clInfoBk
TabOrder = 0
object Label1: TLabel
Left = 48
Top = 19
Width = 70
Height = 14
Caption = '注销原因:'
end
object DBText1: TDBText
Left = 112
Top = 16
Width = 209
Height = 17
DataField = 'delyy'
DataSource = DataSourcefwsl
end
object Label2: TLabel
Left = 48
Top = 43
Width = 70
Height = 14
Caption = '注销日期:'
end
object DBText2: TDBText
Left = 112
Top = 40
Width = 65
Height = 17
DataField = 'delrq'
DataSource = DataSourcefwsl
end
object Label3: TLabel
Left = 64
Top = 67
Width = 56
Height = 14
Caption = '注销人:'
end
object DBText3: TDBText
Left = 112
Top = 64
Width = 65
Height = 17
DataField = 'delrm'
DataSource = DataSourcefwsl
end
object Label4: TLabel
Left = 43
Top = 91
Width = 70
Height = 14
Caption = '注销备注:'
end
object DBText4: TDBText
Left = 112
Top = 88
Width = 217
Height = 17
DataField = 'delbz'
DataSource = DataSourcefwsl
end
end
object Button8: TButton
Left = 168
Top = 160
Width = 75
Height = 25
Caption = '退出'
TabOrder = 1
OnClick = Button8Click
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 192
Width = 713
Height = 193
Caption = '详细资料'
TabOrder = 2
object Label5: TLabel
Left = 40
Top = 118
Width = 56
Height = 14
Caption = '详细住址'
end
object Label9: TLabel
Left = 40
Top = 24
Width = 56
Height = 14
Caption = '商品型号'
end
object Label11: TLabel
Left = 40
Top = 56
Width = 56
Height = 14
Caption = '故障描述'
end
object Label12: TLabel
Left = 40
Top = 152
Width = 56
Height = 14
Caption = '约定日期'
end
object Label15: TLabel
Left = 40
Top = 88
Width = 56
Height = 14
Caption = '服务备注'
end
object DBEdit4: TDBEdit
Left = 104
Top = 120
Width = 113
Height = 22
DataField = 'qymc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 0
end
object DBEdit5: TDBEdit
Left = 224
Top = 120
Width = 233
Height = 22
DataField = 'dz'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 1
end
object DBEdit6: TDBEdit
Left = 104
Top = 24
Width = 113
Height = 22
DataField = 'flmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 2
end
object DBEdit7: TDBEdit
Left = 224
Top = 24
Width = 113
Height = 22
DataField = 'ppmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 3
end
object DBEdit8: TDBEdit
Left = 344
Top = 24
Width = 113
Height = 22
DataField = 'ggmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 4
end
object DBEdit10: TDBEdit
Left = 104
Top = 56
Width = 233
Height = 22
DataField = 'xxmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 5
end
object DBEdit11: TDBEdit
Left = 344
Top = 56
Width = 233
Height = 22
DataField = 'khms'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 6
end
object DBCheckBox1: TDBCheckBox
Left = 376
Top = 152
Width = 81
Height = 17
Caption = '上门服务'
DataField = 'fwfs'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 7
ValueChecked = '上门'
ValueUnchecked = '工场'
end
object DBEdit12: TDBEdit
Left = 104
Top = 88
Width = 353
Height = 22
DataField = 'slbz'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 8
end
object DBEdit14: TDBEdit
Left = 104
Top = 152
Width = 113
Height = 22
DataField = 'ydsmrq'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 9
end
object DBEdit15: TDBEdit
Left = 224
Top = 152
Width = 73
Height = 22
DataField = 'ydsmtime'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 10
end
object DBEdit1: TDBEdit
Left = 464
Top = 88
Width = 113
Height = 22
DataField = 'sflx'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 11
end
object DBCheckBox2: TDBCheckBox
Left = 464
Top = 152
Width = 89
Height = 17
Caption = '是否已注销'
DataField = 'delflag'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 12
ValueChecked = '是'
ValueUnchecked = '否'
end
object Button2: TButton
Left = 622
Top = 24
Width = 75
Height = 25
Caption = '派工'
TabOrder = 13
OnClick = Button2Click
end
object Button6: TButton
Left = 622
Top = 92
Width = 75
Height = 25
Caption = '派工单'
TabOrder = 14
OnClick = Button6Click
end
object Button3: TButton
Left = 622
Top = 58
Width = 75
Height = 25
Caption = '派工撤销'
TabOrder = 15
OnClick = Button3Click
end
object Button5: TButton
Left = 622
Top = 126
Width = 75
Height = 25
Caption = '受理注销'
TabOrder = 16
OnClick = Button5Click
end
object Button4: TButton
Left = 624
Top = 160
Width = 73
Height = 25
Caption = '注销信息'
Enabled = False
TabOrder = 17
OnClick = Button4Click
end
object DBEdit2: TDBEdit
Left = 464
Top = 24
Width = 113
Height = 22
DataField = 'pzmc'
DataSource = DataSourcefwsl
ReadOnly = True
TabOrder = 18
end
end
object ADOQueryfwsl: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from fwsl where pgflag='#39'否'#39' and delflag='#39'否'#39
' order by dabh')
Left = 216
Top = 80
end
object DataSourcefwsl: TDataSource
DataSet = ADOQueryfwsl
OnStateChange = DataSourcefwslStateChange
OnDataChange = DataSourcefwslDataChange
Left = 248
Top = 80
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -