quote.dfm

delphi框架可以学习, 写的很好的

        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label42: TLabel
        Left = 216
        Top = 217
        Width = 56
        Height = 14
        Caption = #21046#36896#36153#29992
      end
      object Label43: TLabel
        Left = 401
        Top = 218
        Width = 56
        Height = 14
        Caption = #25216#26415#36153#29992
      end
      object lbBz: TLabel
        Left = 100
        Top = 300
        Width = 56
        Height = 14
        Caption = 'Label28'
        Font.Charset = GB2312_CHARSET
        Font.Color = 30186
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbHcl1: TLabel
        Left = 118
        Top = 244
        Width = 48
        Height = 14
        Caption = 'lbHcl1'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbHcl2: TLabel
        Left = 227
        Top = 244
        Width = 48
        Height = 14
        Caption = 'lbHcl1'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbHcl3: TLabel
        Left = 359
        Top = 244
        Width = 48
        Height = 14
        Caption = 'lbHcl1'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbHcl4: TLabel
        Left = 468
        Top = 244
        Width = 48
        Height = 14
        Caption = 'lbHcl1'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbBcgf: TLabel
        Left = 292
        Top = 218
        Width = 48
        Height = 14
        Caption = 'lbBcgf'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbQtfy: TLabel
        Left = 476
        Top = 218
        Width = 56
        Height = 14
        Caption = 'Label28'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RzPanel9: TRzPanel
        Left = 0
        Top = 0
        Width = 731
        Height = 41
        Align = alTop
        BorderOuter = fsFlatRounded
        BorderSides = [sdTop, sdBottom]
        TabOrder = 0
        UseGradients = True
        object RzLabel8: TRzLabel
          Left = 15
          Top = 14
          Width = 42
          Height = 14
          Caption = #26032#24133#23485
          Transparent = True
        end
        object Label28: TLabel
          Left = 176
          Top = 14
          Width = 56
          Height = 14
          Caption = #25216#26415#36153#29992
          Transparent = True
        end
        object edtNewFk: TRzEdit
          Left = 62
          Top = 10
          Width = 81
          Height = 22
          FrameHotColor = 33023
          FrameHotTrack = True
          FrameVisible = True
          TabOnEnter = True
          TabOrder = 0
        end
        object btnOK: TRzBitBtn
          Left = 328
          Top = 7
          Width = 97
          Height = 28
          Caption = #37325#26032#20272#20215
          HotTrack = True
          TabOrder = 1
          TextStyle = tsRecessed
          OnClick = btnOKClick
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00000000007DB90C0075AC0E0075AC0E000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000007AB40D007DB90C0084C50B007DB90C0075AC
            0E0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00000000007AB40D0071A6100084C50B0084C50B0087C90A0089CD
            090000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00000000007AB40D0071A6100084C50B008CD207007AB40D007DB90C0080BF
            0B0089CD090000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            00007AB40D0071A6100092DB05008CD2070075AC0E000000000080BF0B0084C5
            0B0089CD090000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            00006EA1110098E6030075AC0E006EA1110000000000FFFFFF000000000084C5
            0B0089CD090089CD090000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            0000618D130075AC0E006592120000000000FFFFFF00FFFFFF000000000087C9
            0A008CD2070084C50B0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            00008CD2070092DB050087C90A0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            000090D7060092DB050084C50B0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF000000000096E3040098E6030087C90A0000000000FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF000000000096E304009AEA020084C50B0000000000FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00000000009AEA020092DB050084C50B0000000000FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF000000000092DB05007AB40D0092DB050000000000FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
        end
        object edtQtfy: TRzEdit
          Left = 235
          Top = 10
          Width = 75
          Height = 22
          FrameHotColor = 33023
          FrameHotTrack = True
          FrameVisible = True
          TabOnEnter = True
          TabOrder = 2
        end
      end
      object sgPrice: TRzStringGrid
        Left = 0
        Top = 326
        Width = 731
        Height = 107
        Align = alClient
        ColCount = 8
        DefaultRowHeight = 22
        RowCount = 2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goColMoving]
        ParentFont = False
        TabOrder = 1
        OnDrawCell = sgPriceDrawCell
        FrameHotTrack = True
        FrameSides = [sdTop]
        FrameVisible = True
        ColWidths = (
          22
          62
          208
          84
          78
          77
          79
          78)
      end
    end
  end
  object RzPanel8: TRzPanel [4]
    Left = 0
    Top = 131
    Width = 981
    Height = 5
    Align = alTop
    BorderOuter = fsNone
    TabOrder = 4
    UseGradients = True
  end
  inherited plSelBase: TRzPanel
    Left = 424
    Top = 181
  end
  object dbgridList: TDBGridEh [6]
    Left = 0
    Top = 136
    Width = 241
    Height = 458
    Interval = 5
    IntervalColor = clMoneyGreen
    Indicator = 11
    Align = alClient
    AllowedOperations = []
    DataSource = dm.dsCraft
    DrawMemoText = True
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = 10931184
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
    ParentFont = False
    ReadOnly = True
    RowHeight = 20
    SumList.Active = True
    TabOrder = 5
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    TitleHeight = 18
    OnDrawColumnCell = dbgridListDrawColumnCell
    OnTitleBtnClick = dbgridListTitleBtnClick
    Columns = <
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpmc'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
        Width = 127
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpys'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #39068#33394
        Title.TitleButton = True
        Width = 84
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpgg'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35268#26684
        Title.TitleButton = True
        Width = 116
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpzl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Sxzl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpzz'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32452#32455
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Kh'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Wxys'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Zsl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Hclsl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Szym'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #39029#30721
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Szbs'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26412#21495
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'hcl1'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'hcl2'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'hcl3'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'hcl4'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'shbz'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'shrq'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'shr'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'csrq'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'csr'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end>
  end
  inherited actlBase: TActionList
    object actExcelFind: TAction [10]
      Caption = #20026#20102'Excel'#30340#24555#25463#38190#20064#24815
      ShortCut = 16454
      OnExecute = actExcelFindExecute
    end
  end
  inherited pmDateSet: TPopupMenu
    Left = 592
    Top = 56