ser510_01.dfm.svn-base

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

inherited Ser510_01Form: TSer510_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #35843#26597#36807#31243#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
    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
      Filter.Criteria = {00000000}
      object dxDBGrid1S510_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 127
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_001'
      end
      object dxDBGrid1S510_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 108
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_002'
      end
      object dxDBGrid1S500_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 304
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_002'
      end
      object dxDBGrid1S510_003: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_003'
      end
      object dxDBGrid1S510_005: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_005'
      end
      object dxDBGrid1S510_006: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_006'
      end
      object dxDBGrid1S510_007: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_007'
      end
      object dxDBGrid1S510_008: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_008'
      end
      object dxDBGrid1S510_009: TdxDBGridMemoColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_009'
      end
      object dxDBGrid1S510_010: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_010'
      end
      object dxDBGrid1S510_011: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_011'
      end
      object dxDBGrid1S510_012: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_012'
      end
      object dxDBGrid1S510_013: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S510_013'
      end
      object dxDBGrid1H150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 364
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1O150_005: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 304
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_005'
      end
      object dxDBGrid1O150_006: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 304
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_006'
      end
      object dxDBGrid1O150_012: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 604
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_012'
      end
      object dxDBGrid1S500_007: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_007'
      end
      object dxDBGrid1S500_011: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_011'
      end
      object dxDBGrid1S500_012: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_012'
      end
      object dxDBGrid1S500_013: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_013'
      end
      object dxDBGrid1S500_014: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_014'
      end
      object dxDBGrid1S500_016: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_016'
      end
      object dxDBGrid1I150_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 364
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1S500_019: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_019'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select A.*,'
      
        '       B.S500_002,B.S500_007,B.S500_011,B.S500_012,B.S500_013,B.' +
        'S500_014,B.S500_016,B.S500_017,B.S500_018,B.S500_019,B.S500_033,'
      '       C.H150_002,C.H150_003,'
      
        '       D.O150_001,D.O150_002,D.O150_003,D.O150_005,D.O150_006,D.' +
        'O150_012'
      'from SER510 A, SER500 B, HRM150 C, ORD150 D'
      'where A.S510_002=B.S500_001 and A.S510_004=C.H150_001 and '
      '      B.S500_017=D.O150_001'
      'order by S500_001')
    object ADOQuery1S510_001: TWideStringField
      DisplayLabel = #35843#26597#21333#21495
      FieldName = 'S510_001'
      Size = 30
    end
    object ADOQuery1S510_002: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S510_002'
      Size = 30
    end
    object ADOQuery1S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object ADOQuery1S510_003: TDateTimeField
      DisplayLabel = #35843#26597#26085#26399
      FieldName = 'S510_003'
    end
    object ADOQuery1S510_005: TWideStringField
      DisplayLabel = #21463#35843#26597#20154
      FieldName = 'S510_005'
    end
    object ADOQuery1S510_006: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'S510_006'
    end
    object ADOQuery1S510_007: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'S510_007'
    end
    object ADOQuery1S510_008: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'S510_008'
    end
    object ADOQuery1S510_009: TMemoField
      DisplayLabel = #35843#26597#20869#23481
      FieldName = 'S510_009'
      BlobType = ftMemo
    end
    object ADOQuery1S510_010: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S510_010'
    end
    object ADOQuery1S510_011: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S510_011'
    end
    object ADOQuery1S510_012: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S510_012'
    end
    object ADOQuery1S510_013: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S510_013'
    end
    object ADOQuery1H150_002: TWideStringField
      DisplayLabel = #35843#26597#20154#21495
      FieldName = 'H150_002'
    end
    object ADOQuery1H150_003: TWideStringField
      DisplayLabel = #35843#26597#20154#21517
      FieldName = 'H150_003'
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23458#25142#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Size = 50
      Calculated = True
    end
    object ADOQuery1O150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_006'
      Size = 50
      Calculated = True
    end
    object ADOQuery1O150_012: TWideStringField
      DisplayLabel = #23458#25142#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object ADOQuery1S500_007: TDateTimeField
      DisplayLabel = #26469#30005#26085#26399
      FieldName = 'S500_007'
    end
    object ADOQuery1S500_011: TWideStringField
      DisplayLabel = #26469#30005#20154#21592
      FieldName = 'S500_011'
    end
    object ADOQuery1S500_012: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'S500_012'
    end
    object ADOQuery1S500_013: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'S500_013'
    end
    object ADOQuery1S500_016: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S500_016'
      Size = 30
    end
    object ADOQuery1S500_014: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'S500_014'
    end
    object ADOQuery1I150_002: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'S500_018'
      Size = 30
      Lookup = True
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'S500_018'
      Size = 60
      Lookup = True
    end
    object ADOQuery1S500_019: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'S500_019'
      Size = 30
    end
    object ADOQuery1S500_033: TMemoField
      DisplayLabel = #26469#30005#20869#23481
      FieldName = 'S500_033'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1S500_018: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'S500_018'
      Visible = False
    end
    object ADOQuery1S500_017: TIntegerField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'S500_017'
      Visible = False
    end
    object ADOQuery1O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1S510_004: TIntegerField
      DisplayLabel = #35843#26597#20154#21592
      FieldName = 'S510_004'
      Visible = False
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150')
    Left = 104
    Top = 136
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
    end
    object qryInv150I150_002: TWideStringField
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      FieldName = 'I150_003'
      Size = 60
    end
  end
end