123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306 |
- object ZJJLFrame: TZJJLFrame
- Left = 0
- Top = 0
- Width = 390
- Height = 517
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object labTitle: TJimGradLabel
- Left = 0
- Top = 0
- Width = 390
- Height = 20
- Align = alTop
- AutoSize = False
- ColorBegin = clGradientInactiveCaption
- ColorEnd = clGradientInactiveCaption
- Caption = ' '#20013#38388#35745#37327
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Layout = tlCenter
- end
- object pnlTop: TPanel
- Left = 0
- Top = 20
- Width = 390
- Height = 27
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object pnlButton: TPanel
- Left = 0
- Top = 0
- Width = 81
- Height = 27
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object tobaTop: TToolBar
- Left = 0
- Top = 0
- Width = 81
- Height = 22
- AutoSize = True
- ButtonWidth = 75
- Caption = 'tobaTop'
- EdgeInner = esNone
- EdgeOuter = esNone
- Flat = True
- Images = MainForm.Images
- List = True
- ShowCaptions = True
- TabOrder = 0
- object tobtnGenerate: TToolButton
- Left = 0
- Top = 0
- Action = actnGenerate
- end
- end
- end
- object lePreText: TLabeledEdit
- Left = 152
- Top = 3
- Width = 58
- Height = 18
- Ctl3D = False
- EditLabel.Width = 66
- EditLabel.Height = 12
- EditLabel.Caption = #34920#21495#21069#32512#65306' '
- LabelPosition = lpLeft
- ParentCtl3D = False
- TabOrder = 1
- OnExit = lePreTextExit
- end
- end
- object pnlZJJL: TPanel
- Left = 0
- Top = 47
- Width = 390
- Height = 190
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object zgZJJL: TZJGrid
- Left = 0
- Top = 18
- Width = 390
- Height = 172
- Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
- OptionsEx = []
- ColCount = 4
- ShowGridLine = False
- DefaultColWidth = 73
- DefaultFixedColWidth = 25
- Selection.AlphaBlend = False
- Selection.TransparentColor = False
- FrozenCol = 0
- FrozenRow = 0
- OnMouseDown = zgZJJLMouseDown
- Align = alClient
- end
- object pnlListTitle: TPanel
- Left = 0
- Top = 0
- Width = 390
- Height = 18
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- DesignSize = (
- 390
- 18)
- object lblListTitle: TLabel
- Left = 6
- Top = 3
- Width = 84
- Height = 12
- Caption = #20013#38388#35745#37327#34920#21015#34920
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object pnlListBar: TPanel
- Left = 95
- Top = 8
- Width = 287
- Height = 2
- Anchors = [akLeft, akTop, akRight]
- BevelOuter = bvLowered
- TabOrder = 0
- end
- end
- end
- object pnlZJJLProperty: TPanel
- Left = 0
- Top = 237
- Width = 390
- Height = 280
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object pnlDataTitle: TPanel
- Left = 0
- Top = 0
- Width = 390
- Height = 22
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 390
- 22)
- object lblDataTiel: TLabel
- Left = 5
- Top = 5
- Width = 84
- Height = 12
- Caption = #20013#38388#35745#37327#34920#25968#25454
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- end
- object pnlDataBar: TPanel
- Left = 94
- Top = 10
- Width = 287
- Height = 2
- Anchors = [akLeft, akTop, akRight]
- BevelOuter = bvLowered
- TabOrder = 0
- end
- end
- end
- object alBGL: TActionList
- Images = MainForm.Images
- Left = 200
- Top = 160
- object actnGenerate: TAction
- Caption = #33258#21160#29983#25104
- ImageIndex = 32
- OnExecute = actnGenerateExecute
- OnUpdate = actnGenerateUpdate
- end
- object actnLocateBills: TAction
- Caption = #23450#20301#33267#21488#36134
- OnExecute = actnLocateBillsExecute
- OnUpdate = actnLocateBillsUpdate
- end
- object actnGenerateFxZJJL: TAction
- Caption = '0'#21495#21488#36134#26684#24335
- ImageIndex = 32
- OnExecute = actnGenerateFxZJJLExecute
- end
- object actnGenerateGclZJJL: TAction
- Caption = #24635#37327#25511#21046#26684#24335
- ImageIndex = 32
- OnExecute = actnGenerateGclZJJLExecute
- end
- end
- object zaZJJL: TZjGridDBA
- Columns = <
- item
- Title.Caption = #20013#38388#35745#37327#34920#21495
- Title.CaptionAcrossCols = '1'
- Title.Font.Charset = GB2312_CHARSET
- Title.Font.Color = clWindowText
- Title.Font.Height = -12
- Title.Font.Name = #23435#20307
- Title.Font.Style = []
- Alignment = taLeftJustify
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FieldName = 'Code'
- ReadOnly = False
- end
- item
- Title.Caption = #20132#24037#35777#20070'/'#20973#35777#21495
- Title.CaptionAcrossCols = '1'
- Title.Font.Charset = GB2312_CHARSET
- Title.Font.Color = clWindowText
- Title.Font.Height = -12
- Title.Font.Name = #23435#20307
- Title.Font.Style = []
- Alignment = taLeftJustify
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FieldName = 'CertificateCode'
- ReadOnly = False
- end
- item
- Title.Caption = #39033#30446#33410#32534#21495
- Title.CaptionAcrossCols = '1'
- Title.Font.Charset = GB2312_CHARSET
- Title.Font.Color = clWindowText
- Title.Font.Height = -12
- Title.Font.Name = #23435#20307
- Title.Font.Style = []
- Alignment = taLeftJustify
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FieldName = 'BillsCode'
- ReadOnly = True
- end>
- Grid = zgZJJL
- ExtendRowCount = 0
- Options = [aoAllowEdit, aoAllowDelete]
- Left = 152
- Top = 160
- end
- object dxpmZJJL: TdxBarPopupMenu
- BarManager = MainForm.dxBarManager
- ItemLinks = <
- item
- Item = MainForm.dxbtnLocateBills
- Visible = True
- end
- item
- BeginGroup = True
- Item = MainForm.dxbtnDelete
- Visible = True
- end>
- UseOwnFont = False
- OnPopup = dxpmZJJLPopup
- Left = 104
- Top = 160
- end
- object dxpmAutoGenerate: TdxBarPopupMenu
- BarManager = MainForm.dxBarManager
- ItemLinks = <
- item
- Item = MainForm.dxbtnFxZJJL
- Visible = True
- end
- item
- Item = MainForm.dxbtnGclZJJL
- Visible = True
- end>
- UseOwnFont = False
- OnPopup = dxpmAutoGeneratePopup
- Left = 104
- Top = 200
- end
- end
|