📄 copy_zyjxjh.dfm
字号:
object Frmzyjxjhhz: TFrmzyjxjhhz
Left = 221
Top = 279
Width = 490
Height = 288
BorderIcons = []
Caption = #22797#21046#19987#19994#25945#23398#35745#21010
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 482
Height = 261
Align = alClient
BevelOuter = bvLowered
BevelWidth = 2
TabOrder = 0
object GroupBox1: TGroupBox
Left = 32
Top = 24
Width = 153
Height = 193
Caption = #28304#19987#19994#25945#23398#35745#21010
TabOrder = 0
object Label1: TLabel
Left = 7
Top = 18
Width = 60
Height = 13
Caption = #20837#23398#24180#20221#65306
end
object ListBox1: TListBox
Left = 2
Top = 40
Width = 149
Height = 151
Color = cl3DLight
ItemHeight = 13
TabOrder = 0
OnClick = ListBox1Click
end
object ComboBox1: TComboBox
Left = 68
Top = 14
Width = 73
Height = 21
ItemHeight = 13
TabOrder = 1
OnChange = ComboBox1Change
end
end
object GroupBox2: TGroupBox
Left = 224
Top = 24
Width = 153
Height = 193
Caption = #22797#21046#21040#19987#19994
TabOrder = 1
object Label2: TLabel
Left = 7
Top = 18
Width = 60
Height = 13
Caption = #20837#23398#24180#20221#65306
end
object ListBox2: TListBox
Left = 2
Top = 40
Width = 149
Height = 151
Color = cl3DLight
ItemHeight = 13
TabOrder = 0
OnClick = ListBox2Click
end
object ComboBox2: TComboBox
Left = 68
Top = 14
Width = 73
Height = 21
ItemHeight = 13
TabOrder = 1
OnChange = ComboBox2Change
end
end
object Button1: TButton
Left = 400
Top = 80
Width = 59
Height = 25
Caption = #30830#23450
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 400
Top = 136
Width = 59
Height = 25
Caption = #21462#28040
TabOrder = 3
OnClick = Button2Click
end
end
object Q_deljxjhb: TQuery
DatabaseName = 'kjxy'
SQL.Strings = (
'SELECT JW_JXJHB.JW_JXJHB__KYY, JW_JXJHB.JW_JXJHB__RXNF, '
' SYS_ZY.SYS_ZY__ZYM'
'FROM JW_JXJHB INNER JOIN'
' SYS_ZY ON JW_JXJHB.JW_JXJHB__ZYH = SYS_ZY.SYS_ZY__ZYH'
'WHERE (JW_JXJHB.JW_JXJHB__RXNF =:rxnf) AND '
' (SYS_ZY.SYS_ZY__ZYM =:zym)')
Left = 192
Top = 112
ParamData = <
item
DataType = ftString
Name = 'rxnf'
ParamType = ptUnknown
Value = '0'
end
item
DataType = ftString
Name = 'zym'
ParamType = ptUnknown
Value = '0'
end>
end
object Q_rxnf_jxjh: TQuery
DatabaseName = 'kjxy'
SQL.Strings = (
'SELECT JW_JXJHB.JW_JXJHB__RXNF, SYS_ZY.SYS_ZY__ZYM, '
' JW_JXJHB.JW_JXJHB__ZYH, JW_JXJHB.JW_JXJHB__KYY, '
' JW_JXJHB.JW_JXJHB__KCH, JW_JXJHB.JW_JXJHB__KCH1, '
' JW_JXJHB.JW_JXJHB__KCLB, JW_JXJHB.JW_JXJHB__KSFS, '
' JW_JXJHB.JW_JXJHB__KSLB, JW_JXJHB.JW_JXJHB__ZXS, '
' JW_JXJHB.JW_JXJHB__ZXF'
'FROM SYS_ZY INNER JOIN'
' JW_JXJHB ON SYS_ZY.SYS_ZY__ZYH = JW_JXJHB.JW_JXJHB__ZYH'
'WHERE (JW_JXJHB.JW_JXJHB__RXNF = :rxnf) AND (SYS_ZY.SYS_ZY__ZYM ' +
'=:zym) ')
Left = 248
Top = 112
ParamData = <
item
DataType = ftString
Name = 'rxnf'
ParamType = ptUnknown
Value = '0'
end
item
DataType = ftString
Name = 'zym'
ParamType = ptUnknown
Value = '0'
end>
end
object Q_jxjhc: TQuery
DatabaseName = 'kjxy'
SQL.Strings = (
'SELECT JW_JXJHB.JW_JXJHB__RXNF, SYS_ZY.SYS_ZY__ZYM, '
' JW_JXJHC.*, JW_JXJHB.JW_JXJHB__KCH, '
' JW_JXJHB.JW_JXJHB__ZYH'
'FROM JW_JXJHC INNER JOIN'
' JW_JXJHB ON '
' JW_JXJHC.JW_JXJHC__KYY = JW_JXJHB.JW_JXJHB__KYY INNER JOIN'
' SYS_ZY ON JW_JXJHB.JW_JXJHB__ZYH = SYS_ZY.SYS_ZY__ZYH'
'WHERE (JW_JXJHB.JW_JXJHB__RXNF =:rxnf ) AND '
' (SYS_ZY.SYS_ZY__ZYM =:zym)')
Left = 224
Top = 168
ParamData = <
item
DataType = ftString
Name = 'rxnf'
ParamType = ptUnknown
Value = '0'
end
item
DataType = ftString
Name = 'zym'
ParamType = ptUnknown
Value = '0'
end>
end
object Q_okyy_nkyy: TQuery
DatabaseName = 'kjxy'
SQL.Strings = (
'SELECT JW_JXJHB.*, JW_JXJHB__ZYH FROM JW_JXJHB'
'WHERE (JW_JXJHB__RXNF =:rxnf) AND (JW_JXJHB__KCH =:kch) AND '
' (JW_JXJHB__ZYH =:zyh)'
'')
Left = 280
Top = 216
ParamData = <
item
DataType = ftString
Name = 'rxnf'
ParamType = ptUnknown
Value = '0'
end
item
DataType = ftString
Name = 'kch'
ParamType = ptUnknown
Value = '0'
end
item
DataType = ftString
Name = 'zyh'
ParamType = ptUnknown
Value = '0'
end>
end
object Table1: TTable
DatabaseName = 'kjxy'
TableName = 'dbo.SYS_RXNF'
Left = 200
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -