inv600_01.dfm.svn-base

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

inherited Inv600_01Form: TInv600_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #30424#28857#35745#21010#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  object lblDate: TLabel [0]
    Left = 673
    Top = 12
    Width = 24
    Height = 12
    Anchors = [akTop, akRight]
    Caption = #26085#26399
    Transparent = True
  end
  object lblClass: TLabel [1]
    Left = 457
    Top = 12
    Width = 24
    Height = 12
    Anchors = [akTop, akRight]
    Caption = #31867#21035
    Transparent = True
  end
  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 ToolButton5: TToolButton
        Left = 402
        Visible = True
      end
      inherited tlbRefresh: TToolButton
        Left = 410
      end
      inherited tlbLocate: TToolButton
        Left = 445
      end
      inherited tlbSearch: TToolButton
        Left = 480
      end
      inherited tlbPrint: TToolButton
        Left = 515
      end
      inherited ToolButton6: TToolButton
        Left = 563
      end
      inherited tlbExit: TToolButton
        Left = 571
      end
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object Label1: TLabel
      Left = 471
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26085#26399
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 727
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 503
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      AutoSize = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ImeName = ''
      ShowButton = True
      TabOrder = 0
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 615
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      AutoSize = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ImeName = ''
      ShowButton = True
      TabOrder = 1
    end
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      Filter.Criteria = {00000000}
      object dxDBGrid1I600A_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 116
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_001'
      end
      object dxDBGrid1I600A_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 144
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_002'
      end
      object dxDBGrid1I600A_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 61
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_003'
      end
      object dxDBGrid1I100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 62
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_002'
      end
      object dxDBGrid1I100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 119
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_003'
      end
      object dxDBGrid1I600A_005: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 79
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_005'
      end
      object dxDBGrid1I600A_006: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 73
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_006'
      end
      object dxDBGrid1I600A_007: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 77
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_007'
      end
      object dxDBGrid1I600A_008: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 74
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_008'
      end
      object dxDBGrid1I600A_009: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_009'
      end
      object dxDBGrid1I600A_010: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 98
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_010'
      end
      object dxDBGrid1I600A_011: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 65
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_011'
      end
      object dxDBGrid1I600A_012: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 87
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_012'
      end
      object dxDBGrid1I600A_013: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 91
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I600A_013'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select * from INV600A,INV100 where I600A_004=I100_001 order by I' +
        '600A_001')
    object ADOQuery1I600A_001: TWideStringField
      DisplayLabel = #30424#28857#21333#21495
      FieldName = 'I600A_001'
      Size = 30
    end
    object ADOQuery1I600A_002: TWideStringField
      DisplayLabel = #30424#28857#21517#31216
      FieldName = 'I600A_002'
      Size = 60
    end
    object ADOQuery1I600A_003: TSmallintField
      DisplayLabel = #30424#28857#29366#24577
      FieldName = 'I600A_003'
      OnGetText = ADOQuery1I600A_003GetText
    end
    object ADOQuery1I100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object ADOQuery1I100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
    object ADOQuery1I600A_004: TIntegerField
      FieldName = 'I600A_004'
      Visible = False
    end
    object ADOQuery1I600A_005: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987
      FieldName = 'I600A_005'
    end
    object ADOQuery1I600A_006: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104
      FieldName = 'I600A_006'
    end
    object ADOQuery1I600A_007: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987
      FieldName = 'I600A_007'
    end
    object ADOQuery1I600A_008: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104
      FieldName = 'I600A_008'
    end
    object ADOQuery1I600A_009: TIntegerField
      DisplayLabel = #39033#30446#25968#37327
      FieldName = 'I600A_009'
    end
    object ADOQuery1I600A_010: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'I600A_010'
    end
    object ADOQuery1I600A_011: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'I600A_011'
    end
    object ADOQuery1I600A_012: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'I600A_012'
    end
    object ADOQuery1I600A_013: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'I600A_013'
    end
    object ADOQuery1I600A_014: TMemoField
      FieldName = 'I600A_014'
      Visible = False
      BlobType = ftMemo
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = #29983#25104
      Hint = #29983#25104#30424#28857#35745#21010
      ImageIndex = 19
      ShortCut = 32839
      Visible = True
      OnExecute = Action1Execute
    end
  end
  object qryInv600B: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 88
    Top = 184
  end
end