📄 recipeypquerym.~dfm
字号:
object RecipeYpQueryF: TRecipeYpQueryF
Left = 141
Top = 111
Width = 638
Height = 391
HorzScrollBar.Smooth = True
VertScrollBar.Smooth = True
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
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel3: TPanel
Left = 0
Top = 87
Width = 630
Height = 138
Align = alTop
BevelInner = bvLowered
BorderStyle = bsSingle
Caption = 'Panel3'
TabOrder = 0
object DBGrid4: TDBGrid
Left = 2
Top = 2
Width = 502
Height = 130
Align = alClient
DataSource = RecipeHzSource
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Color = clNone
Expanded = False
FieldName = 'yp_name'
Title.Caption = '药品名称'
Width = 139
Visible = True
end
item
Color = clNone
Expanded = False
FieldName = 'yp_spec'
Title.Caption = '规格'
Width = 85
Visible = True
end
item
Color = clNone
Expanded = False
FieldName = 'yp_unit'
Title.Caption = '单位'
Width = 50
Visible = True
end
item
Color = clNone
Expanded = False
FieldName = 'amou'
Title.Caption = '数量'
Width = 80
Visible = True
end
item
Color = clNone
Expanded = False
FieldName = 'money'
Title.Caption = '金额'
Width = 93
Visible = True
end>
end
object Panel8: TPanel
Left = 504
Top = 2
Width = 120
Height = 130
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Button1: TButton
Left = 15
Top = 16
Width = 57
Height = 25
Caption = '查询'
TabOrder = 0
OnClick = Button1Click
end
end
end
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 630
Height = 87
AutoSize = True
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 29
Width = 208
end
item
Break = False
Control = ToolBar2
ImageIndex = -1
Width = 416
end
item
Control = ToolBar4
ImageIndex = -1
Width = 145
end
item
Break = False
Control = ToolBar3
ImageIndex = -1
Width = 479
end
item
Control = ToolBar5
ImageIndex = -1
Width = 212
end
item
Break = False
Control = ToolBar6
ImageIndex = -1
Width = 412
end>
object ToolBar1: TToolBar
Left = 9
Top = 0
Width = 195
Height = 29
ButtonHeight = 24
ButtonWidth = 24
Caption = 'ToolBar1'
TabOrder = 0
object Panel2: TPanel
Left = 0
Top = 2
Width = 193
Height = 24
TabOrder = 0
object Label4: TLabel
Left = 1
Top = 5
Width = 26
Height = 16
Caption = '开始'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 98
Top = 5
Width = 26
Height = 16
Caption = '结束'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DateTimePicker3: TDateTimePicker
Left = 26
Top = 3
Width = 69
Height = 18
CalAlignment = dtaLeft
Date = 36714
Time = 36714
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object DateTimePicker1: TDateTimePicker
Left = 72
Top = 3
Width = 22
Height = 18
CalAlignment = dtaLeft
Date = 36714
Time = 36714
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
OnChange = DateTimePicker1Change
end
object DateTimePicker4: TDateTimePicker
Left = 123
Top = 3
Width = 67
Height = 18
CalAlignment = dtaLeft
Date = 36714.9999884259
Time = 36714.9999884259
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object DateTimePicker2: TDateTimePicker
Left = 169
Top = 3
Width = 21
Height = 18
CalAlignment = dtaLeft
Date = 36714.9999884259
Time = 36714.9999884259
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
OnChange = DateTimePicker2Change
end
end
end
object ToolBar2: TToolBar
Left = 219
Top = 2
Width = 403
Height = 25
ButtonHeight = 25
ButtonWidth = 22
Caption = 'ToolBar3'
TabOrder = 1
object Panel5: TPanel
Left = 0
Top = 2
Width = 225
Height = 25
TabOrder = 0
object RadioButton1: TRadioButton
Left = 6
Top = 2
Width = 43
Height = 17
Caption = '兰方'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
end
object RadioButton2: TRadioButton
Left = 56
Top = 2
Width = 43
Height = 17
Caption = '红方'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object RadioButton5: TRadioButton
Left = 160
Top = 2
Width = 55
Height = 17
Caption = '值班方'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object RadioButton6: TRadioButton
Left = 106
Top = 2
Width = 43
Height = 17
Caption = '麻方'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
end
object ToolBar3: TToolBar
Left = 156
Top = 31
Width = 466
Height = 25
Caption = 'ToolBar3'
Images = ImageList1
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 2
Hint = '清除'
Caption = 'ToolButton1'
ImageIndex = 0
ParentShowHint = False
ShowHint = True
OnClick = ToolButton1Click
end
object Panel1: TPanel
Left = 23
Top = 2
Width = 108
Height = 22
Caption = 'Panel1'
TabOrder = 0
object Label1: TLabel
Left = 3
Top = 2
Width = 26
Height = 16
Caption = '剂型'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Box1: TDBLookupComboBox
Left = 29
Top = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -