sqlexecuteform.dfm

进销存·完整的·有数据库的·非常完整·只得参考

inherited frmSQLExecuteForm: TfrmSQLExecuteForm
  Left = -2
  Top = 62
  Caption = 'DIY'#25253#34920
  ClientHeight = 483
  ClientWidth = 793
  KeyPreview = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlForm: TSeSkinPanel
    Top = 40
    Width = 793
    Height = 443
    NormalHeight = {00000000}
    object Splitter1: TSeSkinSplitter
      Left = 4
      Top = 180
      Width = 785
      Height = 3
      Cursor = crVSplit
      Performance = kspNoBuffer
      Transparent = False
      Align = alTop
      SkinEngine = frmData.SeSkinEngine
      SkinObject = 'Splitter'
    end
    object MainGrid: TdxDBGrid
      Left = 4
      Top = 183
      Width = 785
      Height = 256
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ShowSummaryFooter = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      DataSource = dsSource
      Filter.Criteria = {00000000}
      HeaderColor = 13882042
      LookAndFeel = lfFlat
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterThrough, edgoTabs, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    end
    object pnlTop: TSeSkinPanel
      Left = 4
      Top = 4
      Width = 785
      Height = 176
      Performance = kspNoBuffer
      Transparent = True
      Align = alTop
      AnimateRoll = False
      BevelWidth = 1
      BorderWidth = 1
      ButtonKind = pbkRoll
      Rolled = False
      ParentRoll = False
      ShowBevel = True
      ShowButton = True
      ShowCaption = False
      SkinObject = 'Panel'
      NormalHeight = {00000000}
      object Splitter2: TSeSkinSplitter
        Left = 137
        Top = 2
        Width = 2
        Height = 172
        Cursor = crHSplit
        Performance = kspNoBuffer
        Transparent = False
        SkinEngine = frmData.SeSkinEngine
        SkinObject = 'Splitter'
      end
      object SeSkinPanel2: TSeSkinPanel
        Left = 2
        Top = 2
        Width = 135
        Height = 172
        Performance = kspNoBuffer
        Transparent = True
        Align = alLeft
        AnimateRoll = False
        BevelWidth = 1
        BorderWidth = 0
        ButtonKind = pbkRoll
        Caption = 'SeSkinPanel2'
        Rolled = False
        ParentRoll = False
        ShowBevel = True
        ShowButton = True
        ShowCaption = False
        SkinObject = 'Panel'
        NormalHeight = {00000000}
        object Splitter3: TSeSkinSplitter
          Left = 1
          Top = 69
          Width = 133
          Height = 3
          Cursor = crVSplit
          Performance = kspNoBuffer
          Transparent = False
          Align = alTop
          SkinEngine = frmData.SeSkinEngine
          SkinObject = 'Splitter'
        end
        object listTableName: TSeSkinListBox
          Left = 1
          Top = 1
          Width = 133
          Height = 68
          Performance = kspDoubleBuffer
          Transparent = False
          OnClick = listTableNameClick
          OnDblClick = listTableNameDblClick
          Align = alTop
          AllowGrayed = False
          AlwaysShowScrlBar = False
          BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
          BevelInner = kbvLowered
          BevelOuter = kbvLowered
          BevelKind = kbkSingle
          BevelWidth = 1
          BorderWidth = 0
          Columns = 0
          Flat = True
          ImeName = #20840#25340#36755#20837#27861
          Items.Strings = (
            #21830#21697'(Ware)'
            #21333#20301'(Unit)'
            #31185#30446'(Subject)'
            #20179#24211'(Depot)'
            #32844#21592'(Employe)'
            #22522#26412#20449#24687'(BaseInfo)'
            #21830#21697#24211#23384'(WareStock)'
            #21333#25454#20027#34920'(BillIndex)'
            #38144#21806#21333#25454'(BillSale)'
            #36827#36135#21333#25454'(BillStock)'
            #20973#35777#20027#34920'(AccountIndex)'
            #20973#35777#26126#32454'(AccountTable)'
            #22266#23450#36164#20135#22686#21152'(FixedAssets)'
            #22266#23450#36164#20135#20943#23569'(FixedAssetsDec)'
            #22266#23450#36164#20135#38468#20214'(FixedAssetsPlus)')
          ItemHeight = 16
          MultiSelect = False
          ShowCheckBoxes = False
          ListStyle = lbStandard
          TabOrder = 2
          WordWrap = False
          SkinObject = 'ListBox'
        end
        object listTable: TSeSkinListBox
          Left = 88
          Top = 1
          Width = 49
          Height = 80
          Performance = kspDoubleBuffer
          Transparent = False
          Visible = False
          AllowGrayed = False
          AlwaysShowScrlBar = False
          BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
          BevelInner = kbvLowered
          BevelOuter = kbvLowered
          BevelKind = kbkSingle
          BevelWidth = 1
          BorderWidth = 0
          Columns = 0
          Flat = True
          ImeName = #20840#25340#36755#20837#27861
          Items.Strings = (
            'Ware'
            'Unit'
            'Subject'
            'Depot'
            'Employe'
            'BaseInfo'
            'WareStock'
            'BillIndex'
            'BillSale'
            'BillStock'
            'AccountIndex'
            'AccountTable'
            'FixedAssets'
            'FixedAssetsDec'
            'FixedAssetsPlus')
          ItemHeight = 16
          MultiSelect = False
          ShowCheckBoxes = False
          ListStyle = lbStandard
          TabOrder = 0
          WordWrap = False
          SkinObject = 'ListBox'
        end
        object ListField: TSeSkinListBox
          Left = 1
          Top = 72
          Width = 133
          Height = 99
          Performance = kspDoubleBuffer
          Transparent = False
          OnMouseDown = ListFieldMouseDown
          Align = alClient
          AllowGrayed = False
          AlwaysShowScrlBar = False
          BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
          BevelInner = kbvLowered
          BevelOuter = kbvLowered
          BevelKind = kbkSingle
          BevelWidth = 1
          BorderWidth = 0
          Columns = 0
          Flat = True
          ImeName = #20840#25340#36755#20837#27861
          ItemHeight = 16
          MultiSelect = False
          ShowCheckBoxes = False
          ListStyle = lbStandard
          TabOrder = 1
          WordWrap = False
          SkinObject = 'ListBox'
        end
      end
      object SeSkinPanel3: TSeSkinPanel
        Left = 139
        Top = 2
        Width = 644
        Height = 172
        Performance = kspNoBuffer
        Transparent = True
        Align = alClient
        AnimateRoll = False
        BevelWidth = 0
        BorderWidth = 0
        ButtonKind = pbkRoll
        Caption = 'SeSkinPanel3'
        Rolled = False
        ParentRoll = False
        ShowBevel = True
        ShowButton = True
        ShowCaption = False
        SkinObject = 'Panel'
        NormalHeight = {00000000}
        object SeSkinPanel4: TSeSkinPanel
          Left = 0
          Top = 0
          Width = 644
          Height = 71
          Performance = kspNoBuffer
          Transparent = True
          Align = alTop
          AnimateRoll = False
          BevelWidth = 1
          BorderWidth = 0
          ButtonKind = pbkRoll
          Caption = 'SeSkinPanel1'
          Rolled = False
          ParentRoll = False
          ShowBevel = True
          ShowButton = True
          ShowCaption = False
          SkinObject = 'Panel'
          DesignSize = (
            643
            70)
          NormalHeight = {00000000}
          object SeSkinLabel1: TSeSkinLabel
            Left = 6
            Top = 29
            Width = 60
            Height = 12
            Performance = kspNoBuffer
            Transparent = True
            Caption = #34920#22836#23383#27573#65306
            Color = clBtnFace
            ParentColor = False
            SkinObject = 'Label'
          end
          object SeSkinLabel2: TSeSkinLabel
            Left = 6
            Top = 53
            Width = 60
            Height = 12
            Performance = kspNoBuffer
            Transparent = True
            Caption = #21512#35745#23383#27573#65306
            Color = clBtnFace
            ParentColor = False
            SkinObject = 'Label'
          end
          object lblCaption: TSeSkinLabel
            Left = 5
            Top = 6
            Width = 60
            Height = 12
            Performance = kspNoBuffer
            Transparent = True
            Caption = #31383#21475#26631#39064#65306
            Color = clBtnFace
            ParentColor = False
            SkinObject = 'Label'
          end
          object edtFieldS: TdxEdit
            Left = 63
            Top = 25
            Width = 576
            Hint = #35831#29992#65292#21495#38548#24320
            ImeName = #20840#25340#36755#20837#27861
            TabOrder = 0
            Anchors = [akLeft, akTop, akRight]
            StyleController = frmData.StyleController
          end
          object edtSumField: TdxEdit
            Left = 63
            Top = 49
            Width = 576
            Hint = #35831#29992#65292#21495#38548#24320
            ImeName = #20840#25340#36755#20837#27861
            TabOrder = 1
            OnDragDrop = edtSumFieldDragDrop
            OnDragOver = edtSumFieldDragOver
            Anchors = [akLeft, akTop, akRight]
            StyleController = frmData.StyleController
          end
          object edtCaption: TdxEdit
            Left = 63
            Top = 2
            Width = 262
            Hint = #35831#29992#65292#21495#38548#24320
            ImeName = #20840#25340#36755#20837#27861
            TabOrder = 2
            Anchors = [akLeft, akTop, akRight]
            StyleController = frmData.StyleController
            OnChange = edtCaptionChange
          end
        end
        object memSQL: TdxMemo
          Left = 0
          Top = 71
          Width = 644
          Align = alClient
          ImeName = #20840#25340#36755#20837#27861
          TabOrder = 1
          OnDragDrop = memSQLDragDrop
          OnDragOver = memSQLDragOver
          StyleController = frmData.StyleController
          OnChange = memSQLChange
          Height = 101
        end
      end
    end
  end
  inherited SeSkinForm1: TSeSkinForm
    Left = 480
    Top = 8
  end
  inherited dxBarManager1: TdxBarManager
    Bars = <
      item
        Caption = #24037#20855#26639
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 200
        FloatTop = 255
        FloatClientWidth = 23
        FloatClientHeight = 22
        ItemLinks = <
          item
            Visible = True
          end
          item
            Item = bbExecute
            Visible = True
          end
          item
            Item = bbBrowse
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbSelect
            Visible = True
          end
          item
            Item = bbDel
            Visible = True
          end
          item
            Item = bbFind
            Visible = True
          end
          item
            Item = bbFilter
            Visible = True
          end
          item
            BeginGroup = True
            Item = bbPrint
            Visible = True
          end
          item
            Item = bbSave
            Visible = True
          end
          item
            Item = bbExit
            Visible = True
          end>
        Name = #24037#20855#26639
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        UseRestSpace = True
        Visible = True
        WholeRow = False
      end>
    Categories.ItemsVisibles = (
      2
      2
      2)
    Categories.Visibles = (
      True
      True
      True)
    Left = 508
    Top = 8
    DockControlHeights = (
      0
      0
      40
      0)
    inherited bbSelect: TdxBarLargeButton
      OnClick = bbSelectClick
    end
    inherited bbDel: TdxBarLargeButton
      OnClick = bbDelClick
    end
    inherited bbFind: TdxBarLargeButton
      OnClick = bbFindClick
    end
    inherited bbFilter: TdxBarLargeButton
      OnClick = bbFilterClick
    end
    inherited bbSave: TdxBarLargeButton
      OnClick = bbSaveClick
    end
    object bbExecute: TdxBarLargeButton
      Caption = #25191#34892
      Category = 0
      Hint = #25191#34892
      Visible = ivAlways
      ImageIndex = 21
      OnClick = bbExecuteClick
      AutoGrayScale = False
      HotImageIndex = 21
    end
    object bbBrowse: TdxBarLargeButton
      Caption = #27983#35272
      Category = 0
      Hint = #27983#35272
      Visible = ivAlways
      ImageIndex = 2
      OnClick = bbBrowseClick
      AutoGrayScale = False
      LargeImageIndex = 2
    end
  end
  inherited PrintMenu: TdxBarPopupMenu
    ItemLinks = <
      item
        Item = pbbPrint
        Visible = True
      end
      item
        Item = pbbPrintView
        Visible = True
      end
      item
        Item = pbbPrintCustom
        Visible = True
      end
      item
        Item = pbbPrintInit
        Visible = True
      end>
    Left = 536
    Top = 8
  end
  inherited ChartMenu: TdxBarPopupMenu
    Left = 424
    Top = 8
  end
  object dsSource: TDataSource
    DataSet = dSetQuery
    Left = 592
    Top = 8
  end
  object dSetQuery: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    LockType = ltReadOnly
    CommandText = 
      ' SELECT bi.ID,bi.BillDate,bi.UserCode,bi.Name,e.Name as EName,u.' +
      'Name as UName,bi.Memo FROM BillIndex bi,Employe e,Unit u WHERE b' +
      'i.EmployeID = e.ID and bi.UnitID = u.ID'
    Parameters = <>
    Left = 564
    Top = 8
  end
  object dSetField: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    CommandText = 
      ' SELECT bi.ID,bi.BillDate,bi.UserCode,bi.Name,e.Name as EName,u.' +
      'Name as UName,bi.Memo FROM BillIndex bi,Employe e,Unit u WHERE b' +
      'i.EmployeID = e.ID and bi.UnitID = u.ID'
    Parameters = <>
    Left = 452
    Top = 8
  end
end