ord140_02.dfm.svn-base

一个用Delphi开发的ERP软件

        Name = 'FName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 296
    Top = 168
    object adsOrd140BFCode: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 18
      FieldName = 'FCode'
      Size = 30
    end
    object adsOrd140BFName: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 27
      FieldName = 'FName'
      Size = 60
    end
    object adsOrd140BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsOrd140BFParent: TIntegerField
      FieldName = 'FParent'
      Visible = False
    end
  end
  object qryOrd140B: TADOQuery [11]
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD140B')
    Left = 328
    Top = 168
  end
  object dsOrd140B: TDataSource [12]
    DataSet = adsOrd140B
    Left = 264
    Top = 168
  end
  object dsOrd140C: TDataSource [13]
    DataSet = adsOrd140C
    Left = 456
    Top = 168
  end
  object adsOrd140C: TADODataSet [14]
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Filtered = True
    LockType = ltBatchOptimistic
    OnNewRecord = adsOrd140CNewRecord
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FQtyAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FPriDis'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 488
    Top = 168
    object adsOrd140CFQtyAmt: TFloatField
      DisplayLabel = #25968#37327#37329#39069
      DisplayWidth = 10
      FieldName = 'FQtyAmt'
    end
    object adsOrd140CFPriDis: TFloatField
      DisplayLabel = #20215#26684#25240#25187
      DisplayWidth = 9
      FieldName = 'FPriDis'
    end
    object adsOrd140CFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
  end
  object qryOrd140C: TADOQuery [15]
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD140C')
    Left = 520
    Top = 168
  end
  object qryGld100: TADOQuery [16]
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100')
    Left = 80
    Top = 368
  end
  object qryInv150: TADOQuery [17]
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150 order by I150_002')
    Left = 32
    Top = 56
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
  end
  inherited ActCheckValue: TActionList
    object ActCheckPage1: TAction
      Caption = 'ActCheckPage1'
      OnExecute = ActCheckPage1Execute
    end
    object ActCheckPage2: TAction
      Caption = 'ActCheckPage2'
      OnExecute = ActCheckPage2Execute
    end
    object ActCheckPage3: TAction
      Caption = 'ActCheckPage3'
      OnExecute = ActCheckPage3Execute
    end
    object ActCheckPage4: TAction
      Caption = 'ActCheckPage4'
      OnExecute = ActCheckPage4Execute
    end
  end
  inherited ActSetValue: TActionList
    object ActSetPage1: TAction
      Caption = 'ActSetPage1'
      OnExecute = ActSetPage1Execute
    end
    object ActSetPage2: TAction
      Caption = 'ActSetPage2'
      OnExecute = ActSetPage2Execute
    end
    object ActSetPage3: TAction
      Caption = 'ActSetPage3'
      OnExecute = ActSetPage3Execute
    end
    object ActSetPage4: TAction
      Caption = 'ActSetPage4'
      OnExecute = ActSetPage4Execute
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from ORD140A order by O140A_002')
  end
  object qryItems: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001 as FNo,I150_002 as FCode,I150_003 as FName from ' +
        'INV150')
    Left = 120
    Top = 368
    object qryItemsFCode: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'FCode'
      Size = 30
    end
    object qryItemsFName: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 60
    end
    object qryItemsFNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
  end
  object qryInv120: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select I120_001,I120_002,I120_003,I120_004 from INV120 order by ' +
        'I120_002')
    Left = 272
    Top = 64
    object qryInv120I120_001: TAutoIncField
      FieldName = 'I120_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv120I120_002: TWideStringField
      DisplayLabel = #20998#31867#32534#21495
      FieldName = 'I120_002'
    end
    object qryInv120I120_003: TWideStringField
      DisplayLabel = #20998#31867#21517#31216
      FieldName = 'I120_003'
      Size = 50
    end
    object qryInv120I120_004: TIntegerField
      FieldName = 'I120_004'
      Visible = False
    end
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select O150_001,O150_002,O150_003 from ORD150 order by O150_002')
    Left = 32
    Top = 96
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
  end
  object qryOrd110: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD110 order by O110_002')
    Left = 272
    Top = 144
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 32
    Top = 136
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TWideStringField
      DisplayLabel = #38144#21806#21592#21495
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TWideStringField
      DisplayLabel = #38144#21806#21592#21517
      FieldName = 'H150_003'
    end
  end
  object qrySaleGrade: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select S100_001,S100_002,S100_003 from SYS100 where S100_004=1 o' +
        'rder by S100_002')
    Left = 72
    Top = 136
    object qrySaleGradeS100_001: TIntegerField
      FieldName = 'S100_001'
      Visible = False
    end
    object qrySaleGradeS100_002: TWideStringField
      DisplayLabel = #32423#21035#32534#21495
      FieldName = 'S100_002'
    end
    object qrySaleGradeS100_003: TWideStringField
      DisplayLabel = #32423#21035#21517#31216
      FieldName = 'S100_003'
      Size = 50
    end
  end
  object qryCustGrade: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select S100_001,S100_002,S100_003 from SYS100 where S100_004=0 o' +
        'rder by S100_002')
    Left = 112
    Top = 96
    object qryCustGradeS100_001: TIntegerField
      FieldName = 'S100_001'
      Visible = False
    end
    object qryCustGradeS100_002: TWideStringField
      DisplayLabel = #32423#21035#32534#21495
      FieldName = 'S100_002'
    end
    object qryCustGradeS100_003: TWideStringField
      DisplayLabel = #32423#21035#21517#31216
      FieldName = 'S100_003'
      Size = 50
    end
  end
  object qryOrd120: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select O120_001,O120_002,O120_003 from ORD120 order by O120_002')
    Left = 280
    Top = 272
  end
  object dsOrd110: TDataSource
    DataSet = qryOrd110
    Left = 304
    Top = 144
  end
  object dsOrd120: TDataSource
    DataSet = qryOrd120
    Left = 312
    Top = 272
  end
  object dsInv120: TDataSource
    DataSet = qryInv120
    Left = 304
    Top = 64
  end
end