ord130_01.dfm.svn-base

一个用Delphi开发的ERP软件

inherited Ord130_01Form: TOrd130_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #38144#21806#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 = 331
      end
      inherited ToolButton8: TToolButton
        Left = 384
      end
      inherited ToolButton5: TToolButton
        Left = 433
      end
      inherited tlbRefresh: TToolButton
        Left = 441
      end
      inherited tlbLocate: TToolButton
        Left = 476
      end
      inherited tlbSearch: TToolButton
        Left = 511
      end
      inherited tlbPrint: TToolButton
        Left = 546
      end
      inherited ToolButton6: TToolButton
        Left = 594
      end
      inherited tlbExit: TToolButton
        Left = 602
      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
      KeyField = 'O130_001'
      Filter.Criteria = {00000000}
      object dxDBGrid1I150_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 121
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 223
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1I150_004: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 223
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_004'
      end
      object dxDBGrid1I140_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I140_002'
      end
      object dxDBGrid1I140_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I140_003'
      end
      object dxDBGrid1G100_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 69
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_002'
      end
      object dxDBGrid1O130_003: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O130_003'
      end
      object dxDBGrid1O130_004: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O130_004'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select A.*,B.I150_002,B.I150_003,B.I150_004,C.I140_002,C.I140_00' +
        '3,D.G100_002'
      'from ORD130 A,INV150 B,INV140 C,GLD100 D'
      
        'where A.O130_001=B.I150_001 and B.I150_011=C.I140_001 and A.O130' +
        '_002=D.G100_001'
      'order by O130_001,O130_002,O130_003,O130_004')
    object ADOQuery1I150_002: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery1I150_004: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object ADOQuery1I140_002: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'I140_002'
    end
    object ADOQuery1I140_003: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'I140_003'
    end
    object ADOQuery1G100_002: TStringField
      DisplayLabel = #24065#21035
      FieldName = 'G100_002'
      Size = 10
    end
    object ADOQuery1O130_003: TDateTimeField
      DisplayLabel = #29983#25928#26085#26399
      FieldName = 'O130_003'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1O130_004: TBCDField
      DisplayLabel = #38144#21806#20215#26684
      FieldName = 'O130_004'
      Precision = 19
    end
    object ADOQuery1O130_001: TIntegerField
      FieldName = 'O130_001'
      Visible = False
    end
    object ADOQuery1O130_002: TIntegerField
      FieldName = 'O130_002'
      Visible = False
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = #25209#22686
      ImageIndex = 17
      OnExecute = Action1Execute
    end
    inherited Action2: TAction
      Caption = #35843#20215
      ImageIndex = 18
      OnExecute = Action2Execute
    end
  end
end