inv500_01.dfm.svn-base

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

inherited Inv500_01Form: TInv500_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #26009#21697#36827#20986#22788#29702
  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
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblDate: 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 lblWhs: TLabel
      Left = 255
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #20179#24211
      Transparent = True
    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
    object cbWhs: TComboBox
      Left = 287
      Top = 8
      Width = 172
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 2
    end
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'I500A_001'
      Filter.Criteria = {00000000}
      object dxDBGrid1I500A_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 123
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_001'
      end
      object dxDBGrid1I550_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I550_002'
      end
      object dxDBGrid1I550_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I550_003'
      end
      object dxDBGrid1I500A_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 364
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_003'
      end
      object dxDBGrid1I500A_004: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_004'
      end
      object dxDBGrid1I500A_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_005'
      end
      object dxDBGrid1FCode: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCode'
      end
      object dxDBGrid1FName: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 364
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
      object dxDBGrid1I500A_007: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_007'
      end
      object dxDBGrid1G100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_002'
      end
      object dxDBGrid1G100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_003'
      end
      object dxDBGrid1I500A_009: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_009'
      end
      object dxDBGrid1I100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_002'
      end
      object dxDBGrid1I100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 304
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_003'
      end
      object dxDBGrid1I500A_012: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_012'
      end
      object dxDBGrid1I500A_013: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_013'
      end
      object dxDBGrid1I500A_014: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_014'
      end
      object dxDBGrid1I500A_015: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_015'
      end
      object dxDBGrid1I500A_016: TdxDBGridCheckColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I500A_016'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
  end
  inherited pmPrint: TPopupMenu
    Left = 704
    Top = 16
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select A.*,'
      '       B.*,'
      '       C.G100_001,C.G100_002,C.G100_003,'
      '       D.I100_001,D.I100_002,D.I100_003'
      'from INV500A A,INV550 B,GLD100 C,INV100 D'
      
        'where I500A_002=I550_001 and I500A_008=G100_001 and I500A_010=I1' +
        '00_001 and I500A_010 is null'
      'order by I500A_001')
    object ADOQuery1I500A_001: TWideStringField
      DisplayLabel = #36827#20986#21333#21495
      FieldName = 'I500A_001'
      Size = 30
    end
    object ADOQuery1I500A_002: TIntegerField
      FieldName = 'I500A_002'
      Visible = False
    end
    object ADOQuery1I550_002: TWideStringField
      DisplayLabel = #31867#22411#32534#21495
      FieldName = 'I550_002'
      Size = 10
    end
    object ADOQuery1I550_003: TWideStringField
      DisplayLabel = #31867#22411#21517#31216
      FieldName = 'I550_003'
      Size = 30
    end
    object ADOQuery1I500A_003: TWideStringField
      DisplayLabel = #25688#35201#35828#26126
      FieldName = 'I500A_003'
      Size = 60
    end
    object ADOQuery1I500A_004: TDateTimeField
      DisplayLabel = #36827#20986#26085#26399
      FieldName = 'I500A_004'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1I500A_005: TSmallintField
      DisplayLabel = #23545#35937#31867#22411
      FieldName = 'I500A_005'
      OnGetText = ADOQuery1I500A_005GetText
    end
    object ADOQuery1I500A_006: TIntegerField
      FieldName = 'I500A_006'
      Visible = False
    end
    object ADOQuery1FCode: TStringField
      DisplayLabel = #23545#35937#32534#21495
      FieldKind = fkCalculated
      FieldName = 'FCode'
      Calculated = True
    end
    object ADOQuery1FName: TStringField
      DisplayLabel = #23545#35937#21517#31216
      FieldKind = fkCalculated
      FieldName = 'FName'
      Size = 60
      Calculated = True
    end
    object ADOQuery1I500A_007: TWideStringField
      DisplayLabel = #30456#20851#21333#25454
      FieldName = 'I500A_007'
      Size = 30
    end
    object ADOQuery1I500A_008: TIntegerField
      FieldName = 'I500A_008'
      Visible = False
    end
    object ADOQuery1G100_002: TWideStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'G100_002'
      Size = 10
    end
    object ADOQuery1G100_003: TWideStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'G100_003'
      Size = 30
    end
    object ADOQuery1I500A_009: TFloatField
      DisplayLabel = #24065#21035#27719#29575
      FieldName = 'I500A_009'
    end
    object ADOQuery1I500A_010: TIntegerField
      FieldName = 'I500A_010'
      Visible = False
    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 ADOQuery1I500A_011: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'I500A_011'
      BlobType = ftMemo
    end
    object ADOQuery1I500A_012: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'I500A_012'
    end
    object ADOQuery1I500A_013: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'I500A_013'
    end
    object ADOQuery1I500A_014: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'I500A_014'
    end
    object ADOQuery1I500A_015: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'I500A_015'
    end
    object ADOQuery1I500A_016: TBooleanField
      DisplayLabel = #24050#36807#24080#21542
      FieldName = 'I500A_016'
    end
    object ADOQuery1I550_001: TAutoIncField
      FieldName = 'I550_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1I550_004: TSmallintField
      FieldName = 'I550_004'
      Visible = False
    end
    object ADOQuery1I550_005: TSmallintField
      FieldName = 'I550_005'
      Visible = False
    end
    object ADOQuery1I550_006: TBooleanField
      FieldName = 'I550_006'
      Visible = False
    end
    object ADOQuery1I550_007: TSmallintField
      FieldName = 'I550_007'
      Visible = False
    end
    object ADOQuery1I550_008: TWideStringField
      FieldName = 'I550_008'
      Visible = False
    end
    object ADOQuery1I550_009: TIntegerField
      FieldName = 'I550_009'
      Visible = False
    end
    object ADOQuery1I550_010: TSmallintField
      FieldName = 'I550_010'
      Visible = False
    end
    object ADOQuery1I550_011: TWideStringField
      FieldName = 'I550_011'
      Visible = False
      Size = 30
    end
    object ADOQuery1G100_001: TAutoIncField
      FieldName = 'G100_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1I100_001: TAutoIncField
      FieldName = 'I100_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryInv100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from INV100 order by I100_002')
    Left = 328
    Top = 48
  end
end