weijie_data.dfm

DELPHI做的制衣厂管理系统,功能完善,可能马上使用,SQL2000数据库

object WeiJieServer: TWeiJieServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  Left = 295
  Height = 495
  Width = 444
  object ADOCN: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=WeiJieData'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    BeforeConnect = ADOCNBeforeConnect
    Left = 48
    Top = 16
  end
  object CMD: TADOCommand
    Connection = ADOCN
    Parameters = <>
    Left = 48
    Top = 64
  end
  object ADOSProc1: TADOStoredProc
    CacheSize = 1000
    Connection = ADOCN
    Parameters = <>
    Left = 48
    Top = 104
  end
  object ADOSProc2: TADOStoredProc
    CacheSize = 1000
    Connection = ADOCN
    Parameters = <>
    Left = 48
    Top = 144
  end
  object ADO_Pub: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    Parameters = <>
    Left = 48
    Top = 264
  end
  object PClient: TDataSetProvider
    DataSet = ADOClient
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    OnUpdateData = PClientUpdateData
    Left = 192
    Top = 16
  end
  object PStock: TDataSetProvider
    DataSet = ADOStock
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    OnUpdateData = PStockUpdateData
    Left = 192
    Top = 56
  end
  object PHGoods: TDataSetProvider
    DataSet = ADOHGoods
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    OnUpdateData = PHGoodsUpdateData
    Left = 192
    Top = 96
  end
  object PGoods: TDataSetProvider
    DataSet = ADOGoods
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    OnUpdateData = PGoodsUpdateData
    Left = 192
    Top = 136
  end
  object PUser: TDataSetProvider
    DataSet = ADOUser
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    OnUpdateData = PUserUpdateData
    Left = 192
    Top = 176
  end
  object PPub: TDataSetProvider
    DataSet = ADO_Pub
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 48
    Top = 304
  end
  object ADOSProc3: TADOStoredProc
    CacheSize = 1000
    Connection = ADOCN
    Parameters = <>
    Left = 48
    Top = 184
  end
  object ADOStock: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CommandText = 'select * from T_Stock'
    Parameters = <>
    Left = 128
    Top = 56
  end
  object ADOClient: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CommandText = 'select * from t_pubclient'
    Parameters = <>
    Left = 128
    Top = 16
  end
  object ADOHGoods: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CommandText = 'select * from t_hgoods'
    Parameters = <>
    Left = 128
    Top = 96
  end
  object ADOGoods: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CommandText = 'select * from t_goods'
    Parameters = <>
    Left = 128
    Top = 144
  end
  object ADOUser: TADODataSet
    CacheSize = 100
    Connection = ADOCN
    CommandText = 'select * from T_pubuser'
    Parameters = <>
    Left = 128
    Top = 184
  end
  object cdMaster: TADODataSet
    CacheSize = 100
    Connection = ADOCN
    CommandText = 
      'SELECT M.IKey,M.CDH,k.ccode,k.cname,k.cTel,k.Cpost_Dz,M.ddatePz,' +
      'M.ddateJh,M.fje '#13#10'from T_StockPlanMasterZb M INNER JOIN T_PubCli' +
      'ent k '#13#10'ON (M.IkeyClient = k.ikey)'
    Parameters = <>
    Left = 264
    Top = 16
  end
  object cdItem: TADODataSet
    CacheSize = 100
    Connection = ADOCN
    CommandText = 
      'SELECT i.*,s.ccode,s.cName,s.fhd,s.fkd,s.ccolor '#13#10'  FROM T_Stock' +
      'PlanItemZb I INNER JOIN T_STOCK S '#13#10'       ON (I.IKeySTK = S.IKe' +
      'y)'
    DataSource = dsMaster
    IndexFieldNames = 'IKeyM'
    MasterFields = 'IKEY'
    Parameters = <>
    Left = 264
    Top = 64
  end
  object dsMaster: TDataSource
    DataSet = cdMaster
    Left = 328
    Top = 16
  end
  object pGetDocument: TDataSetProvider
    DataSet = cdMaster
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 328
    Top = 64
  end
  object dsColor: TDataSetProvider
    DataSet = cdColor
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    OnUpdateData = dsColorUpdateData
    Left = 192
    Top = 224
  end
  object cdColor: TADODataSet
    CacheSize = 100
    Connection = ADOCN
    CommandText = 'select * from T_pubColor'
    Parameters = <>
    Left = 128
    Top = 224
  end
  object ADOPub: TADOStoredProc
    CacheSize = 1000
    Connection = ADOCN
    ProcedureName = 'P_UPChangePass;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@cCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@cPassO'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@cPassN'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end>
    Left = 48
    Top = 224
  end
  object PGetZhangbenCW: TDataSetProvider
    DataSet = ADO_Pub
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    OnGetData = PGetZhangbenCWGetData
    Left = 48
    Top = 352
  end
  object PGetZhangbenCK: TDataSetProvider
    DataSet = ADO_Pub
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    OnGetData = PGetZhangbenCKGetData
    Left = 48
    Top = 392
  end
  object pubCm: TADODataSet
    Connection = ADOCN
    Parameters = <>
    Left = 128
    Top = 272
  end
end