📄 ufpublish_chmnt.dfm
字号:
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 37
Text = 'dcbxMID'
Visible = False
end
object txtope_ID: TStaticText
Left = 96
Top = 36
Width = 58
Height = 16
Caption = 'txtope_ID'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 38
end
object txtDAte: TStaticText
Left = 328
Top = 36
Width = 46
Height = 16
Caption = 'txtDAte'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 39
end
object txtOpe: TStaticText
Left = 328
Top = 63
Width = 40
Height = 16
Caption = 'txtOpe'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 40
end
object edtBarcode: TEdit
Left = 95
Top = 63
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'edtBarcode'
OnExit = edtBarcodeExit
OnKeyDown = edtBarcodeKeyDown
end
object edtcnname: TEdit
Left = 95
Top = 95
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
Text = 'edtcnname'
OnExit = edtInpExit
OnKeyDown = dedtCnnameKeyDown
end
object edtprice: TEdit
Left = 95
Top = 128
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'edtprice'
OnExit = edtInpExit
OnKeyDown = dedtCnnameKeyDown
end
object edtgetid: TEdit
Left = 95
Top = 261
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
Text = 'edtgetid'
OnKeyDown = dedtCnnameKeyDown
end
object edtope: TEdit
Left = 327
Top = 228
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 12
Text = 'edtope'
OnKeyDown = dedtCnnameKeyDown
end
object edtNote: TEdit
Left = 327
Top = 261
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 13
Text = 'edtNote'
OnKeyDown = edtNoteKeyDown
end
object cbxtype: TComboBox
Left = 95
Top = 160
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 3
Text = 'cbxtype'
OnChange = cbxMNameChange
OnExit = cbxtypeExit
OnKeyDown = dedtCnnameKeyDown
end
object cbxISsale: TComboBox
Left = 95
Top = 294
Width = 120
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 7
Text = 'cbxISsale'
OnChange = cbxMNameChange
OnExit = cbxISsaleExit
OnKeyDown = dedtCnnameKeyDown
Items.Strings = (
#20986#21806
#36864#36135)
end
object chkstatus: TCheckBox
Left = 328
Top = 294
Width = 97
Height = 17
Caption = #26377#25928
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 29
end
end
object Panel2: TPanel
Left = 553
Top = 0
Width = 143
Height = 417
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Splitter1: TSplitter
Left = 0
Top = 0
Height = 417
Color = clMaroon
ParentColor = False
end
object InsertBtn: TBitBtn
Left = 20
Top = 52
Width = 100
Height = 29
Caption = #26032#22686'[&A]'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = InsertBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object SaveBtn: TBitBtn
Left = 20
Top = 108
Width = 100
Height = 29
Caption = #20445#23384'[&S]'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = SaveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
end
object CancelBtn: TBitBtn
Left = 20
Top = 164
Width = 100
Height = 29
Caption = #21462#28040'[&C]'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = CancelBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object SearchBtn: TBitBtn
Left = 20
Top = 212
Width = 100
Height = 29
Caption = #26597#30475#35814#32454#20449#24687
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = SearchBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
end
object QuitBtn: TBitBtn
Left = 19
Top = 259
Width = 100
Height = 30
Caption = #36864#20986'[&Q]'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = QuitBtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
end
end
object Panel3: TPanel
Left = 0
Top = 420
Width = 696
Height = 159
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 696
Height = 159
Align = alClient
DataSource = dsCK
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'OPERATE_ORDER'
Visible = True
end
item
Expanded = False
FieldName = 'BOOK_BARCODE'
Visible = True
end
item
Expanded = False
FieldName = 'CN_NAME'
Visible = True
end
item
Expanded = False
FieldName = 'TYPE'
Visible = True
end
item
Expanded = False
FieldName = 'MEMBER_ID'
Visible = True
end
item
Expanded = False
FieldName = 'CUSTOMER_NAME'
Visible = True
end
item
Expanded = False
FieldName = 'SHOW_PRICE'
Visible = True
end
item
Expanded = False
FieldName = 'DISCOUNT'
Visible = True
end
item
Expanded = False
FieldName = 'PRICE'
Visible = True
end
item
Expanded = False
FieldName = 'QUANTITY'
Visible = True
end
item
Expanded = False
FieldName = 'MONEY'
Visible = True
end
item
Expanded = False
FieldName = 'OPERATE_DATE'
Visible = True
end
item
Expanded = False
FieldName = 'OPERATOR'
Visible = True
end
item
Expanded = False
FieldName = 'HANDLER'
Visible = True
end
item
Expanded = False
FieldName = 'NOTE'
Visible = True
end
item
Expanded = False
FieldName = 'IsSale'
Visible = True
end
item
Expanded = False
FieldName = 'STATUS'
Visible = True
end>
end
end
object dsCK: TDataSource
AutoEdit = False
DataSet = dmpublish.adsChTemp
Left = 576
Top = 432
end
object dsshare: TDataSource
AutoEdit = False
DataSet = dmpublish.adsShare
Left = 240
Top = 336
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -