ord330_01.dfm.svn-base

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

inherited Ord330_01Form: TOrd330_01Form
  Left = 13
  Top = -18
  Width = 743
  Height = 528
  Caption = #29986#21697#20445#39178#26597#35426
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 735
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 731
      end>
    inherited ToolBar2: TToolBar
      Width = 718
    end
  end
  inherited Panel1: TPanel
    Width = 735
    inherited Image1: TImage
      Width = 731
    end
    object lblType: TLabel
      Left = 209
      Top = 14
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #31867#22411
      Transparent = True
    end
    object lblDays: TLabel
      Left = 531
      Top = 16
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = #25552#21069#22825#25968
    end
    object sbSearch: TSpeedButton
      Left = 644
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object lblDate: TLabel
      Left = 363
      Top = 14
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #24320#22987#26085#26399
      Transparent = True
    end
    object cbType: TComboBox
      Left = 241
      Top = 10
      Width = 114
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 0
      Text = #25910#36153#20445#20859
      Items.Strings = (
        #25910#36153#20445#20859
        #20813#36153#20445#20859)
    end
    object edtDays: TEdit
      Left = 589
      Top = 9
      Width = 25
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 1
      Text = '10'
    end
    object UpDown1: TUpDown
      Left = 614
      Top = 9
      Width = 15
      Height = 20
      Anchors = [akTop, akRight]
      Associate = edtDays
      Min = 0
      Position = 10
      TabOrder = 2
      Wrap = False
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 417
      Top = 10
      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 = 3
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 735
    Height = 421
    inherited dxDBGrid1: TdxDBGrid
      Width = 731
      Height = 417
      Filter.Criteria = {00000000}
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1O150_004: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_004'
      end
      object dxDBGrid1I150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1O153_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O153_003'
      end
      object dxDBGrid1O153_004: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O153_004'
      end
      object dxDBGrid1FFromdate: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FFromdate'
      end
      object dxDBGrid1FDay: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FDay'
      end
    end
  end
  inherited pmPrint: TPopupMenu
    Left = 440
    Top = 16
  end
  inherited ADOQuery1: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      
        'select O150_002,O150_003,O150_004,I150_003,O153_003,O153_004,O15' +
        '3_010 as FFromdate,O153_010-now as FDay'
      'from ORD150,INV150,ORD153'
      
        'where O150_001=O153_001  and O153_002=I150_001 and O153_010-now(' +
        ')>0 and O153_010-now()<30')
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1O150_004: TWideStringField
      DisplayLabel = #23458#25143#31616#31216
      FieldName = 'O150_004'
    end
    object ADOQuery1I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery1O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object ADOQuery1O153_004: TWideStringField
      DisplayLabel = #25511#21046#22120#21495
      FieldName = 'O153_004'
      Size = 30
    end
    object ADOQuery1FFromdate: TDateTimeField
      DisplayLabel = #20445#20859#32467#26463#26085#26399
      FieldName = 'FFromdate'
    end
    object ADOQuery1FDay: TFloatField
      DisplayLabel = #36317#31163#22825#25968
      FieldName = 'FDay'
      ReadOnly = True
    end
  end
end