gridctrl.dfm

胜天进销存源码,国产优秀的进销存

object GridControlsForm: TGridControlsForm
  Left = 48
  Top = 132
  Caption = 'More controls in the InfoPower Grid!'
  ClientHeight = 353
  ClientWidth = 619
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 0
    Width = 619
    Height = 353
    LineStyle = gls3D
    ControlType.Strings = (
      'selected;CheckBox;Yes;No'
      'EDUCATION;CustomEdit;wwRadioGroup1;F'
      'SEX;CustomEdit;wwRadioGroup2;F'
      'MARRIED;CustomEdit;wwCheckBox2;F'
      'RINTERESTS;RichEdit;wwDBRichEdit2;T'
      'IMAGE;CustomEdit;DBImage2;T'
      'PAYMETHOD;CustomEdit;wwRadioGroup2;F'
      'details;CustomEdit;wwDataInspector1;T')
    Selected.Strings = (
      'ACCT_NBR'#9'9'#9'Account #'#9'F'
      'FIRST_NAME'#9'7'#9'First'#9'F'#9'Name'
      'LAST_NAME'#9'8'#9'Last'#9'F'#9'Name'
      'RINTERESTS'#9'15'#9'Interests/Hobbies'#9'F'
      'details'#9'25'#9'Shipping Address'#9'F'#9'Billing Information'
      'PAYMETHOD'#9'16'#9'Payment Method'#9'F'#9'Billing Information'
      'IMAGE'#9'10'#9'Photo'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = 12615680
    FixedCols = 1
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = DataSource1
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgFixedResizable, dgProportionalColResize]
    RowHeightPercent = 310
    TabOrder = 0
    TitleAlignment = taCenter
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 2
    TitleButtons = True
    UseTFields = False
    PaintOptions.BackgroundBitmap.Data = {
      07544269746D617056020000424D560200000000000076000000280000001E00
      00001E0000000100040000000000E0010000C40E0000C40E0000100000000000
      0000D9EEEE00C7E0E000EBFEFE00C6DFDF00B3D0D000EDFFFF00DAEFEF00B2CF
      CF00A1C0C000FFFFFF0000000000000000000000000000000000000000000000
      0000600111111111111333111116660110000001111110011111331111100011
      3000600001110601111111110000011331000000000000011111111000000011
      1100600000001100001111111006001111000000001111166600001111126011
      1000111001160006666666014411060011001100601000006666660111110001
      3300110666000000006662260001001111000000000000000006622226611111
      1000000111100011000662222260111106000601111000010006662222620113
      1100660111060000000600062662611111000601106660000000011066026111
      0600660000060100001062662262201102000600000600000000626622626011
      0200600006666000000062662262601102000066666666011000066622660011
      0600266622266001100000666660001006002226222660011100100000000000
      6600200666660000113131000000000662000000000601100341330011000066
      2200000006600000134000011111106626000000000111111111111111310066
      6600000001144333111331111110066600001000000114311113100000100060
      0000310066661410001111000000000001003110022201302011111111100000
      1100111002220000000011333110000000000010022222013100011310022000
      0000}
    PaintOptions.AlternatingRowRegions = [arrDataColumns]
    PaintOptions.FastRecordScrolling = False
    PaintOptions.AlternatingRowColor = clSilver
    PaintOptions.BackgroundOptions = [coFillDataCells, coBlendFixedRow, coBlendFixedColumn, coBlendAlternatingRow]
    object wwDBGrid1IButton: TwwIButton
      Left = 0
      Top = 0
      Width = 20
      Height = 41
      AllowAllUp = True
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object DBImage2: TDBImage
    Left = 520
    Top = 40
    Width = 68
    Height = 49
    DataField = 'IMAGE'
    DataSource = DataSource1
    Stretch = True
    TabOrder = 1
  end
  object wwDBRichEdit2: TwwDBRichEdit
    Left = 176
    Top = 40
    Width = 94
    Height = 49
    AutoURLDetect = False
    PrintJobName = 'Delphi 5'
    TabOrder = 2
    EditorCaption = 'Edit Rich Text'
    EditorPosition.Left = 0
    EditorPosition.Top = 0
    EditorPosition.Width = 0
    EditorPosition.Height = 0
    MeasurementUnits = muInches
    PrintMargins.Top = 1.000000000000000000
    PrintMargins.Bottom = 1.000000000000000000
    PrintMargins.Left = 1.000000000000000000
    PrintMargins.Right = 1.000000000000000000
    PrintHeader.VertMargin = 0.500000000000000000
    PrintHeader.Font.Charset = DEFAULT_CHARSET
    PrintHeader.Font.Color = clWindowText
    PrintHeader.Font.Height = -11
    PrintHeader.Font.Name = 'Tahoma'
    PrintHeader.Font.Style = []
    PrintFooter.VertMargin = 0.500000000000000000
    PrintFooter.Font.Charset = DEFAULT_CHARSET
    PrintFooter.Font.Color = clWindowText
    PrintFooter.Font.Height = -11
    PrintFooter.Font.Name = 'Tahoma'
    PrintFooter.Font.Style = []
    RichEditVersion = 2
    Data = {
      810000007B5C727466315C616E73695C616E7369637067313235325C64656666
      305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C20
      4D532053616E732053657269663B7D7D0D0A5C766965776B696E64345C756331
      5C706172645C66305C6673313620777744425269636845646974325C7061720D
      0A7D0D0A00}
  end
  object wwRadioGroup2: TwwRadioGroup
    Left = 424
    Top = 40
    Width = 100
    Height = 49
    DisableThemes = False
    ButtonFrame.Enabled = True
    ButtonFrame.Transparent = True
    ButtonFrame.FocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
    GlyphImages = ImageList6
    ShowFocusRect = False
    Caption = 'PAYMETHOD'
    Color = clWhite
    Columns = 2
    DataField = 'PAYMETHOD'
    DataSource = DataSource1
    Items.Strings = (
      ' '
      ' '
      ' '
      ' ')
    ParentColor = False
    TabOrder = 3
    Values.Strings = (
      '1'
      '2'
      '3'
      '4')
  end
  object wwDataInspector1: TwwDataInspector
    Left = 280
    Top = 40
    Width = 154
    Height = 49
    DisableThemes = False
    BorderStyle = bsNone
    CaptionColor = clNone
    TabOrder = 4
    DataSource = DataSource1
    Items = <
      item
        DataSource = DataSource1
        DataField = 'ADDRESS_1'
        Caption = 'Address'
        WordWrap = False
      end
      item
        DataSource = DataSource1
        DataField = 'STATE'
        Caption = 'State'
        WordWrap = False
      end
      item
        DataSource = DataSource1
        DataField = 'ZIP'
        Caption = 'Zip'
        WordWrap = False
      end>
    CaptionWidth = 55
    Options = [ovColumnResize, ovRowResize, ovEnterToTab, ovCenterCaptionVert]
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    LineStyleCaption = ovDottedLine
    LineStyleData = ovDottedLine
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 8
    Top = 24
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'InfoDemo5'
    TableName = 'clients.DBF'
    Left = 40