acp300_01.dfm.svn-base

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

inherited Acp300_01Form: TAcp300_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #37319#36141#21457#31080#26597#35810
  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 lblType: TLabel
      Left = 320
      Top = 12
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #31867#22411
      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
      ShowButton = True
      TabOrder = 1
    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
      ShowButton = True
      TabOrder = 2
    end
    object cbType: TComboBox
      Left = 352
      Top = 8
      Width = 105
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 0
      Text = #26410#24320#21457#31080
      Items.Strings = (
        #26410#24320#21457#31080
        #24050#24320#21457#31080)
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      Filter.Criteria = {00000000}
      object dxDBGrid1P510A_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P510A_001'
      end
      object dxDBGrid1P510A_003: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P510A_003'
      end
      object dxDBGrid1P510A_004: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P510A_004'
      end
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 240
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1G100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_003'
      end
      object dxDBGrid1P510B_026: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P510B_026'
      end
      object dxDBGrid1P510B_024: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P510B_024'
      end
      object dxDBGrid1FNotBill: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FNotBill'
      end
      object dxDBGrid1P510B_027: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P510B_027'
      end
      object dxDBGrid1FNotAmount: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FNotAmount'
      end
    end
  end
  inherited pmPrint: TPopupMenu
    Left = 440
    Top = 8
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select P510A_001,P510A_003,P510A_004,O150_002,O150_003,G100_003,' +
        'P510B_026,P510B_024,P510B_026-P510B_025-P510B_024 as FNotBill,P5' +
        '10B_027,P510B_024-P510B_027 as FNotAmount'
      'from PUR510A,PUR510B,ORD150,GLD100'
      
        'where P510A_001=P510B_001 and P510A_017=O150_001 and P510A_007=G' +
        '100_001 and '
      '      P510B_026-P510B_025-P510B_024>0'
      'order by P510A_001')
    object ADOQuery1P510A_001: TWideStringField
      DisplayLabel = #37319#36141#21333#21495
      FieldName = 'P510A_001'
      Size = 30
    end
    object ADOQuery1P510A_003: TDateTimeField
      DisplayLabel = #37319#36141#26085#26399
      FieldName = 'P510A_003'
    end
    object ADOQuery1P510A_004: TSmallintField
      DisplayLabel = #23450#21333#29366#24577
      FieldName = 'P510A_004'
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #20379#24212#21830#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #20379#24212#21830#21517
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1G100_003: TWideStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'G100_003'
      Size = 30
    end
    object ADOQuery1P510B_026: TFloatField
      DisplayLabel = #24212#24320#31080#39069
      FieldName = 'P510B_026'
    end
    object ADOQuery1P510B_024: TFloatField
      DisplayLabel = #24050#24320#31080#39069
      FieldName = 'P510B_024'
    end
    object ADOQuery1FNotBill: TFloatField
      DisplayLabel = #26410#24320#31080#39069
      FieldName = 'FNotBill'
      ReadOnly = True
    end
    object ADOQuery1P510B_027: TFloatField
      DisplayLabel = #24050#20184#27454#39069
      FieldName = 'P510B_027'
    end
    object ADOQuery1FNotAmount: TFloatField
      DisplayLabel = #26410#20184#27454#39069
      FieldName = 'FNotAmount'
      ReadOnly = True
    end
  end
end