📄 xyzyzjinquerym.~dfm
字号:
object XyZyZjInQuery: TXyZyZjInQuery
Left = 136
Top = 44
Width = 638
Height = 383
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
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel4: TPanel
Left = 357
Top = 60
Width = 273
Height = 296
Align = alRight
BevelInner = bvLowered
BorderStyle = bsSingle
Caption = 'Panel3'
TabOrder = 3
object DBGrid2: TDBGrid
Left = 2
Top = 2
Width = 265
Height = 288
Align = alClient
DataSource = ZjSource
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
Expanded = False
FieldName = 'in_date'
Title.Caption = '时间'
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'ls_price'
Title.Caption = '售价'
Width = 45
Visible = True
end
item
Expanded = False
FieldName = 'in_amou'
Title.Caption = '数量'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'in_man'
Title.Caption = '零药人'
Width = 43
Visible = True
end
item
Expanded = False
FieldName = 'qr_man'
Title.Caption = '确认人'
Width = 43
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 60
Width = 357
Height = 296
Align = alClient
BevelInner = bvLowered
BorderStyle = bsSingle
Caption = 'Panel3'
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 41
Width = 349
Height = 249
Align = alClient
DataSource = ZjHzSource
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
Expanded = False
FieldName = 'ypname'
Title.Caption = '品名'
Width = 104
Visible = True
end
item
Expanded = False
FieldName = 'ypspec'
Title.Caption = '规格'
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'ypunit'
Title.Caption = '单位'
Visible = True
end
item
Expanded = False
FieldName = 'inamou'
Title.Caption = '数量'
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'inmoney'
Title.Caption = '金额'
Width = 59
Visible = True
end>
end
object Panel7: TPanel
Left = 2
Top = 2
Width = 349
Height = 39
Align = alTop
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
object Button1: TButton
Left = 8
Top = 8
Width = 57
Height = 25
Caption = '查询'
TabOrder = 0
OnClick = Button1Click
end
end
end
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 630
Height = 60
AutoSize = True
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 29
Width = 214
end
item
Break = False
Control = ToolBar3
ImageIndex = -1
Width = 151
end
item
Break = False
Control = ToolBar4
ImageIndex = -1
Width = 257
end
item
Control = ToolBar5
ImageIndex = -1
Width = 626
end>
object ToolBar1: TToolBar
Left = 9
Top = 0
Width = 201
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 ToolBar3: TToolBar
Left = 225
Top = 2
Width = 138
Height = 25
Caption = 'ToolBar3'
Images = ImageList1
TabOrder = 1
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 = 110
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
Width = 77
Height = 21
KeyField = 'yp_classa'
ListField = 'classa_name'
ListSource = YpClassaSource2
TabOrder = 0
end
end
end
object ToolBar5: TToolBar
Left = 9
Top = 31
Width = 613
Height = 25
Caption = 'ToolBar3'
Images = ImageList1
TabOrder = 2
object ToolButton3: TToolButton
Left = 0
Top = 2
Hint = '清除'
Caption = 'ToolButton2'
ImageIndex = 0
ParentShowHint = False
ShowHint = True
OnClick = ToolButton3Click
end
object Panel5: TPanel
Left = 23
Top = 2
Width = 344
Height = 22
Caption = 'Panel5'
TabOrder = 0
object Label7: TLabel
Left = 283
Top = 1
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 Label3: TLabel
Left = 215
Top = 1
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 Label8: TLabel
Left = 84
Top = 1
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 Label6: TLabel
Left = 3
Top = 1
Width = 39
Height = 16
Caption = '输入码'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit4: TEdit
Left = 309
Top = 1
Width = 32
Height = 21
Enabled = False
TabOrder = 0
end
object Edit3: TEdit
Left = 241
Top = 1
Width = 42
Height = 21
Enabled = False
TabOrder = 1
end
object Edit2: TEdit
Left = 110
Top = 1
Width = 105
Height = 21
Enabled = False
TabOrder = 2
end
object Edit1: TEdit
Left = 42
Top = 1
Width = 42
Height = 21
TabOrder = 3
OnKeyPress = Edit1KeyPress
end
object Edit5: TSpinEdit
Left = 354
Top = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -