sys900_01.dfm.svn-base

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

          Width = 36
          Height = 12
          Caption = 'Label1'
        end
        object Label2: TLabel
          Left = 16
          Top = 88
          Width = 36
          Height = 12
          Caption = 'Label2'
        end
        object ProgressBar1: TProgressBar
          Left = 16
          Top = 40
          Width = 585
          Height = 25
          Min = 0
          Max = 100
          TabOrder = 0
        end
        object ProgressBar2: TProgressBar
          Left = 16
          Top = 104
          Width = 585
          Height = 25
          Min = 0
          Max = 100
          TabOrder = 1
        end
      end
      object dxDBGrid2: TdxDBGrid
        Left = 8
        Top = 8
        Width = 617
        Height = 201
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'S920_001'
        SummaryGroups = <>
        SummarySeparator = ', '
        TabOrder = 0
        OnKeyPress = dxDBGrid2KeyPress
        OnMouseUp = dxDBGrid2MouseUp
        DataSource = dsSys920
        Filter.Criteria = {00000000}
        HideFocusRect = True
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid2S920_002: TdxDBGridCheckColumn
          HeaderAlignment = taCenter
          Width = 47
          BandIndex = 0
          RowIndex = 0
          FieldName = 'S920_002'
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object dxDBGrid2S920_003: TdxDBGridColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 178
          BandIndex = 0
          RowIndex = 0
          FieldName = 'S920_003'
        end
        object dxDBGrid2S920_004: TdxDBGridColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 135
          BandIndex = 0
          RowIndex = 0
          FieldName = 'S920_004'
        end
        object dxDBGrid2S920_005: TdxDBGridDateColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 148
          BandIndex = 0
          RowIndex = 0
          FieldName = 'S920_005'
        end
        object dxDBGrid2S920_006: TdxDBGridColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 79
          BandIndex = 0
          RowIndex = 0
          FieldName = 'S920_006'
        end
      end
      object DBMemo1: TDBMemo
        Left = 8
        Top = 213
        Width = 617
        Height = 172
        Color = clBtnFace
        DataField = 'S920_007'
        DataSource = dsSys920
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object bbtnRefresh: TBitBtn
        Left = 8
        Top = 392
        Width = 75
        Height = 25
        Caption = #26356#26032'(&R)'
        TabOrder = 3
        OnClick = bbtnRefreshClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = #25253#34920#26684#24335#35774#32622
      ImageIndex = 3
      object frPreview1: TfrPreview
        Left = 8
        Top = 8
        Width = 617
        Height = 401
        BevelOuter = bvLowered
        Color = 10526880
        PopupMenu = PopupMenu1
        TabOrder = 0
        ScrollBars = ssVertical
      end
    end
  end
  object bbtnOk: TBitBtn
    Left = 456
    Top = 464
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 1
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn
    Left = 544
    Top = 464
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 2
    OnClick = bbtnExitClick
  end
  object dsSys900: TDataSource
    DataSet = qrySys900
    Left = 568
    Top = 120
  end
  object qrySys900: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    BeforePost = qrySys900BeforePost
    AfterScroll = qrySys900AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from SYS900 order by S900_001')
    Left = 576
    Top = 128
    object qrySys900S900_001: TStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S900_001'
    end
    object qrySys900S900_002: TStringField
      DisplayLabel = #21333#25454#21517#31216
      FieldName = 'S900_002'
      Size = 50
    end
    object qrySys900S900_003: TStringField
      DisplayLabel = #21069#32512
      FieldName = 'S900_003'
      Size = 10
    end
    object qrySys900S900_004: TStringField
      DisplayLabel = #21518#32512
      FieldName = 'S900_004'
      Size = 10
    end
    object qrySys900S900_005: TStringField
      DisplayLabel = #36830#25509#31526
      FieldName = 'S900_005'
      FixedChar = True
      Size = 1
    end
    object qrySys900S900_006: TStringField
      DisplayLabel = #36215#22987#32534#21495
      FieldName = 'S900_006'
    end
    object qrySys900S900_007: TStringField
      DisplayLabel = #32534#21495#35268#21017
      FieldName = 'S900_007'
      Size = 50
    end
    object qrySys900S900_008: TBooleanField
      DisplayLabel = #33258#21160#32534#21495
      FieldName = 'S900_008'
    end
    object qrySys900S900_009: TStringField
      DisplayLabel = #33539#20363
      FieldName = 'S900_009'
      Visible = False
      Size = 50
    end
    object qrySys900S900_010: TStringField
      FieldName = 'S900_010'
      Visible = False
      Size = 50
    end
    object qrySys900S900_011: TStringField
      FieldName = 'S900_011'
      Visible = False
      Size = 50
    end
    object qrySys900S900_012: TBooleanField
      DisplayLabel = #21487#21542#20462#25913
      FieldName = 'S900_012'
    end
    object qrySys900S900_013: TBooleanField
      DisplayLabel = #20445#23384#32534#21495
      FieldName = 'S900_013'
    end
    object qrySys900S900_014: TWideStringField
      DisplayLabel = #26368#26032#32534#21495
      FieldName = 'S900_014'
      ReadOnly = True
    end
  end
  object dsSys920: TDataSource
    DataSet = qrySys920
    Left = 496
    Top = 192
  end
  object qrySys920: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = qrySys900BeforePost
    AfterScroll = qrySys900AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from SYS920 order by S920_001')
    Left = 504
    Top = 200
    object qrySys920S920_001: TIntegerField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'S920_001'
      Visible = False
    end
    object qrySys920S920_002: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'S920_002'
    end
    object qrySys920S920_003: TWideStringField
      DisplayLabel = #25968#25454#21517#31216
      FieldName = 'S920_003'
      Size = 50
    end
    object qrySys920S920_004: TWideStringField
      DisplayLabel = #31995#32479#21517#31216
      FieldName = 'S920_004'
      Size = 50
    end
    object qrySys920S920_005: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'S920_005'
    end
    object qrySys920S920_006: TWideStringField
      DisplayLabel = #26356#26032#20154#21592
      FieldName = 'S920_006'
    end
    object qrySys920S920_007: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'S920_007'
      Visible = False
      BlobType = ftMemo
    end
  end
  object qryQuery: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 352
    Top = 176
  end
  object frReport1: TfrReport
    InitialZoom = pzPageWidth
    ModifyPrepared = False
    Preview = frPreview1
    PreviewButtons = [pbZoom, pbPrint, pbExit]
    ShowProgress = False
    RebuildPrinter = False
    OnGetValue = frReport1GetValue
    Left = 64
    Top = 280
    ReportForm = {19000000}
  end
  object PopupMenu1: TPopupMenu
    Left = 136
    Top = 280
    object mmiPrint: TMenuItem
      Caption = #25171#21360'(&P)'
      OnClick = mmiPrintClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object mmi200: TMenuItem
      Caption = '200%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mmi200Click
    end
    object mmi100: TMenuItem
      Caption = '100%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mmi100Click
    end
    object mmi75: TMenuItem
      Caption = '75%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mmi75Click
    end
    object mmi50: TMenuItem
      Caption = '50%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mmi50Click
    end
    object mmi25: TMenuItem
      Caption = '25%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mmi25Click
    end
    object mmiPageWidth: TMenuItem
      Caption = #38913#38754#23532#24230
      Checked = True
      GroupIndex = 1
      RadioItem = True
      OnClick = mmiPageWidthClick
    end
    object mmiOnePage: TMenuItem
      Caption = #25972#38913#39023#31034
      GroupIndex = 1
      RadioItem = True
      OnClick = mmiOnePageClick
    end
    object N4: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object mmiRefresh: TMenuItem
      Caption = #21047#26032'(&R)'
      GroupIndex = 1
      OnClick = mmiRefreshClick
    end
    object N2: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object N1: TMenuItem
      Caption = #22577#34920#26684#24335#35373#32622'(&D)'
      GroupIndex = 1
      OnClick = N1Click
    end
  end
end