ord140_01.dfm.svn-base

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

inherited Ord140_01Form: TOrd140_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #29305#27530#20215#26684#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
      inherited ToolButton4: TToolButton
        Left = 296
      end
      inherited ToolButton7: TToolButton
        Left = 349
      end
      inherited ToolButton8: TToolButton
        Left = 402
      end
      inherited ToolButton5: TToolButton
        Left = 451
        Visible = True
      end
      inherited tlbRefresh: TToolButton
        Left = 459
      end
      inherited tlbLocate: TToolButton
        Left = 494
      end
      inherited tlbSearch: TToolButton
        Left = 529
      end
      inherited tlbPrint: TToolButton
        Left = 564
      end
      inherited ToolButton6: TToolButton
        Left = 612
      end
      inherited tlbExit: TToolButton
        Left = 620
      end
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      Filter.Criteria = {00000000}
      object dxDBGrid1O140A_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O140A_002'
      end
      object dxDBGrid1O140A_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 231
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O140A_003'
      end
      object dxDBGrid1O140A_004: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 159
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O140A_004'
      end
      object dxDBGrid1O140A_005: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O140A_005'
      end
      object dxDBGrid1O140A_006: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O140A_006'
      end
      object dxDBGrid1G100_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_002'
      end
      object dxDBGrid1O140A_008: TdxDBGridCheckColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O140A_008'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dxDBGrid1O140A_009: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O140A_009'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from ORD140A order by O140A_009,O140A_002')
    object ADOQuery1O140A_002: TWideStringField
      DisplayLabel = #29305#20215#32534#21495
      FieldName = 'O140A_002'
    end
    object ADOQuery1O140A_003: TWideStringField
      DisplayLabel = #29305#20215#21517#31216
      FieldName = 'O140A_003'
      Size = 50
    end
    object ADOQuery1O140A_004: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = #25240#25187#31867#22411
      FieldName = 'O140A_004'
      OnGetText = ADOQuery1O140A_004GetText
    end
    object ADOQuery1O140A_005: TDateTimeField
      DisplayLabel = #29983#25928#26085#26399
      FieldName = 'O140A_005'
    end
    object ADOQuery1O140A_006: TDateTimeField
      DisplayLabel = #22833#25928#26085#26399
      FieldName = 'O140A_006'
    end
    object ADOQuery1G100_002: TStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldKind = fkLookup
      FieldName = 'G100_002'
      LookupDataSet = qryGld100
      LookupKeyFields = 'G100_001'
      LookupResultField = 'G100_002'
      KeyFields = 'O140A_007'
      Size = 10
      Lookup = True
    end
    object ADOQuery1O140A_008: TBooleanField
      DisplayLabel = #24635#39069#25240#25187
      FieldName = 'O140A_008'
    end
    object ADOQuery1O140A_009: TIntegerField
      DisplayLabel = #39034#24207#32534#21495
      FieldName = 'O140A_009'
    end
    object ADOQuery1O140A_010: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'O140A_010'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1O140A_001: TAutoIncField
      Alignment = taLeftJustify
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'O140A_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1O140A_007: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'O140A_007'
      Visible = False
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = #35774#32622
      Hint = #35774#32622
      ImageIndex = 18
      Visible = True
      OnExecute = Action1Execute
    end
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select G100_001,G100_002,G100_003 from GLD100')
    Left = 112
    Top = 152
    object qryGld100G100_001: TAutoIncField
      FieldName = 'G100_001'
      ReadOnly = True
    end
    object qryGld100G100_002: TWideStringField
      FieldName = 'G100_002'
      Size = 10
    end
    object qryGld100G100_003: TWideStringField
      FieldName = 'G100_003'
      Size = 30
    end
  end
end