📄 fmdkysque.~dfm
字号:
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 89
Visible = True
end
item
Expanded = False
FieldName = 'in_man'
Title.Alignment = taCenter
Title.Caption = '领要人'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'out_man'
Title.Alignment = taCenter
Title.Caption = '出库人'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 55
Visible = True
end
item
Expanded = False
FieldName = 'in_date'
Title.Alignment = taCenter
Title.Caption = '出库时间'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 57
Visible = True
end>
end
end
end
object TabSheet6: TTabSheet
Caption = '库存汇总及位置和分类'
ImageIndex = 5
object DBGrid6: TDBGrid
Left = 0
Top = 0
Width = 784
Height = 122
Align = alClient
Color = clInfoBk
DataSource = DS_dkys_sum
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'ypname'
Title.Alignment = taCenter
Title.Caption = '药品名称'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 155
Visible = True
end
item
Expanded = False
FieldName = 'ypspec'
Title.Alignment = taCenter
Title.Caption = '药品规格'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 97
Visible = True
end
item
Expanded = False
FieldName = 'ypunit'
Title.Alignment = taCenter
Title.Caption = '单位'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 27
Visible = True
end
item
Expanded = False
FieldName = 'amou'
Title.Alignment = taCenter
Title.Caption = '库存量'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'kh'
Title.Alignment = taCenter
Title.Caption = '库房号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'jh'
Title.Alignment = taCenter
Title.Caption = '货架号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'jx'
Title.Alignment = taCenter
Title.Caption = '剂型分类'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'yt'
Title.Alignment = taCenter
Title.Caption = '用途分类'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 195
Visible = True
end>
end
end
object TabSheet7: TTabSheet
Caption = '药品消耗统计表'
ImageIndex = 6
object DBGrid7: TDBGrid
Left = 0
Top = 0
Width = 784
Height = 122
Align = alClient
Color = clInfoBk
DataSource = DS_dk_month
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'ypid'
Title.Alignment = taCenter
Title.Caption = '药品编码'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'ypname'
Title.Alignment = taCenter
Title.Caption = '药品名称'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 169
Visible = True
end
item
Expanded = False
FieldName = 'ypspec'
Title.Alignment = taCenter
Title.Caption = '药品规格'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 119
Visible = True
end
item
Expanded = False
FieldName = 'ypunit'
Title.Alignment = taCenter
Title.Caption = '单位'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 30
Visible = True
end
item
Expanded = False
FieldName = 'sl'
Title.Alignment = taCenter
Title.Caption = '消耗量'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'je'
Title.Alignment = taCenter
Title.Caption = '总金额'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 82
Visible = True
end>
end
end
end
object DBGrid1: TDBGrid
Left = 352
Top = 45
Width = 416
Height = 180
Color = clAqua
DataSource = DS_xyid_que_ys
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
OnKeyPress = DBGrid1KeyPress
Columns = <
item
Expanded = False
FieldName = 'yp_id'
Title.Alignment = taCenter
Title.Caption = '药品编码'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'yp_name'
Title.Alignment = taCenter
Title.Caption = '药品名称'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 169
Visible = True
end
item
Expanded = False
FieldName = 'yp_spec'
Title.Alignment = taCenter
Title.Caption = '药品规格'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 113
Visible = True
end
item
Expanded = False
FieldName = 'yp_unit'
Title.Alignment = taCenter
Title.Caption = '单位'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 26
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 352
Top = 64
Width = 416
Height = 177
Color = clAqua
DataSource = DS_xycorp_id_ys
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
OnKeyPress = DBGrid2KeyPress
Columns = <
item
Expanded = False
FieldName = 'corp_id'
Title.Alignment = taCenter
Title.Caption = '购入公司编码'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 89
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -