📄 fmdkysque.~dfm
字号:
object Fm_dkys_que: TFm_dkys_que
Left = 25
Top = 100
Width = 804
Height = 467
Caption = '验收记录及相关情况查询'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 796
Height = 97
Align = alTop
BevelOuter = bvLowered
BorderStyle = bsSingle
TabOrder = 0
object GroupBox3: TGroupBox
Left = 8
Top = 4
Width = 193
Height = 85
Caption = '日期选择'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 20
Width = 56
Height = 14
Caption = '起始时间'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 59
Width = 56
Height = 14
Caption = '截止时间'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object MaskEdit_rz_sta: TMaskEdit
Left = 72
Top = 16
Width = 89
Height = 20
EditMask = '!0000-!90-!90;1;_'
MaxLength = 10
TabOrder = 2
Text = ' - - '
OnEnter = MaskEdit_rz_staEnter
OnExit = MaskEdit_rz_staExit
end
object MaskEdit_rz_en: TMaskEdit
Left = 72
Top = 55
Width = 90
Height = 20
EditMask = '!0000-!90-!90;1;_'
MaxLength = 10
TabOrder = 3
Text = ' - - '
OnEnter = MaskEdit_rz_enEnter
OnExit = MaskEdit_rz_enExit
end
object DateTimePicker1: TDateTimePicker
Left = 160
Top = 16
Width = 23
Height = 24
CalAlignment = dtaLeft
Date = 36879.5345609954
Time = 36879.5345609954
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 1
OnChange = DateTimePicker1Change
end
object DateTimePicker2: TDateTimePicker
Left = 160
Top = 55
Width = 23
Height = 20
CalAlignment = dtaLeft
Date = 36879.5466332176
Time = 36879.5466332176
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
OnChange = DateTimePicker2Change
end
end
object GroupBox1: TGroupBox
Left = 208
Top = 4
Width = 577
Height = 41
Caption = '药品选择'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Edit_ypsrm: TEdit
Left = 96
Top = 13
Width = 121
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnEnter = Edit_ypsrmEnter
OnKeyPress = Edit_ypsrmKeyPress
end
object CheckBox_ypid: TCheckBox
Left = 16
Top = 16
Width = 81
Height = 17
Caption = '选某品种'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = CheckBox_ypidClick
end
object Edit1: TEdit
Left = 218
Top = 13
Width = 73
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object Edit2: TEdit
Left = 292
Top = 13
Width = 143
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object Edit3: TEdit
Left = 436
Top = 13
Width = 100
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object Edit4: TEdit
Left = 537
Top = 13
Width = 32
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
end
end
object GroupBox2: TGroupBox
Left = 208
Top = 48
Width = 577
Height = 41
Caption = '供货单位选择'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object CheckBox_corpid: TCheckBox
Left = 16
Top = 16
Width = 81
Height = 17
Caption = '选某单位'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = CheckBox_corpidClick
end
object Edit_dwsrm: TEdit
Left = 96
Top = 12
Width = 121
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnEnter = Edit_dwsrmEnter
OnKeyPress = Edit_dwsrmKeyPress
end
object Edit5: TEdit
Left = 218
Top = 12
Width = 73
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object Edit6: TEdit
Left = 292
Top = 12
Width = 277
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
end
end
object Panel2: TPanel
Left = 0
Top = 402
Width = 796
Height = 38
Align = alBottom
TabOrder = 1
object Button1: TButton
Left = 8
Top = 6
Width = 75
Height = 25
Caption = '查询'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
end
object Panel14: TPanel
Left = 0
Top = 97
Width = 796
Height = 305
Align = alClient
Caption = 'Panel14'
TabOrder = 2
object Panel3: TPanel
Left = 1
Top = 153
Width = 794
Height = 151
Align = alClient
TabOrder = 0
object PageControl1: TPageControl
Left = 1
Top = 1
Width = 792
Height = 149
ActivePage = TabSheet6
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '相关入库情况'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
object Panel5: TPanel
Left = 0
Top = 0
Width = 784
Height = 122
Align = alClient
TabOrder = 0
object DBGrid4: TDBGrid
Left = 1
Top = 1
Width = 782
Height = 120
Align = alClient
Color = clInfoBk
DataSource = DS_dkrk
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -