ord500_01.dfm.svn-base

一个用Delphi开发的ERP软件

inherited Ord500_01Form: TOrd500_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #38144#21806#25253#20215#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
      ButtonWidth = 31
      inherited ToolButton4: TToolButton
        Left = 296
      end
      inherited ToolButton7: TToolButton
        Left = 331
      end
      inherited ToolButton8: TToolButton
        Left = 366
      end
      inherited ToolButton5: TToolButton
        Left = 397
        Visible = True
      end
      inherited tlbRefresh: TToolButton
        Left = 405
      end
      inherited tlbLocate: TToolButton
        Left = 440
      end
      inherited tlbSearch: TToolButton
        Left = 475
      end
      inherited tlbPrint: TToolButton
        Left = 510
      end
      inherited ToolButton6: TToolButton
        Left = 558
      end
      inherited tlbExit: TToolButton
        Left = 566
      end
    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 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
      KeyField = 'O500A_001'
      ShowSummaryFooter = True
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSearch, edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      object dxDBGrid1O500A_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_001'
        SummaryFooterType = cstCount
        SummaryFooterFormat = #35760#24405#24635#25968#65306'0'
        OnDrawSummaryFooter = dxDBGrid1O500A_001DrawSummaryFooter
      end
      object dxDBGrid1O100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O100_002'
      end
      object dxDBGrid1O500A_003: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_003'
      end
      object dxDBGrid1O500A_004: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_004'
      end
      object dxDBGrid1H150_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 89
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      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 = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_003'
      end
      object dxDBGrid1O500A_008: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_008'
        DisplayFormat = ',0.0000;-,0.0000'
        Nullable = False
      end
      object dxDBGrid1G110_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 97
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G110_002'
      end
      object dxDBGrid1O500A_010: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 96
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_010'
      end
      object dxDBGrid1O500A_012: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_012'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1O500A_013: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_013'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1O500A_014: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_014'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1O500A_015: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_015'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1O500A_016: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_016'
        DisplayFormat = ',0.00;-,0.00'
        Nullable = False
      end
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 108
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 267
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1O150_005: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 91
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_005'
      end
      object dxDBGrid1O150_006: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 98
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_006'
      end
      object dxDBGrid1O150_012: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 351
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_012'
      end
      object dxDBGrid1O500A_018: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_018'
      end
      object dxDBGrid1O500A_019: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_019'
      end
      object dxDBGrid1O500A_022: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_022'
      end
      object dxDBGrid1O500A_023: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_023'
      end
      object dxDBGrid1O500A_024: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_024'
      end
      object dxDBGrid1O500A_025: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O500A_025'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select A.*,'
      '    B.O100_002,'
      '    C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.O150_012,'
      '    D.G100_002,D.G100_003,'
      '    E.G110_002'
      'from ORD500A A,ORD100 B,ORD150 C,GLD100 D,GLD110 E'
      
        'where A.O500A_002=B.O100_001 and A.O500A_017=C.O150_001 and A.O5' +
        '00A_007=D.G100_001 and A.O500A_009=E.G110_001'
      'order by A.O500A_001')
    object ADOQuery1O500A_001: TWideStringField
      DisplayLabel = #25253#20215#21333#21495
      FieldName = 'O500A_001'
      Size = 30
    end
    object ADOQuery1O100_002: TWideStringField
      DisplayLabel = #25253#20215#31867#22411
      FieldName = 'O100_002'
      Size = 50
    end
    object ADOQuery1O500A_002: TIntegerField
      FieldName = 'O500A_002'
      Visible = False
    end
    object ADOQuery1O500A_003: TDateTimeField
      DisplayLabel = #25253#20215#26085#26399
      FieldName = 'O500A_003'
    end
    object ADOQuery1O500A_004: TSmallintField
      DisplayLabel = #25253#20215#29366#24577
      FieldName = 'O500A_004'
      OnGetText = ADOQuery1O500A_004GetText
    end
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'O500A_005'
      Lookup = True