datamodule.dfm

电脑公司销售、财务管理子系统 本文重点研究的是电脑公司管理信息系统

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 279
  Top = 134
  Height = 511
  Width = 619
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=computer;Data Source=conquer'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object LoginQuery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select EmpName'
      'from Department,Employee'
      'where Department.DepId = Employee.DepId')
    Left = 112
    Top = 16
  end
  object LoginDataSource: TDataSource
    DataSet = LoginQuery
    Left = 184
    Top = 16
  end
  object XxQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from PartName')
    Left = 32
    Top = 88
  end
  object XxDataSource: TDataSource
    DataSet = XxQuery
    Left = 112
    Top = 88
  end
  object GkQuery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'Select Customer As '#39038#23458#22995#21517',CustSex As '#39038#23458#24615#21035','
      'CustAddress As '#39038#23458#22320#22336',CustPhone As '#39038#23458#30005#35805','
      'DateTime As '#36141#20080#26085#26399' from seller'
      ' ')
    Left = 184
    Top = 88
  end
  object GkDataSource: TDataSource
    DataSet = GkQuery
    Left = 256
    Top = 88
  end
  object PjQuery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 328
    Top = 88
  end
  object PjDataSource: TDataSource
    DataSet = PjQuery
    Left = 400
    Top = 88
  end
  object SellerTable: TADOTable
    Connection = ADOConnection1
    TableName = 'Seller'
    Left = 472
    Top = 88
  end
  object SellerPartsTable: TADOTable
    Connection = ADOConnection1
    TableName = 'SellerParts'
    Left = 544
    Top = 88
  end
  object BxQuery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 160
  end
  object BxDataSource: TDataSource
    DataSet = BxQuery
    Left = 112
    Top = 160
  end
  object FxQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Repair')
    Left = 184
    Top = 160
  end
  object FxDataSource: TDataSource
    DataSet = FxQuery
    Left = 256
    Top = 160
  end
  object BxQuery0: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select SellerId from Seller')
    Left = 328
    Top = 160
  end
  object XscxQuery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 400
    Top = 160
  end
  object XscxDataSource: TDataSource
    DataSet = XscxQuery
    Left = 472
    Top = 160
  end
  object XscxQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 544
    Top = 160
  end
  object YgzlQuery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from Employee')
    Left = 32
    Top = 232
  end
  object YgzlDataSource: TDataSource
    DataSet = YgzlQuery
    Left = 112
    Top = 232
  end
  object YgjcQuery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from RewardPunishment')
    Left = 184
    Top = 232
  end
  object YgjcDataSource: TDataSource
    DataSet = YgjcQuery
    Left = 256
    Top = 232
  end
  object CpbjQuery0: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 328
    Top = 232
  end
  object CpbjQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 400
    Top = 232
  end
  object CpbjDataSource1: TDataSource
    DataSet = CpbjQuery1
    Left = 472
    Top = 232
  end
  object YggzQuery0: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 544
    Top = 232
  end
  object YggzQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 312
  end
  object YggzDataSource1: TDataSource
    DataSet = YggzQuery1
    Left = 112
    Top = 312
  end
  object CwsrQuery0: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 184
    Top = 312
  end
  object CwsrQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from EarnPaper')
    Left = 256
    Top = 312
  end
  object CwsrDataSource1: TDataSource
    DataSet = CwsrQuery1
    Left = 328
    Top = 312
  end
  object CwzcQuery0: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 400
    Top = 312
  end
  object CwzcQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SpendPaper')
    Left = 472
    Top = 312
  end
  object CwzcDataSource1: TDataSource
    DataSet = CwzcQuery1
    Left = 544
    Top = 312
  end
  object ADOStoredProc_PartName: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'PartName_Store;1'
    Parameters = <>
    Left = 322
    Top = 16
  end
  object DataSource_PartName: TDataSource
    DataSet = ADOStoredProc_PartName
    Left = 402
    Top = 16
  end
  object ADOStoredProc_PartType: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'PartType_Store;1'
    Parameters = <
      item
        Name = '@partname'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Left = 474
    Top = 16
  end
  object DataSource_PartType: TDataSource
    DataSet = ADOStoredProc_PartType
    Left = 546
    Top = 16
  end
  object ADOStoredProc_PartId: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'PartId_Store;1'
    Parameters = <
      item
        Name = '@partname'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@parttype'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 41
    Top = 383
  end
  object DataSource_PartId: TDataSource
    DataSet = ADOStoredProc_PartId
    Left = 113
    Top = 383
  end
  object ADOStoredProc_PartNumber: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'PartNumber_Store;1'
    Parameters = <
      item
        Name = '@partid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Left = 185
    Top = 383
  end
  object ADOQuery_xxxg: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 256
    Top = 16
  end
end