framemain.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

object Frame1: TFrame1
  Left = 0
  Top = 0
  Width = 443
  Height = 277
  Align = alClient
  TabOrder = 0
  object Splitter1: TSplitter
    Left = 300
    Top = 0
    Width = 2
    Height = 277
    Cursor = crHSplit
    OnCanResize = Splitter1CanResize
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 300
    Height = 277
    Align = alLeft
    TabOrder = 0
    object Tree: TTreeView
      Left = 1
      Top = 1
      Width = 300
      Height = 275
      Align = alLeft
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'System'
      Font.Style = [fsBold]
      Indent = 19
      ParentFont = False
      ReadOnly = True
      SortType = stText
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 302
    Top = 0
    Width = 141
    Height = 277
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    inline Frame21: TFrame2
      Left = 1
      Top = 1
      Width = 139
      Height = 275
      Align = alClient
      inherited StaticText1: TStaticText
        Width = 429
      end
    end
  end
  object DataSource1: TDataSource
    Left = 44
    Top = 224
  end
  object Query1: TQuery
    DatabaseName = 'maindb'
    DataSource = DataSource1
    SQL.Strings = (
      ''
      'SELECT id, idname  FROM  编码表  '
      'where  Mid(id, 1, 1)<>'#39'0'#39'and Mid(id,2,1)='#39'0'#39
      ' ')
    Left = 4
    Top = 224
  end
  object Query2: TQuery
    CachedUpdates = True
    DatabaseName = 'maindb'
    Filtered = True
    DataSource = DataSource1
    Left = 172
    Top = 224
  end
  object DataSource2: TDataSource
    Left = 82
    Top = 224
  end
  object menu1: TTable
    DatabaseName = 'maindb'
    TableName = 'JD_POSMAINMENU'
    Left = 24
    Top = 264
  end
  object menu2: TTable
    DatabaseName = 'maindb'
    FieldDefs = <
      item
        Name = 'MAINCODE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'SUBCODE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'SUBNAME'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'NODE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 10
      end>
    IndexDefs = <
      item
        Name = 'IDX_POSSUBMENU1'
        Fields = 'NODE'
      end
      item
        Name = 'SYS_C005964'
        Fields = 'MAINCODE;SUBCODE;NODE'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'JD_POSSUBMENU'
    Left = 24
    Top = 296
  end
  object menu3: TTable
    DatabaseName = 'maindb'
    TableName = 'JD_POSMENUITEM'
    Left = 24
    Top = 336
  end
end