udm.~dfm

完整的物流管理系统源码,包含数据库,适合初学者参考

object DM: TDM
  OldCreateOrder = False
  Left = 308
  Top = 343
  Height = 319
  Width = 747
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog='#29289#27969#31649#29702#31995#32479';Data Source=.;Use Procedure for Prepare=1;Auto' +
      ' Translate=True;Packet Size=4096;Workstation ID=MRDELPHI;Use Enc' +
      'ryption for Data=False;Tag with column collation when possible=F' +
      'alse'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 16
  end
  object QUSER: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 84
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 420
    Top = 16
  end
  object QSJHF: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 285
    Top = 16
  end
  object QSJBF: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 218
    Top = 16
  end
  object QYHQX: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 84
    Top = 70
  end
  object DSYHQX: TDataSource
    DataSet = DSOYHQX
    Left = 84
    Top = 180
  end
  object DSOYHQX: TADODataSet
    Connection = ADOConn
    CommandText = 'select * from '#29992#25143#34920
    Parameters = <>
    Left = 84
    Top = 125
    object DSOYHQXDSDesigner: TStringField
      FieldName = #29992#25143#32534#21495
      Size = 30
    end
    object DSOYHQXDSDesigner2: TStringField
      FieldName = #29992#25143#21517#31216
    end
    object DSOYHQXDSDesigner3: TStringField
      FieldName = #23494#30721
    end
    object DSOYHQXB1: TBooleanField
      FieldName = 'B1'
    end
    object DSOYHQXB2: TBooleanField
      FieldName = 'B2'
    end
    object DSOYHQXB3: TBooleanField
      FieldName = 'B3'
    end
    object DSOYHQXB4: TBooleanField
      FieldName = 'B4'
    end
    object DSOYHQXB5: TBooleanField
      FieldName = 'B5'
    end
    object DSOYHQXB6: TBooleanField
      FieldName = 'B6'
    end
    object DSOYHQXB7: TBooleanField
      FieldName = 'B7'
    end
    object DSOYHQXB8: TBooleanField
      FieldName = 'B8'
    end
    object DSOYHQXB9: TBooleanField
      FieldName = 'B9'
    end
    object DSOYHQXB10: TBooleanField
      FieldName = 'B10'
    end
    object DSOYHQXB11: TBooleanField
      FieldName = 'B11'
    end
    object DSOYHQXB12: TBooleanField
      FieldName = 'B12'
    end
    object DSOYHQXB13: TBooleanField
      FieldName = 'B13'
    end
    object DSOYHQXB14: TBooleanField
      FieldName = 'B14'
    end
    object DSOYHQXB15: TBooleanField
      FieldName = 'B15'
    end
    object DSOYHQXB16: TBooleanField
      FieldName = 'B16'
    end
  end
  object QCSH: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 352
    Top = 16
  end
  object QGSJBXX: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 151
    Top = 16
  end
  object QBMJBXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 150
    Top = 70
  end
  object DSBMJBXX: TDataSource
    DataSet = DSOBMJBXX
    Left = 150
    Top = 180
  end
  object DSOBMJBXX: TADODataSet
    Connection = ADOConn
    CommandText = 'select * from '#37096#38376#20449#24687#34920
    Parameters = <>
    Left = 150
    Top = 125
    object DSOBMJBXXDSDesigner: TStringField
      FieldName = #37096#38376#32534#21495
      Size = 30
    end
    object DSOBMJBXXDSDesigner2: TStringField
      FieldName = #37096#38376#21517#31216
      Size = 30
    end
    object DSOBMJBXXDSDesigner3: TStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object QYGJBXX: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 217
    Top = 70
  end
  object DSOYGJBXX: TADODataSet
    Connection = ADOConn
    CommandText = 'select * from '#21592#24037#20449#24687#34920
    Parameters = <>
    Left = 217
    Top = 125
    object DSOYGJBXXDSDesigner: TStringField
      FieldName = #21592#24037#32534#21495
      Size = 30
    end
    object DSOYGJBXXDSDesigner2: TStringField
      FieldName = #21592#24037#22995#21517
    end
    object DSOYGJBXXDSDesigner3: TStringField
      FieldName = #21592#24037#24615#21035
      Size = 4
    end
    object DSOYGJBXXDSDesigner4: TStringField
      FieldName = #21592#24037#32844#21153
    end
    object DSOYGJBXXDSDesigner5: TStringField
      FieldName = #21592#24037#37096#38376
    end
    object DSOYGJBXXDSDesigner6: TStringField
      FieldName = #32852#31995#30005#35805
    end
    object DSOYGJBXXDSDesigner7: TStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object DSYGJBXX: TDataSource
    DataSet = DSOYGJBXX
    Left = 217
    Top = 180
  end
  object QKHJBXX: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 283
    Top = 70
  end
  object DSOKHJBXX: TADODataSet
    Connection = ADOConn
    CommandText = 'select * from '#23458#25143#20449#24687#34920
    Parameters = <>
    Left = 283
    Top = 125
    object DSOKHJBXXDSDesigner: TStringField
      FieldName = #23458#25143#32534#21495
      Size = 30
    end
    object DSOKHJBXXDSDesigner2: TStringField
      FieldName = #23458#25143#21517#31216
      Size = 50
    end
    object DSOKHJBXXDSDesigner3: TStringField
      FieldName = #20844#21496#24615#36136
      Size = 30
    end
    object DSOKHJBXXDSDesigner4: TStringField
      FieldName = #20844#21496#31867#21035
    end
    object DSOKHJBXXDSDesigner5: TStringField
      FieldName = #36890#20449#22320#22336
      Size = 50
    end
    object DSOKHJBXXDSDesigner6: TStringField
      FieldName = #25152#23646#30465#20221
    end
    object DSOKHJBXXDSDesigner7: TStringField
      FieldName = #20027#38144#20135#21697
    end
    object DSOKHJBXXDSDesigner8: TStringField
      FieldName = #32852#31995#20154
    end
    object DSOKHJBXXDSDesigner9: TStringField
      FieldName = #32852#31995#30005#35805
    end
    object DSOKHJBXXDSDesigner10: TStringField
      FieldName = #20256#30495
    end
    object DSOKHJBXXDSDesigner11: TStringField
      FieldName = #37038#32534
    end
    object DSOKHJBXXDSDesigner12: TStringField
      FieldName = #22266#23450#30005#35805
    end
    object DSOKHJBXXDSDesigner13: TStringField
      FieldName = #26399#21021#27424#27454
    end
    object DSOKHJBXXDSDesigner14: TStringField
      FieldName = #24320#25143#38134#34892
    end
    object DSOKHJBXXDSDesigner15: TStringField
      FieldName = #38134#34892#36134#21495
      Size = 30
    end
    object DSOKHJBXXDSDesigner16: TStringField
      FieldName = #32435#31246#21495
      Size = 30
    end
    object DSOKHJBXXDSDesigner17: TStringField
      FieldName = #20844#21496#20027#39029
      Size = 30
    end
    object DSOKHJBXXDSDesigner18: TStringField
      FieldName = #30005#23376#37038#31665
      Size = 30
    end
    object DSOKHJBXXDSDesigner19: TStringField
      FieldName = #27861#20154#20195#34920
    end
    object DSOKHJBXXDSDesigner20: TStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object DSKHJBXX: TDataSource
    DataSet = DSOKHJBXX
    Left = 283
    Top = 180
  end
  object QSJJBXX: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 350
    Top = 70
  end
  object DSOSJJBXX: TADODataSet
    Connection = ADOConn
    CommandText = 'select * from '#21496#26426#20449#24687#34920
    Parameters = <>
    Left = 350
    Top = 125
    object DSOSJJBXXDSDesigner: TStringField
      FieldName = #21496#26426#32534#21495
      Size = 30
    end
    object DSOSJJBXXDSDesigner2: TStringField
      FieldName = #21496#26426#22995#21517
    end
    object DSOSJJBXXDSDesigner3: TStringField
      FieldName = #21496#26426#24615#21035
      Size = 10
    end
    object DSOSJJBXXDSDesigner4: TDateTimeField
      FieldName = #20986#29983#26085#26399
    end
    object DSOSJJBXXDSDesigner5: TStringField
      FieldName = #23398#21382
      Size = 8
    end
    object DSOSJJBXXDSDesigner6: TStringField
      FieldName = #39550#35777#31867#22411
    end
    object DSOSJJBXXDSDesigner7: TStringField
      FieldName = #39550#29031#21495#30721
      Size = 30
    end
    object DSOSJJBXXDSDesigner8: TStringField
      FieldName = #36523#20221#35777#21495
      Size = 30
    end
    object DSOSJJBXXDSDesigner9: TStringField
      FieldName = #32463#33829#36335#32447
      Size = 30