📄 getfwry.dfm
字号:
object GetFwRyForm: TGetFwRyForm
Left = 263
Top = 189
Width = 346
Height = 176
BorderIcons = []
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 Panel1: TPanel
Left = 8
Top = 8
Width = 321
Height = 89
BorderStyle = bsSingle
TabOrder = 0
object Label14: TLabel
Left = 37
Top = 31
Width = 64
Height = 16
Caption = '服务人员'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 112
Top = 32
Width = 145
Height = 22
KeyField = 'rybh'
ListField = 'ryxm'
ListSource = DataSource1
TabOrder = 0
end
end
object Button1: TButton
Left = 72
Top = 112
Width = 75
Height = 25
Caption = '确认'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 184
Top = 112
Width = 75
Height = 25
Caption = '放弃'
TabOrder = 2
OnClick = Button2Click
end
object ADOQueryryxx: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from ryxx where jb<>'#39'0'#39)
Left = 16
Top = 16
end
object DataSource1: TDataSource
DataSet = ADOQueryryxx
Left = 18
Top = 58
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -