cwa150_04.dfm.svn-base

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

object Cwa150_04Form: TCwa150_04Form
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20989#25968
  ClientHeight = 240
  ClientWidth = 385
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object bbtnInsert: TBitBtn
    Left = 24
    Top = 208
    Width = 75
    Height = 25
    Caption = #26032#22686'(&I)'
    TabOrder = 0
    OnClick = bbtnInsertClick
  end
  object bbtnUpdate: TBitBtn
    Left = 112
    Top = 208
    Width = 75
    Height = 25
    Caption = #20462#25913'(&U)'
    TabOrder = 1
    OnClick = bbtnUpdateClick
  end
  object bbtnDelete: TBitBtn
    Left = 200
    Top = 208
    Width = 75
    Height = 25
    Caption = #21024#38500'(&D)'
    TabOrder = 2
    OnClick = bbtnDeleteClick
  end
  object bbtnExit: TBitBtn
    Left = 288
    Top = 208
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 3
    OnClick = bbtnExitClick
  end
  object ScrollBox1: TScrollBox
    Left = 8
    Top = 8
    Width = 369
    Height = 193
    TabOrder = 4
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 365
      Height = 189
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'S990_001'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = dsSys990
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
      ShowGrid = False
      object dxDBGrid1S990_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 94
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S990_003'
      end
      object dxDBGrid1S990_004: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 245
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S990_004'
      end
    end
  end
  object qrySys990: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SYS990')
    Left = 224
    Top = 32
    object qrySys990S990_003: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'S990_003'
      Size = 10
    end
    object qrySys990S990_004: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'S990_004'
      Size = 50
    end
    object qrySys990S990_001: TAutoIncField
      FieldName = 'S990_001'
      ReadOnly = True
      Visible = False
    end
    object qrySys990S990_002: TSmallintField
      FieldName = 'S990_002'
      Visible = False
    end
    object qrySys990S990_005: TMemoField
      FieldName = 'S990_005'
      Visible = False
      BlobType = ftMemo
    end
    object qrySys990S990_006: TMemoField
      FieldName = 'S990_006'
      Visible = False
      BlobType = ftMemo
    end
  end
  object dsSys990: TDataSource
    DataSet = qrySys990
    Left = 176
    Top = 32
  end
end