datamodule.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

    Left = 120
    Top = 120
  end
  object AQ_User: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Q_User')
    Left = 40
    Top = 72
    object AQ_UserUser_ID: TWideStringField
      FieldName = 'User_ID'
      Size = 10
    end
    object AQ_UserUser_Name: TWideStringField
      FieldName = 'User_Name'
      Size = 10
    end
    object AQ_UserUser_Password: TWideStringField
      FieldName = 'User_Password'
      Size = 10
    end
  end
  object ProductDS: TDataSource
    DataSet = AQ_Prodcut
    Left = 360
    Top = 216
  end
  object AT_Manufacture: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Manufacture'
    Left = 360
    Top = 72
    object AT_ManufactureManufacture_ID: TWideStringField
      FieldName = 'Manufacture_ID'
      Size = 10
    end
    object AT_ManufactureManufacture_Name: TWideStringField
      FieldName = 'Manufacture_Name'
    end
  end
  object ManufactureDS: TDataSource
    DataSet = AT_Manufacture
    Left = 360
    Top = 120
  end
  object AQ_Product_check: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Product_check_Bill')
    Left = 280
    Top = 168
    object AQ_Product_checkQuality_check_No: TWideStringField
      FieldName = 'Quality_check_No'
      Size = 50
    end
    object AQ_Product_checkQuality_check_Time: TDateTimeField
      FieldName = 'Quality_check_Time'
    end
    object AQ_Product_checkBill_Time: TDateTimeField
      FieldName = 'Bill_Time'
    end
    object AQ_Product_checkManufacture_Name: TWideStringField
      FieldName = 'Manufacture_Name'
    end
    object AQ_Product_checkManufacture_ID: TWideStringField
      FieldName = 'Manufacture_ID'
      Size = 10
    end
    object AQ_Product_checkAuditing: TWideStringField
      FieldName = 'Auditing'
      Size = 10
    end
    object AQ_Product_checkHandler: TWideStringField
      FieldName = 'Handler'
      Size = 10
    end
    object AQ_Product_checkConstitutor: TWideStringField
      FieldName = 'Constitutor'
    end
    object AQ_Product_checkState: TWideStringField
      FieldName = 'State'
      Size = 1
    end
  end
  object Product_checkDS: TDataSource
    DataSet = AQ_Product_check
    Left = 280
    Top = 216
  end
  object AQ_Prodcut: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Product')
    Left = 360
    Top = 168
    object AQ_ProdcutProduce_No: TWideStringField
      FieldName = 'Produce_No'
    end
    object AQ_ProdcutProduct_ID: TWideStringField
      FieldName = 'Product_ID'
    end
    object AQ_ProdcutProduct_Name: TWideStringField
      FieldName = 'Product_Name'
      Size = 50
    end
    object AQ_ProdcutProduct_Class: TWideStringField
      FieldName = 'Product_Class'
      Size = 10
    end
    object AQ_ProdcutProduct_Unit: TWideStringField
      FieldName = 'Product_Unit'
      Size = 6
    end
    object AQ_ProdcutScheme_Num: TSmallintField
      FieldName = 'Scheme_Num'
    end
    object AQ_ProdcutComplete_Num: TSmallintField
      FieldName = 'Complete_Num'
    end
  end
  object AT_Product_check: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Product_check'
    Left = 440
    Top = 72
    object AT_Product_checkQuality_check_No: TWideStringField
      FieldName = 'Quality_check_No'
      Size = 50
    end
    object AT_Product_checkQuality_check_Time: TDateTimeField
      FieldName = 'Quality_check_Time'
    end
    object AT_Product_checkBill_Time: TDateTimeField
      FieldName = 'Bill_Time'
    end
    object AT_Product_checkManufacture_Name: TWideStringField
      FieldName = 'Manufacture_Name'
    end
    object AT_Product_checkManufacture_ID: TWideStringField
      FieldName = 'Manufacture_ID'
      Size = 10
    end
    object AT_Product_checkProduce_No: TWideStringField
      FieldName = 'Produce_No'
    end
    object AT_Product_checkProduct_ID: TWideStringField
      FieldName = 'Product_ID'
    end
    object AT_Product_checkProduct_Name: TWideStringField
      FieldName = 'Product_Name'
      Size = 50
    end
    object AT_Product_checkProduct_Unit: TWideStringField
      FieldName = 'Product_Unit'
      Size = 6
    end
    object AT_Product_checkProduct_BatchNo: TWideStringField
      FieldName = 'Product_BatchNo'
    end
    object AT_Product_checkComplete_Num: TSmallintField
      FieldName = 'Complete_Num'
    end
    object AT_Product_checkQuality_goods: TSmallintField
      FieldName = 'Quality_goods'
    end
    object AT_Product_checkInferior: TSmallintField
      FieldName = 'Inferior'
    end
    object AT_Product_checkWaster: TSmallintField
      FieldName = 'Waster'
    end
    object AT_Product_checkAuditing: TWideStringField
      FieldName = 'Auditing'
      Size = 10
    end
    object AT_Product_checkHandler: TWideStringField
      FieldName = 'Handler'
      Size = 10
    end
    object AT_Product_checkConstitutor: TWideStringField
      FieldName = 'Constitutor'
    end
    object AT_Product_checkMemo: TMemoField
      FieldName = 'Memo'
      BlobType = ftMemo
    end
    object AT_Product_checkState: TWideStringField
      FieldName = 'State'
      Size = 1
    end
  end
  object AT_Product_checkDS: TDataSource
    DataSet = AT_Product_check
    Left = 440
    Top = 120
  end
  object AQ_Product_Analyse: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Product_check')
    Left = 440
    Top = 168
    object AQ_Product_AnalyseQuality_check_No: TWideStringField
      FieldName = 'Quality_check_No'
      Size = 50
    end
    object AQ_Product_AnalyseQuality_check_Time: TDateTimeField
      FieldName = 'Quality_check_Time'
    end
    object AQ_Product_AnalyseBill_Time: TDateTimeField
      FieldName = 'Bill_Time'
    end
    object AQ_Product_AnalyseManufacture_Name: TWideStringField
      FieldName = 'Manufacture_Name'
    end
    object AQ_Product_AnalyseManufacture_ID: TWideStringField
      FieldName = 'Manufacture_ID'
      Size = 10
    end
    object AQ_Product_AnalyseProduce_No: TWideStringField
      FieldName = 'Produce_No'
    end
    object AQ_Product_AnalyseProduct_ID: TWideStringField
      FieldName = 'Product_ID'
    end
    object AQ_Product_AnalyseProduct_Name: TWideStringField
      FieldName = 'Product_Name'
      Size = 50
    end
    object AQ_Product_AnalyseProduct_Unit: TWideStringField
      FieldName = 'Product_Unit'
      Size = 6
    end
    object AQ_Product_AnalyseProduct_BatchNo: TWideStringField
      FieldName = 'Product_BatchNo'
    end
    object AQ_Product_AnalyseComplete_Num: TSmallintField
      FieldName = 'Complete_Num'
    end
    object AQ_Product_AnalyseQuality_goods: TSmallintField
      FieldName = 'Quality_goods'
    end
    object AQ_Product_AnalyseInferior: TSmallintField
      FieldName = 'Inferior'
    end
    object AQ_Product_AnalyseWaster: TSmallintField
      FieldName = 'Waster'
    end
    object AQ_Product_AnalyseAuditing: TWideStringField
      FieldName = 'Auditing'
      Size = 10
    end
    object AQ_Product_AnalyseHandler: TWideStringField
      FieldName = 'Handler'
      Size = 10
    end
    object AQ_Product_AnalyseConstitutor: TWideStringField
      FieldName = 'Constitutor'
    end
    object AQ_Product_AnalyseMemo: TMemoField
      FieldName = 'Memo'
      BlobType = ftMemo
    end
    object AQ_Product_AnalyseState: TWideStringField
      FieldName = 'State'
      Size = 1
    end
  end
  object AQ_Product_AnalyseDS: TDataSource
    DataSet = AQ_Product_check
    Left = 440
    Top = 216
  end
  object Product_QualityRV: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\Product_Check.rav'
    Left = 120
    Top = 272
  end
  object RvSystem1: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = 'Report Preview'
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup]
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 40
    Top = 272
  end
  object Product_QualityRDS: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = AQ_Product_Analyse
    Left = 200
    Top = 272
  end
end