📄 slxmgz.dfm
字号:
object SlXmGzForm: TSlXmGzForm
Left = 192
Top = 222
Width = 600
Height = 269
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 = 225
Height = 225
Caption = '受理信息'
TabOrder = 0
object Label6: TLabel
Left = 24
Top = 24
Width = 56
Height = 14
Caption = '商品品牌'
end
object Label1: TLabel
Left = 24
Top = 125
Width = 56
Height = 14
Caption = '服务类型'
end
object Label4: TLabel
Left = 24
Top = 75
Width = 56
Height = 14
Caption = '商品规格'
end
object Label5: TLabel
Left = 24
Top = 176
Width = 56
Height = 14
Caption = '保修类型'
end
object DBEdit1: TDBEdit
Left = 88
Top = 24
Width = 113
Height = 22
DataField = 'slppmc'
DataSource = FwJsForm.DataSourcefwsl
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 88
Top = 75
Width = 113
Height = 22
DataField = 'slggmc'
DataSource = FwJsForm.DataSourcefwsl
ReadOnly = True
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 88
Top = 125
Width = 113
Height = 22
DataField = 'fwlx'
DataSource = FwJsForm.DataSourcefwsl
ReadOnly = True
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 88
Top = 176
Width = 113
Height = 22
DataField = 'sflx'
DataSource = FwJsForm.DataSourcefwsl
ReadOnly = True
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 240
Top = 8
Width = 345
Height = 225
Caption = '当前信息'
TabOrder = 1
object Label2: TLabel
Left = 24
Top = 24
Width = 56
Height = 14
Caption = '商品品牌'
end
object Label3: TLabel
Left = 24
Top = 56
Width = 56
Height = 14
Caption = '商品规格'
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 88
Top = 24
Width = 153
Height = 22
DataField = 'ppbh'
DataSource = FwJsForm.DataSourcefwsl
KeyField = 'ppbh'
ListField = 'mc'
ListSource = DataSource1
TabOrder = 0
OnClick = DBLookupComboBox1Click
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 88
Top = 56
Width = 153
Height = 22
DataField = 'ggbh'
DataSource = FwJsForm.DataSourcefwsl
KeyField = 'ggbh'
ListField = 'mc'
ListSource = DataSource2
TabOrder = 1
end
object DBRadioGroup1: TDBRadioGroup
Left = 144
Top = 88
Width = 97
Height = 121
Caption = '服务类型'
DataField = 'zxfwlx'
DataSource = FwJsForm.DataSourcefwsl
Items.Strings = (
'安装'
'维修'
'调试')
TabOrder = 2
end
object DBRadioGroup2: TDBRadioGroup
Left = 24
Top = 88
Width = 105
Height = 121
Caption = '保修类型'
DataField = 'zxsflx'
DataSource = FwJsForm.DataSourcefwsl
Items.Strings = (
'商场保修'
'商场过期'
'外购保修'
'外购非保修')
TabOrder = 3
end
object BitBtn1: TBitBtn
Left = 256
Top = 64
Width = 75
Height = 33
Caption = '确认'
Default = True
TabOrder = 4
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 256
Top = 128
Width = 75
Height = 33
Cancel = True
Caption = '放弃'
TabOrder = 5
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object ADOQueryppxx: TADOQuery
Connection = MainForm.ADOConnection1
DataSource = FwJsForm.DataSourcefwsl
Parameters = <
item
Name = 'flbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select * from ppxx where gsfl=:flbh')
Left = 488
Top = 8
end
object DataSource1: TDataSource
DataSet = ADOQueryppxx
Left = 528
Top = 8
end
object ADOQueryggxx: TADOQuery
Connection = MainForm.ADOConnection1
DataSource = DataSource1
Parameters = <
item
Name = 'gsfl'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end
item
Name = 'ppbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select * from ggxx where flbh=:gsfl and ppbh=:ppbh')
Left = 488
Top = 40
end
object DataSource2: TDataSource
DataSet = ADOQueryggxx
Left = 528
Top = 40
end
object ADOQuerytmp: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
Left = 448
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -