📄 mzdaym.dfm
字号:
object MzDay: TMzDay
Left = 17
Top = 83
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = '值班售药维护'
ClientHeight = 344
ClientWidth = 607
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label30: TLabel
Left = 49
Top = 34
Width = 65
Height = 16
Caption = '查询输入码'
Font.Charset = DEFAULT_CHARSET
Font.Color = clHighlight
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 231
Top = 2
Width = 151
Height = 24
Caption = '值班售药维护'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -24
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Edit2: TEdit
Left = 118
Top = 30
Width = 73
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnKeyPress = Edit2KeyPress
end
object BitBtn4: TBitBtn
Left = 228
Top = 30
Width = 80
Height = 25
Caption = '保存修改'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn4Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 312
Top = 30
Width = 80
Height = 25
Caption = '放弃修改'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn5Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn6: TBitBtn
Left = 429
Top = 30
Width = 129
Height = 25
Caption = '&重新生成值班药品'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BitBtn6Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object Panel2: TPanel
Left = 12
Top = 64
Width = 589
Height = 257
BevelInner = bvLowered
BorderStyle = bsSingle
Caption = 'Panel1'
Color = clInactiveBorder
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
object Panel5: TPanel
Left = 8
Top = 10
Width = 569
Height = 18
TabOrder = 1
object Label1: TLabel
Left = 142
Top = 1
Width = 76
Height = 16
AutoSize = False
Caption = ' 规格'
Color = clBackground
ParentColor = False
end
object Label2: TLabel
Left = 11
Top = 1
Width = 129
Height = 16
AutoSize = False
Caption = ' 药品名称'
Color = clBackground
ParentColor = False
end
object Label8: TLabel
Left = 220
Top = 1
Width = 35
Height = 16
AutoSize = False
Caption = ' 单位'
Color = clBackground
ParentColor = False
end
object Label10: TLabel
Left = 512
Top = 1
Width = 40
Height = 16
AutoSize = False
Caption = '值班卖'
Color = clBackground
ParentColor = False
end
object Label23: TLabel
Left = 311
Top = 1
Width = 95
Height = 17
AutoSize = False
Caption = ' 生产厂'
Color = clBackground
ParentColor = False
end
object Label24: TLabel
Left = 408
Top = 1
Width = 58
Height = 16
AutoSize = False
Caption = ' 零售价'
Color = clBackground
ParentColor = False
end
object Label25: TLabel
Left = 468
Top = 2
Width = 42
Height = 16
AutoSize = False
Caption = ' 库存'
Color = clBackground
ParentColor = False
end
object Label26: TLabel
Left = 257
Top = 1
Width = 53
Height = 16
AutoSize = False
Caption = ' 批号'
Color = clBackground
ParentColor = False
end
end
object DBCtrlGrid2: TDBCtrlGrid
Left = 8
Top = 27
Width = 569
Height = 209
AllowDelete = False
AllowInsert = False
ColCount = 1
DataSource = DataMzf1.XyDaySource
PanelHeight = 19
PanelWidth = 551
ParentShowHint = False
TabOrder = 0
TabStop = False
RowCount = 11
SelectedColor = clHighlight
ShowHint = False
object Panel6: TPanel
Left = 509
Top = -2
Width = 42
Height = 25
BevelOuter = bvLowered
BorderStyle = bsSingle
Color = clHighlightText
TabOrder = 3
object DBCheckBox2: TDBCheckBox
Left = 8
Top = 2
Width = 15
Height = 16
Color = clActiveBorder
DataField = 'firstday_iden'
DataSource = DataMzf1.XyDaySource
ParentColor = False
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnMouseUp = DBCheckBox2MouseUp
end
end
object DBEdit6: TDBEdit
Left = 465
Top = -1
Width = 48
Height = 24
CharCase = ecLowerCase
DataField = 'mz_amou'
DataSource = DataMzf1.XyDaySource
Enabled = False
TabOrder = 7
end
object DBEdit7: TDBEdit
Left = 406
Top = -1
Width = 63
Height = 24
CharCase = ecLowerCase
DataField = 'ls_price'
DataSource = DataMzf1.XyDaySource
Enabled = False
TabOrder = 6
end
object DBEdit8: TDBEdit
Left = 310
Top = -1
Width = 98
Height = 24
CharCase = ecLowerCase
DataField = 'sc_fact'
DataSource = DataMzf1.XyDaySource
Enabled = False
TabOrder = 5
end
object DBEdit14: TDBEdit
Left = 255
Top = -1
Width = 57
Height = 24
CharCase = ecLowerCase
DataField = 'yp_batch'
DataSource = DataMzf1.XyDaySource
Enabled = False
TabOrder = 4
end
object DBEdit15: TDBEdit
Left = 218
Top = -1
Width = 39
Height = 24
CharCase = ecLowerCase
DataField = 'yp_unit'
DataSource = DataMzf1.XyDaySource
Enabled = False
TabOrder = 2
end
object DBEdit16: TDBEdit
Left = 140
Top = -1
Width = 80
Height = 24
CharCase = ecLowerCase
DataField = 'yp_spec'
DataSource = DataMzf1.XyDaySource
Enabled = False
TabOrder = 1
end
object DBEdit17: TDBEdit
Left = 9
Top = -1
Width = 133
Height = 24
CharCase = ecLowerCase
DataField = 'yp_name'
DataSource = DataMzf1.XyDaySource
Enabled = False
TabOrder = 0
end
end
object Panel13: TPanel
Left = 81
Top = 46
Width = 292
Height = 103
TabOrder = 2
Visible = False
OnExit = Panel13Exit
object Label27: TLabel
Left = 4
Top = 3
Width = 131
Height = 13
AutoSize = False
Caption = '药品名称'
Color = clHighlight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label28: TLabel
Left = 136
Top = 3
Width = 87
Height = 13
AutoSize = False
Caption = '规格'
Color = clHighlight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label29: TLabel
Left = 224
Top = 3
Width = 65
Height = 13
AutoSize = False
Caption = '单位'
Color = clHighlight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object ListBox3: TDBLookupListBox
Left = 2
Top = 17
Width = 288
Height = 84
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyField = 'yp_id'
ListField = 'yp_name;yp_spec;yp_unit'
ListSource = DataMzf.YpSource
ParentFont = False
TabOrder = 0
OnKeyPress = ListBox3KeyPress
end
end
end
object ProgressBar2: TProgressBar
Left = 132
Top = 328
Width = 349
Height = 12
Min = 0
Max = 100
TabOrder = 5
Visible = False
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -