jhdgl.dfm

库房管理系统

      000000000100020000000000FFFFFF0000000002000000000000000000D80E00
      0006004D656D6F323500020028020000700000002C0000001400000003000000
      01000000000000000000FFFFFF1F2E02000000000001000600664D616B657200
      000000FFFF00000000000200000001000000000500417269616C000A00000002
      0000000000000000000100020000000000FFFFFF000000000200000000000000
      0000730F000006004D656D6F323600020028020000100100002C000000140000
      000300000001000000000000000000FFFFFF1F2E02000000000001001C005B41
      646F636F6E737472616374496E7075742E22664D616B6572225D00000000FFFF
      00000000000200000001000000000500417269616C000A000000000000000000
      000000000100020000000000FFFFFF0000000002000000000000000000FA0F00
      0006004D656D6F32370002005D02000070000000440000001400000003000000
      01000000000000000000FFFFFF1F2E020000000000010008006652656D61726B
      7300000000FFFF00000000000200000001000000000500417269616C000A0000
      00020000000000000000000100020000000000FFFFFF00000000020000000000
      000000009710000006004D656D6F32380002005D020000100100006800000014
      0000000300000001000000000000000000FFFFFF1F2E02000000000001001E00
      5B41646F636F6E737472616374496E7075742E226652656D61726B73225D0000
      0000FFFF00000000000200000001000000000500417269616C000A0000000000
      00000000000000000100020000000000FFFFFF00000000020000000000000000
      002811000006004D656D6F3239000200D80000002C000000DC0000001C000000
      0300000001000000000000000000FFFFFF1F2E02000000000001001200B3C920
      20C6B72020BDF82020B2D62020B5A500000000FFFF0000000000020000000100
      0000000500417269616C000C0000000000000000000A00000001000200000000
      00FFFFFF0000000002000000000000000000AA11000006004D656D6F33300002
      001C0200003800000020000000140000000300000001000000000000000000FF
      FFFF1F2E020000000000010003004E4F3A00000000FFFF000000000002000000
      01000000000500417269616C000A000000000000000000000000000100020000
      000000FFFFFF000000000200000000000000FEFEFF0000000000000000000000
      00FC0000000000000000000000000000000058008E81ECC61CFCE2409DE1B80F
      0D08E340}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = AdoconstractInput
    Left = 490
    Top = 224
  end
  object frTextExport1: TfrTextExport
    ScaleX = 1.000000000000000000
    ScaleY = 1.000000000000000000
    Left = 520
    Top = 224
  end
  object frOLEExcelExport1: TfrOLEExcelExport
    CellsAlign = False
    CellsFillColor = False
    CellsFontColor = False
    CellsFontName = False
    CellsFontSize = False
    CellsFontStyle = False
    Left = 562
    Top = 224
  end
  object frJPEGExport1: TfrJPEGExport
    Left = 594
    Top = 224
  end
  object frRTFExport1: TfrRTFExport
    ScaleX = 1.300000000000000000
    ScaleY = 1.000000000000000000
    Left = 522
    Top = 256
  end
  object frCSVExport1: TfrCSVExport
    ScaleX = 1.000000000000000000
    ScaleY = 1.000000000000000000
    Delimiter = ';'
    Left = 562
    Top = 256
  end
  object frHTML2Export1: TfrHTML2Export
    Scale = 1.000000000000000000
    Navigator.Position = []
    Navigator.Font.Charset = DEFAULT_CHARSET
    Navigator.Font.Color = clWindowText
    Navigator.Font.Height = -11
    Navigator.Font.Name = 'MS Sans Serif'
    Navigator.Font.Style = []
    Navigator.InFrame = False
    Navigator.WideInFrame = False
    Left = 594
    Top = 256
  end
  object frDesigner1: TfrDesigner
    Left = 624
    Top = 224
  end
  object QCheckQty: TADOQuery
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'StorageID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'ProductID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select fCurQty from tStorageTotal'
      'where fStorageID=:StorageID and fProductID=:ProductID')
    Left = 480
    Top = 416
  end
  object QStorageAccount: TADOQuery
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'DepotID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * from tStorageAccount where fStorageID=:DepotID')
    Left = 544
    Top = 416
    object QStorageAccountfStorageID: TIntegerField
      FieldName = 'fStorageID'
    end
    object QStorageAccountfProductID: TIntegerField
      FieldName = 'fProductID'
    end
    object QStorageAccountfAccountQty: TBCDField
      FieldName = 'fAccountQty'
      Precision = 10
      Size = 2
    end
    object QStorageAccountfFactQty: TBCDField
      FieldName = 'fFactQty'
      Precision = 10
      Size = 2
    end
    object QStorageAccountfPrePrice: TBCDField
      FieldName = 'fPrePrice'
      Precision = 10
      Size = 2
    end
  end
  object dsDetail: TDataSource
    DataSet = QDetail
    Left = 336
    Top = 416
  end
  object QDetail: TADOQuery
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    DataSource = dsMaster
    Parameters = <
      item
        Name = 'fID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Value = 6
      end>
    SQL.Strings = (
      'Select * from tCheckSub where fID=:fID')
    Left = 368
    Top = 416
    object QDetailsCode: TStringField
      DisplayLabel = '?'#21697#20195'?'
      DisplayWidth = 14
      FieldKind = fkLookup
      FieldName = 'sCode'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'fCode'
      KeyFields = 'fResID'
      Lookup = True
    end
    object QDetailsName: TStringField
      DisplayLabel = '?'#21697#21517'?'
      DisplayWidth = 29
      FieldKind = fkLookup
      FieldName = 'sName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fResID'
      Size = 50
      Lookup = True
    end
    object QDetailsUnitsName: TStringField
      DisplayLabel = '?'#20301
      DisplayWidth = 4
      FieldKind = fkLookup
      FieldName = 'sUnitsName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'fUnitsName'
      KeyFields = 'fResID'
      Size = 10
      Lookup = True
    end
    object QDetailsColor: TStringField
      DisplayLabel = '?'#33394
      DisplayWidth = 4
      FieldKind = fkLookup
      FieldName = 'sColor'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'fcolor'
      KeyFields = 'fResID'
      Size = 10
      Lookup = True
    end
    object QDetailsSpec: TStringField
      DisplayLabel = '?'#26684
      DisplayWidth = 6
      FieldKind = fkLookup
      FieldName = 'sSpec'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'fSpec'
      KeyFields = 'fResID'
      Size = 50
      Lookup = True
    end
    object QDetailfPrePrice: TBCDField
      DisplayLabel = '?'#20215
      DisplayWidth = 9
      FieldName = 'fPrePrice'
      DisplayFormat = '0.00'
      Precision = 12
    end
    object QDetailfAccountQty: TBCDField
      DisplayLabel = '?'#23384'?'#37327
      DisplayWidth = 8
      FieldName = 'fAccountQty'
      Precision = 10
      Size = 2
    end
    object QDetailfFactQty: TBCDField
      DisplayLabel = '?'#23384'?'#37327
      DisplayWidth = 8
      FieldName = 'fFactQty'
      Precision = 10
      Size = 2
    end
    object QDetailfAdjustQty: TBCDField
      DisplayLabel = #30408'??'#37327
      DisplayWidth = 8
      FieldName = 'fAdjustQty'
      Precision = 10
      Size = 2
    end
    object QDetailrAdjustSum: TFloatField
      DisplayLabel = #30408'?'#37329'?'
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'rAdjustSum'
      DisplayFormat = '0.00'
      Calculated = True
    end
    object QDetailfID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fID'
      Visible = False
    end
    object QDetailfResID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fResID'
      Visible = False
    end
  end
  object dsMaster: TDataSource
    AutoEdit = False
    DataSet = QMaster
    Left = 256
    Top = 416
  end
  object QMaster: TADOQuery
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from tCheck where fSubmitFlag=0')
    Left = 288
    Top = 416
    object QMasterfID: TIntegerField
      FieldName = 'fID'
    end
    object QMasterfNO: TWideStringField
      FieldName = 'fNO'
    end
    object QMasterfHandWorkNO: TWideStringField
      FieldName = 'fHandWorkNO'
    end
    object QMasterfDepot: TIntegerField
      FieldName = 'fDepot'
    end
    object QMastersDepotName: TStringField
      FieldKind = fkLookup
      FieldName = 'sDepotName'
      LookupDataSet = QStorage
      LookupKeyFields = 'fId'
      LookupResultField = 'fName'
      KeyFields = 'fDepot'
      Size = 50
      Lookup = True
    end
    object QMasterfCheckDate: TDateTimeField
      FieldName = 'fCheckDate'
    end
    object QMasterfDate: TDateTimeField
      FieldName = 'fDate'
    end
    object QMasterfSubmitFlag: TBooleanField
      FieldName = 'fSubmitFlag'
    end
    object QMasterfSubmitDate: TDateTimeField
      FieldName = 'fSubmitDate'
    end
    object QMasterfSubmitUser: TWideStringField
      FieldName = 'fSubmitUser'
    end
    object QMasterfMaker: TWideStringField
      FieldName = 'fMaker'
    end
    object QMasterfChecker: TWideStringField
      FieldName = 'fChecker'
    end
    object QMasterfRemarks: TWideStringField
      FieldName = 'fRemarks'
      Size = 100
    end
  end
  object QStorage: TADOQuery
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tcontractstock')
    Left = 416
    Top = 416
  end
  object insertByInput: TADOQuery
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic