| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515 | object tpMainForm: TtpMainForm  Left = 462  Top = 202  Width = 1104  Height = 675  ActiveControl = zgNoPeg  BorderIcons = [biSystemMenu]  Caption = #26631#27573#21010#20998  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  Position = poMainFormCenter  PixelsPerInch = 96  TextHeight = 13  object jtsMainDatas: TJimTabSet    Left = 0    Top = 26    Width = 1096    Height = 21    Align = alTop    BackgroundColor = clGradientInactiveCaption    Font.Charset = ANSI_CHARSET    Font.Color = clWindowText    Font.Height = -12    Font.Name = #23435#20307    Font.Style = []    StartMargin = 0    SelectedColor = clWhite    XPSelectedColor = clWhite    XPUnSelectedColor = 15200496    Tabs.Strings = (      #22522#30784#20449#24687      #26729#21495#35797#31639      #26631#27573#21010#20998)    TabIndex = 0    TabPosition = jtpTop    TabStyle = tdsNew    UnselectedColor = 15200496    OnChange = jtsMainDatasChange  end  object jpsMain: TJimPages    Left = 0    Top = 47    Width = 1096    Height = 594    ActivePage = jpsMainBaseTender    ActivePageIndex = 0    Align = alClient    Caption = 'jpsMain'    object jpsMainBaseTender: TJimPage      Left = 0      Top = 0      Width = 1096      Height = 594      TabName = 'BaseTender'      Caption = 'BaseTender'      object labGatherResult: TJimGradLabel        Left = 0        Top = 574        Width = 1096        Height = 20        Align = alBottom        AutoSize = False        ColorBegin = clGradientInactiveCaption        ColorEnd = clGradientInactiveCaption        Caption = ' '#27719#24635#21518#65292#20849#21547#26729#21495#33410#28857'%d'#20010#65292#36215#28857#26729#21495#20026'%s'#65292#32456#28857#26729#21495#20026'%s'        Font.Charset = GB2312_CHARSET        Font.Color = clWindowText        Font.Height = -12        Font.Name = #23435#20307        Font.Style = [fsBold]        ParentFont = False        Layout = tlCenter      end      object sprNoPegData: TSplitter        Left = 390        Top = 0        Height = 574      end      object pnlNoPegData: TPanel        Left = 393        Top = 0        Width = 703        Height = 574        Align = alClient        BevelOuter = bvNone        TabOrder = 0        object labNoPegData: TJimGradLabel          Left = 0          Top = 0          Width = 703          Height = 20          Align = alTop          AutoSize = False          ColorBegin = clGradientInactiveCaption          ColorEnd = clGradientInactiveCaption          Caption = ' '#26080#26729#21495#25968#25454          Font.Charset = GB2312_CHARSET          Font.Color = clWindowText          Font.Height = -12          Font.Name = #23435#20307          Font.Style = [fsBold]          ParentFont = False          Layout = tlCenter        end        object zgNoPeg: TZJGrid          Left = 0          Top = 20          Width = 703          Height = 554          Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]          OptionsEx = []          ColCount = 8          ShowGridLine = False          DefaultColWidth = 73          DefaultFixedColWidth = 25          Selection.AlphaBlend = False          Selection.TransparentColor = False          FrozenCol = 0          FrozenRow = 0          Align = alClient        end      end      object pnlGatherTenders: TPanel        Left = 0        Top = 0        Width = 390        Height = 574        Align = alLeft        BevelOuter = bvNone        TabOrder = 1        object labGatherTenders: TJimGradLabel          Left = 0          Top = 0          Width = 390          Height = 20          Align = alTop          AutoSize = False          ColorBegin = clGradientInactiveCaption          ColorEnd = clGradientInactiveCaption          Caption = ' '#21442#19982#27719#24635#39033#30446          Font.Charset = GB2312_CHARSET          Font.Color = clWindowText          Font.Height = -12          Font.Name = #23435#20307          Font.Style = [fsBold]          ParentFont = False          Layout = tlCenter        end        object zgSelectTenders: TZJGrid          Left = 0          Top = 20          Width = 401          Height = 554          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          Align = alLeft        end      end    end    object jpsMainTrial: TJimPage      Left = 0      Top = 0      Width = 1096      Height = 594      TabName = 'Trial'      Caption = 'Result'    end    object jpsMainPart: TJimPage      Left = 0      Top = 0      Width = 1096      Height = 594      TabName = 'Part'      Caption = 'Part'    end  end  object dxBarManager: TdxBarManager    Font.Charset = DEFAULT_CHARSET    Font.Color = clWindowText    Font.Height = -12    Font.Name = #23435#20307    Font.Style = []    Bars = <      item        AllowCustomizing = False        AllowQuickCustomizing = False        Caption = #33756#21333        DockedDockingStyle = dsTop        DockedLeft = 0        DockedTop = 0        DockingStyle = dsTop        FloatLeft = 484        FloatTop = 279        FloatClientWidth = 65        FloatClientHeight = 92        IsMainMenu = True        ItemLinks = <          item            Item = dxsiPart            Visible = True          end          item            Item = dxbtnTrial            Visible = True          end          item            Item = dxbtnReGather            Visible = True          end>        MultiLine = True        Name = #33756#21333        OneOnRow = True        Row = 0        UseOwnFont = False        Visible = True        WholeRow = True      end      item        BorderStyle = bbsNone        Caption = #35828#26126        DockedDockingStyle = dsTop        DockedLeft = 0        DockedTop = 26        DockingStyle = dsTop        FloatLeft = 724        FloatTop = 369        FloatClientWidth = 23        FloatClientHeight = 22        ItemLinks = <>        Name = #35828#26126        OneOnRow = True        Row = 1        ShowMark = False        UseOwnFont = False        Visible = False        WholeRow = False      end>    CanCustomize = False    Categories.Strings = (      #40664#35748)    Categories.ItemsVisibles = (      2)    Categories.Visibles = (      True)    PopupMenuLinks = <>    Style = bmsOffice11    UseSystemFont = True    Left = 192    Top = 120    DockControlHeights = (      0      0      26      0)    object dxsiPart: TdxBarSubItem      Caption = #26631#27573#21010#20998      Category = 0      Visible = ivAlways      ItemLinks = <        item          Item = dxbtnPartByLength          Visible = True        end        item          Item = dxbtnPartByPrice          Visible = True        end>    end    object dxbtnTrial: TdxBarButton      Caption = #26729#21495#35797#31639      Category = 0      Visible = ivAlways      OnClick = dxbtnTrialClick    end    object dxbtnPartByLength: TdxBarButton      Caption = #36317#31163#27169#24335      Category = 0      Hint = #36317#31163#27169#24335      Visible = ivAlways      OnClick = dxbtnPartByLengthClick    end    object dxbtnPartByPrice: TdxBarButton      Caption = #37329#39069#27169#24335      Category = 0      Hint = #37329#39069#27169#24335      Visible = ivAlways      OnClick = dxbtnPartByPriceClick    end    object dxbtnReGather: TdxBarButton      Caption = #20999#25442#27719#24635#39033#30446      Category = 0      Hint = #20999#25442#27719#24635#39033#30446      Visible = ivNever      OnClick = dxbtnReGatherClick    end    object dxbtnGatherGclBills: TdxBarButton      Caption = #27719#24635#24037#31243#37327#28165#21333      Category = 0      Hint = #27719#24635#20840#37096#26729#21495#33410#28857#19979#30340#24037#31243#37327#28165#21333      Visible = ivAlways    end  end  object saSelectTenders: TsdGridDBA    Columns = <      item        Title.Caption = #26631#27573#21517#31216        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 = 'Name'        Width = 200        ReadOnly = True      end      item        Title.Caption = #37329#39069        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 = taRightJustify        Font.Charset = GB2312_CHARSET        Font.Color = clWindowText        Font.Height = -12        Font.Name = #23435#20307        Font.Style = []        FieldName = 'TotalPrice'        Width = 80        ReadOnly = False      end      item        Title.Caption = #28165#21333#34892#25968        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 = taRightJustify        Font.Charset = GB2312_CHARSET        Font.Color = clWindowText        Font.Height = -12        Font.Name = #23435#20307        Font.Style = []        FieldName = 'NodeCount'        Width = 60        ReadOnly = False      end>    Grid = zgSelectTenders    ExtendRowCount = 3    Options = []    Left = 192    Top = 222  end  object staNoPeg: TsdGridTreeDBA    Columns = <      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 = 'Code'        Width = 120        ReadOnly = True      end      item        Title.Caption = #28165#21333#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 = 'B_Code'        Width = 80        ReadOnly = True      end      item        Title.Caption = #21517#31216        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 = 'Name'        Width = 200        ReadOnly = True      end      item        Title.Caption = #21333#20301        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 = taCenter        Font.Charset = GB2312_CHARSET        Font.Color = clWindowText        Font.Height = -12        Font.Name = #23435#20307        Font.Style = []        FieldName = 'Units'        Width = 45        ReadOnly = True      end      item        Title.Caption = #21333#20215        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 = taRightJustify        Font.Charset = GB2312_CHARSET        Font.Color = clWindowText        Font.Height = -12        Font.Name = #23435#20307        Font.Style = []        FieldName = 'Price'        Width = 60        ReadOnly = True      end      item        Title.Caption = #25968#37327        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 = taRightJustify        Font.Charset = GB2312_CHARSET        Font.Color = clWindowText        Font.Height = -12        Font.Name = #23435#20307        Font.Style = []        FieldName = 'Quantity'        Width = 60        ReadOnly = True      end      item        Title.Caption = #37329#39069        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 = taRightJustify        Font.Charset = GB2312_CHARSET        Font.Color = clWindowText        Font.Height = -12        Font.Name = #23435#20307        Font.Style = []        FieldName = 'TotalPrice'        Width = 60        ReadOnly = True      end>    Grid = zgNoPeg    ExtendRowCount = 0    Options = []    AutoExpand = False    TreeOptions = []    TopLevelBold = True    Left = 548    Top = 227  endend
 |