📄 orderitem.dfm
字号:
00001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FE07F0000E07FFF7F0000FF7F
00001F7C1F7C1F7C1F7C1F7C1F7C0000FF7FE07FFF7FE07FFF7F0000FF7FE07F
00001F7C1F7C1F7C1F7C1F7C1F7C0000E07FFF7FE07FFF7F0000FF7FE07F0000
00001F7C1F7C1F7C1F7C1F7C00000000FF7FE07FFF7FE07FFF7FE07F0000E07F
00001F7C1F7C1F7C1F7C0000FF030000E07FFF7FE07FFF7FE07F00000000E07F
00001F7C1F7C1F7C0000FF03FF03FF030000E07FFF7FE07F0000E07F0000E07F
00001F7C1F7C000000000000FF03FF03FF030000E07FFF7FE07FFF7F0000E07F
00001F7C1F7C0000000000000000FF03FF03FF0300000000000000000000E07F
00001F7C1F7C00000000000000000000FF0300001F7C1F7C1F7C1F7C0000F75E
00001F7C1F7C1F7C000000000000000000001F7C1F7C1F7C1F7C1F7C1F7C0000
1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
1F7C1F7C1F7C}
end
object btnRecipe: TSpeedButton
Left = 671
Top = 0
Width = 81
Height = 22
AllowAllUp = True
GroupIndex = 10
Caption = '处方录入'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
3333333373FF7333333333333000333333333333377733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = btnRecipeClick
end
end
end
object pcFeeSelected: TPageControl
Left = 0
Top = 53
Width = 795
Height = 341
ActivePage = ts_OrdreItem
Align = alClient
TabOrder = 2
object ts_OrdreItem: TTabSheet
Caption = 'ts_OrdreItem'
TabVisible = False
object gridOrderItem: TwwDBGrid
Left = 0
Top = 0
Width = 787
Height = 331
Selected.Strings = (
'STARTTIME'#9'22'#9'开始时间'#9'F'
'KINDID'#9'3'#9'配'#9'F'
'ITEMID'#9'8'#9'代号'#9'F'
'ITEMNAME'#9'23'#9'名称'#9'F'
'DOSAGE'#9'6'#9'用量'#9'F'
'DOSUNIT1'#9'4'#9'单位'#9'F'
'USAGENAME'#9'7'#9'用法'#9'F'
'USETIMESNAME'#9'6'#9'次数'#9'F'
'EXCUPLACENAME'#9'8'#9'地点'#9'F'
'OPENDOCNAME'#9'10'#9'开立医生'#9'F'
'ENDTIME'#9'21'#9'停止时间'#9'F')
IniAttributes.Delimiter = ';;'
TitleColor = 12698111
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
Color = clWhite
Ctl3D = True
DataSource = DM.srcOrderItem
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
MultiSelectOptions = [msoAutoUnselect, msoShiftSelect]
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgWordWrap]
ParentCtl3D = False
ParentFont = False
PopupMenu = ppMenuOrderItem
TabOrder = 0
TitleAlignment = taCenter
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
OnCalcCellColors = gridOrderItemCalcCellColors
OnColEnter = gridOrderItemColEnter
OnExit = gridOrderItemExit
OnKeyDown = gridOrderItemKeyDown
IndicatorColor = icYellow
end
object edStartTime: TwwDBSpinEdit
Left = 56
Top = 85
Width = 25
Height = 20
Increment = 1
TabOrder = 1
UnboundDataType = wwEdtDateTime
end
object edEndTime: TwwDBSpinEdit
Left = 56
Top = 109
Width = 25
Height = 20
Increment = 1
TabOrder = 2
UnboundDataType = wwEdtDateTime
end
object lookupUsageID: TwwDBLookupCombo
Left = 56
Top = 139
Width = 20
Height = 20
DropDownAlignment = taLeftJustify
Selected.Strings = (
'USAGEID'#9'4'#9'USAGEID'#9'F'
'NAME'#9'12'#9'NAME'#9'F')
LookupTable = DM.Usage
LookupField = 'usageid'
Options = [loColLines, loRowLines]
TabOrder = 3
AutoDropDown = True
ShowButton = True
AllowClearKey = True
ShowMatchText = True
OnNotInList = lookupItemIDNotInList
end
object lookupUseTimes: TwwDBLookupCombo
Left = 56
Top = 171
Width = 20
Height = 20
DropDownAlignment = taLeftJustify
Selected.Strings = (
'FREQID'#9'10'#9'FREQID'#9'F'
'NAME'#9'10'#9'NAME'#9'F')
LookupTable = DM.Frequency
LookupField = 'FREQID'
Options = [loColLines, loRowLines]
TabOrder = 4
AutoDropDown = True
ShowButton = True
AllowClearKey = True
ShowMatchText = True
OnNotInList = lookupItemIDNotInList
end
object LookupExcutePos: TwwDBLookupCombo
Left = 56
Top = 192
Width = 25
Height = 20
DropDownAlignment = taLeftJustify
Selected.Strings = (
'EXCUPLACE'#9'4'#9'EXCUPLACE'#9'F'
'NAME'#9'10'#9'NAME'#9'F')
LookupTable = DM.tblExcutepos
LookupField = 'EXCUPLACE'
Options = [loColLines, loRowLines]
TabOrder = 5
AutoDropDown = True
ShowButton = True
AllowClearKey = False
OnNotInList = lookupItemIDNotInList
end
object lookupItemID: TwwDBLookupCombo
Left = 54
Top = 56
Width = 27
Height = 20
DropDownAlignment = taLeftJustify
Selected.Strings = (
'COSTID'#9'6'#9'项目号'
'CNAME'#9'20'#9'中文名'
'ENAME'#9'20'#9'英文名'
'SPEC'#9'16'#9'规格'
'PRICE'#9'10'#9'单价'
'MADEIN'#9'16'#9'产地'#9'F')
LookupTable = DM.qryOrderCost
LookupField = 'COSTID'
Options = [loColLines, loRowLines, loTitles]
Style = csDropDownList
MaxLength = 8
TabOrder = 6
AutoDropDown = True
ShowButton = True
UseTFields = False
AllowClearKey = True
ShowMatchText = True
OnNotInList = lookupItemIDNotInList
end
object LookUpOpenDoc: TwwDBLookupCombo
Left = 56
Top = 216
Width = 25
Height = 20
DropDownAlignment = taLeftJustify
Selected.Strings = (
'DOCTORNO'#9'4'#9'DOCTORNO'#9'F'
'DOCTORNM'#9'10'#9'DOCTORNM'#9'F')
LookupTable = DM.tblDoctor
LookupField = 'DOCTORNO'
Options = [loColLines, loRowLines]
TabOrder = 7
AutoDropDown = True
ShowButton = True
AllowClearKey = True
OnNotInList = lookupItemIDNotInList
end
end
object ts_PayBill: TTabSheet
Caption = 'ts_PayBill'
ImageIndex = 1
TabVisible = False
object Panel2: TPanel
Left = 0
Top = 0
Width = 787
Height = 27
Align = alTop
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
object Label18: TLabel
Left = 13
Top = 7
Width = 54
Height = 12
Caption = '费用日期:'
end
object dtp_CostDate: TDateTimePicker
Left = 73
Top = 3
Width = 127
Height = 20
CalAlignment = dtaLeft
Date = 37104.7610524306
Time = 37104.7610524306
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
OnChange = dtp_CostDateChange
end
end
object gdPayBill: TwwDBGrid
Left = 0
Top = 27
Width = 787
Height = 304
Selected.Strings = (
'COSTDATE'#9'16'#9'费用日期'#9'F'
'ITEMID'#9'10'#9'项目代码'#9'F'
'ITEMNAME'#9'30'#9'项目名称'#9'F'
'SPEC'#9'16'#9'规格'#9'F'
'QTY'#9'11'#9'数量'#9'F'
'USEUNIT'#9'5'#9'单位'#9'F'
'I_PRICE'#9'10'#9'单价'#9'F'
'ATM'#9'13'#9'小计'#9'F')
IniAttributes.Delimiter = ';;'
TitleColor = 11235932
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
DataSource = DM.srcOtherBill
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
ParentFont = False
PopupMenu = ppMenuOrderItem
TabOrder = 1
TitleAlignment = taCenter
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWhite
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
OnCalcCellColors = gdPayBillCalcCellColors
OnKeyDown = gdPayBillKeyDown
IndicatorColor = icBlack
end
object spCostDate: TwwDBSpinEdit
Left = 112
Top = 96
Width = 121
Height = 20
Increment = 1
TabOrder = 2
UnboundDataType = wwDefault
end
end
object tsRecipe: TTabSheet
Caption = '处方录入'
ImageIndex = 2
TabVisible = False
object Splitter1: TSplitter
Left = 153
Top = 0
Width = 3
Height = 331
Cursor = crHSplit
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 153
Height = 331
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 0
object StaticText1: TStaticText
Left = 0
Top = 0
Width = 76
Height = 16
Align = alTop
Alignment = taCenter
BorderStyle = sbsSunken
Caption = '历史处方列表'
Color = 16770250
ParentColor = False
TabOrder = 0
end
object wwDBGrid1: TwwDBGrid
Left = 0
Top = 16
Width = 153
Height = 315
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
Color = 15532031
TabOrder = 1
TitleAlignment = taLeftJustify
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
IndicatorColor = icBlack
end
end
object Panel4: TPanel
Left = 156
Top = 0
Width = 631
Height = 331
Align = alClient
BevelOuter = bvNone
Caption = 'Panel4'
TabOrder = 1
object StaticText2: TStaticText
Left = 0
Top = 0
Width = 631
Height = 16
Align = alTop
Alignment = taCenter
BorderStyle = sbsSingle
Caption = '处方明细'
Color = 15790305
ParentColor = False
TabOrder = 0
end
object Panel5: TPanel
Left = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -