📄 unit7.~dfm
字号:
object Form7: TForm7
Left = 207
Top = 235
Width = 643
Height = 471
ActiveControl = DBComboBox1
Caption = '经理高级查询'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 633
Height = 441
ActivePage = TabSheet3
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = '物品查询'
OnContextPopup = TabSheet1ContextPopup
object DBGrid1: TDBGrid
Left = 0
Top = 40
Width = 441
Height = 185
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button2: TButton
Left = 448
Top = 296
Width = 81
Height = 33
Caption = '开始查询'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object GroupBox1: TGroupBox
Left = 440
Top = 32
Width = 185
Height = 193
Caption = '查询条件'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object CheckBox1: TCheckBox
Left = 32
Top = 40
Width = 97
Height = 25
Caption = '货物名称'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object CheckBox3: TCheckBox
Left = 32
Top = 64
Width = 121
Height = 25
Caption = '货物剩余数量'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object CheckBox4: TCheckBox
Left = 32
Top = 88
Width = 97
Height = 25
Caption = '货物型号'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object CheckBox5: TCheckBox
Left = 32
Top = 112
Width = 97
Height = 25
Caption = '货物价格'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object CheckBox6: TCheckBox
Left = 32
Top = 136
Width = 97
Height = 25
Caption = '货物种类'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
end
object Button1: TButton
Left = 536
Top = 296
Width = 81
Height = 33
Caption = '密码修改'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button1Click
end
object GroupBox2: TGroupBox
Left = 8
Top = 232
Width = 433
Height = 177
Caption = '生产厂商基本情况'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
object Label1: TLabel
Left = 56
Top = 48
Width = 39
Height = 16
Caption = '厂名：'
end
object Label2: TLabel
Left = 256
Top = 48
Width = 39
Height = 16
Caption = '地址：'
end
object Label3: TLabel
Left = 56
Top = 104
Width = 39
Height = 16
Caption = '电话：'
end
object Label4: TLabel
Left = 256
Top = 104
Width = 39
Height = 16
Caption = '传真：'
end
object DBText3: TDBText
Left = 120
Top = 104
Width = 52
Height = 16
AutoSize = True
DataField = 'Tel'
DataSource = datamodule1.DataSource4
DragMode = dmAutomatic
end
object dbtext4: TDBText
Left = 304
Top = 104
Width = 89
Height = 17
DataField = 'Fax'
DataSource = datamodule1.DataSource4
end
object DBEdit1: TDBEdit
Left = 104
Top = 48
Width = 121
Height = 24
AutoSize = False
BorderStyle = bsNone
Color = clActiveBorder
DataField = 'Cname'
DataSource = datamodule1.DataSource4
ImeName = '中文 (简体) - 微软拼音'
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 296
Top = 48
Width = 121
Height = 24
BorderStyle = bsNone
Color = clActiveBorder
DataField = 'Address'
DataSource = datamodule1.DataSource4
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 1
end
end
object Button5: TButton
Left = 448
Top = 344
Width = 81
Height = 33
Caption = '取消'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 536
Top = 344
Width = 81
Height = 33
Caption = '管理员身份'
TabOrder = 6
OnClick = Button6Click
end
end
object TabSheet2: TTabSheet
Caption = '生产日期查询'
ImageIndex = 1
OnContextPopup = TabSheet2ContextPopup
object Label5: TLabel
Left = 24
Top = 40
Width = 108
Height = 24
Caption = '生产日期从：'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 96
Top = 72
Width = 36
Height = 24
Caption = '到：'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 24
Top = 128
Width = 108
Height = 24
Caption = '过期日期从：'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 96
Top = 168
Width = 36
Height = 24
Caption = '到：'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 120
Top = 40
Width = 121
Height = 24
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 0
OnChange = Edit1Change
end
object Edit2: TEdit
Left = 120
Top = 72
Width = 121
Height = 24
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 1
OnChange = Edit2Change
end
object edit3: TEdit
Left = 120
Top = 128
Width = 121
Height = 24
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 2
OnChange = edit3Change
end
object edit4: TEdit
Left = 120
Top = 168
Width = 121
Height = 24
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 3
OnChange = edit4Change
end
object DBGrid2: TDBGrid
Left = 256
Top = 24
Width = 369
Height = 385
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object GroupBox3: TGroupBox
Left = 24
Top = 192
Width = 201
Height = 145
Caption = '查询项目'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
object CheckBox7: TCheckBox
Left = 48
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -