📄 orderitem.dfm
字号:
object frmOrderItem: TfrmOrderItem
Left = -2
Top = 0
Width = 803
Height = 602
BorderIcons = [biSystemMenu, biMaximize]
Caption = '医嘱处理'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDesktopCenter
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object OrderStatusBar: TfcStatusBar
Left = 0
Top = 536
Width = 795
Height = 20
Panels = <
item
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel0'
Tag = 0
Text = '操作员'
TextOptions.Alignment = taCenter
TextOptions.ShadeColor = clActiveBorder
TextOptions.Style = fclsRaised
TextOptions.VAlignment = vaVCenter
Width = '70'
end
item
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel1'
Tag = 0
TextOptions.Alignment = taCenter
TextOptions.ShadeColor = clInfoBk
TextOptions.Style = fclsRaised
TextOptions.VAlignment = vaVCenter
Width = '100'
end
item
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel2'
Style = psHint
Tag = 0
TextOptions.Alignment = taLeftJustify
TextOptions.VAlignment = vaVCenter
Width = '270'
end
item
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel5'
Tag = 0
Text = '录入员'
TextOptions.Alignment = taCenter
TextOptions.VAlignment = vaVCenter
Width = '50'
end
item
Component = DBText8
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel6'
Style = psControl
Tag = 0
TextOptions.Alignment = taRightJustify
TextOptions.VAlignment = vaVCenter
Width = '50'
end
item
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel7'
Tag = 0
Text = '确认人'
TextOptions.Alignment = taCenter
TextOptions.VAlignment = vaVCenter
Width = '50'
end
item
Component = DBText9
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel8'
Style = psControl
Tag = 0
TextOptions.Alignment = taRightJustify
TextOptions.VAlignment = vaVCenter
Width = '50'
end
item
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Name = 'Panel3'
Tag = 0
TextOptions.Alignment = taCenter
TextOptions.VAlignment = vaVCenter
Width = '60'
end
item
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'System'
Font.Style = [fsBold]
Name = 'Panel4'
Style = psDate
Tag = 0
Text = '2001-10-21'
TextOptions.Alignment = taCenter
TextOptions.VAlignment = vaVCenter
Width = '60'
end>
SimplePanel = False
StatusBarText.CapsLock = 'Caps'
StatusBarText.Overwrite = 'Overwrite'
StatusBarText.NumLock = 'Num'
StatusBarText.ScrollLock = 'Scroll'
object DBText8: TDBText
Left = 493
Top = 3
Width = 46
Height = 16
Alignment = taCenter
DataField = 'OPERATOR'
DataSource = DM.srcOrderItem
end
object DBText9: TDBText
Left = 593
Top = 3
Width = 46
Height = 16
Alignment = taCenter
DataField = 'CONFIRMOP'
DataSource = DM.srcOrderItem
end
end
object ControlBar1: TControlBar
Left = 0
Top = 0
Width = 795
Height = 28
Align = alTop
AutoSize = True
BevelInner = bvNone
BevelOuter = bvSpace
TabOrder = 1
object ToolPannel: TPanel
Left = 11
Top = 2
Width = 780
Height = 22
Align = alClient
Alignment = taLeftJustify
BevelOuter = bvNone
UseDockManager = False
TabOrder = 0
object btnRowSelect: TSpeedButton
Left = 340
Top = 0
Width = 81
Height = 22
AllowAllUp = True
GroupIndex = 2
Caption = '多选'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F773333333333330033333333333333773333333333333}
NumGlyphs = 2
OnClick = btnRowSelectClick
end
object btnStopOrder: TSpeedButton
Left = 421
Top = 0
Width = 81
Height = 22
Action = StopOrderActive
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object btnAtonce: TSpeedButton
Left = 169
Top = 0
Width = 81
Height = 22
Action = EmergencyAction
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
000037777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF7777BBF
FFF07F333777777F3FF70FFFFFFFB9BF1CC07F3FFF337F7377770F777FFFB99B
C1C07F7773337F377F370FFFFFFFB9BBC1C07FFFFFFF7F337FF700000077B999
B000777777777F33777733337377B9999B33333F733373F337FF3377377B99BB
9BB33377F337F377377F3737377B9B79B9B737F73337F7F7F37F33733777BB7B
BBB73373333377F37F3737333777BB777B9B3733333377F337F7333333777B77
77BB3333333337333377333333333777337B3333333333333337}
NumGlyphs = 2
end
object Bevel2: TBevel
Left = 334
Top = 1
Width = 3
Height = 20
end
object btnConfirm: TSpeedButton
Left = 88
Top = 0
Width = 81
Height = 22
Action = ConfirmAction
Caption = '核对确认'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object btnRecall: TSpeedButton
Left = 250
Top = 0
Width = 81
Height = 22
Caption = '医嘱召回'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
OnClick = btnRecallClick
end
object btnCheckOrder: TSpeedButton
Left = 3
Top = 0
Width = 85
Height = 22
Caption = '完整性检查'
Enabled = False
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object Bevel1: TBevel
Left = 585
Top = 2
Width = 3
Height = 20
end
object btnPayBill: TSpeedButton
Left = 590
Top = 0
Width = 81
Height = 22
AllowAllUp = True
GroupIndex = 5
Caption = '账单录入'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFF5555555000000005555555577777777FF555550999999900
55555575555555775F55509999999901055557F55555557F75F5001111111101
105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F
01105777F555557F7FF75500FFFFFF0F00105577F555FF7F77575550FF70000F
0F0055575FF777757F775555000FFFFF0F005555777555FF7F77555550FF7000
0F055555575FF777757F555555000FFFFF05555555777555FF7F55555550FF70
0005555555575FF7777555555555000555555555555577755555555555555555
5555555555555555555555555555555555555555555555555555}
NumGlyphs = 2
OnClick = btnPayBillClick
end
object btnOrderCancel: TSpeedButton
Left = 502
Top = 0
Width = 81
Height = 22
Action = CancelOrderAction
Caption = '取消医嘱'
Flat = True
Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7CEF3DEF3DEF3DEF3DEF3DEF3DEF3D1F7CEF3D1F7C1F7C007C007C
007C1F7CEF3D1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E03D
00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C1F7CE07FE07F
00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FE07F0000000000000000
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -