sys100_01.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

object Sys100_01Form: TSys100_01Form
  Left = 191
  Top = 60
  HelpContext = 111
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #24080#22871#31649#29702
  ClientHeight = 416
  ClientWidth = 595
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Pitch = fpFixed
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 43
    Width = 595
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 591
      Height = 33
      Align = alClient
      Stretch = True
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 595
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 591
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 578
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 183
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 218
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 226
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 80
    Width = 595
    Height = 336
    Align = alClient
    TabOrder = 2
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 591
      Height = 332
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = DataSource1
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
      object dxDBGrid1FNo: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Visible = False
        Width = 20
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FNo'
      end
      object dxDBGrid1FName: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 141
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
      object dxDBGrid1FCompany: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 178
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCompany'
      end
      object dxDBGrid1FDate: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FDate'
      end
      object dxDBGrid1FPath: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 128
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FPath'
      end
      object dxDBGrid1FType: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Visible = False
        Width = 20
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FType'
      end
      object dxDBGrid1FHost: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Visible = False
        Width = 75
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FHost'
      end
      object dxDBGrid1FUser: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Visible = False
        Width = 75
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FUser'
      end
      object dxDBGrid1FPass: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Visible = False
        Width = 75
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FPass'
      end
      object dxDBGrid1FVersion: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Visible = False
        Width = 380
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FVersion'
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = qrySys000
    Left = 84
    Top = 168
  end
  object qrySys000: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.SYSADOC
    CursorType = ctStatic
    AfterScroll = qrySys000AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from HwDatabase')
    Left = 96
    Top = 192
    object qrySys000FNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
    object qrySys000FName: TWideStringField
      DisplayLabel = #24080#22871#21517#31216
      FieldName = 'FName'
      Size = 50
    end
    object qrySys000FCompany: TWideStringField
      DisplayLabel = #20844#21496#21517#31216
      FieldName = 'FCompany'
      Size = 50
    end
    object qrySys000FDate: TDateTimeField
      DisplayLabel = #24314#24080#26085#26399
      FieldName = 'FDate'
    end
    object qrySys000FPath: TWideStringField
      DisplayLabel = #25968#25454#36335#24452
      FieldName = 'FPath'
      Size = 255
    end
    object qrySys000FType: TSmallintField
      FieldName = 'FType'
      Visible = False
    end
    object qrySys000FHost: TWideStringField
      FieldName = 'FHost'
      Visible = False
      Size = 50
    end
    object qrySys000FUser: TWideStringField
      FieldName = 'FUser'
      Visible = False
      Size = 50
    end
    object qrySys000FPass: TWideStringField
      FieldName = 'FPass'
      Visible = False
      Size = 50
    end
    object qrySys000FVersion: TWideStringField
      FieldName = 'FVersion'
      Visible = False
      Size = 255
    end
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 368
    Top = 72
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32848
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActInsert: TAction
      Caption = #26032#22686
      Hint = #26032#22686#19968#26465#35760#24405
      ImageIndex = 4
      ShortCut = 32833
      OnExecute = ActInsertExecute
    end
    object ActDelete: TAction
      Caption = #21024#38500
      Hint = #21024#38500#24403#21069#35760#24405
      ImageIndex = 6
      ShortCut = 32836
      OnExecute = ActDeleteExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
end