Advertisement
Guest User

Untitled

a guest
Apr 24th, 2017
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.46 KB | None | 0 0
  1. unit UnitdmDatabaseComponents;
  2.  
  3. interface
  4.  
  5. uses
  6.   System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;
  7.  
  8. type
  9.   TdmDatabaseComponents = class(TDataModule)
  10.     dsSQLServerDataSource: TDataSource;
  11.     adoServerConnection: TADOConnection;
  12.     dsStudentDetails: TDataSource;
  13.     adoGPDisplayHomeworkTable: TADOQuery;
  14.     adoGPDisplayAssessmentTable: TADOQuery;
  15.     dsHomeworkTables: TDataSource;
  16.     dsAssessmentTables: TDataSource;
  17.     dsStudentAssessmentTable: TDataSource;
  18.     dsStudentHomeworkTable: TDataSource;
  19.     adoGPDisplayGroupNames: TADOQuery;
  20.     adoAHWDisplayGroupNames: TADOQuery;
  21.     adoAHWDisplayAssessmentHomework: TADOQuery;
  22.     dsAHWAssessmentHomeworkTable: TDataSource;
  23.     adoUnitGroupProfile: TADOQuery;
  24.     adoUnitAddStudent: TADOQuery;
  25.     adoUnitAddAssessment: TADOQuery;
  26.     adoUnitAddHomework: TADOQuery;
  27.     adoUnitStudentProfile: TADOQuery;
  28.     adoUnitAddGroup: TADOQuery;
  29.     adoUnitHWAndAssesstEntry: TADOQuery;
  30.     adoUnitSPAssessmentTable: TADOQuery;
  31.     adoUnitSPHomeworkTable: TADOQuery;
  32.     adoAHWFindStudent: TADOQuery;
  33.     adoExistanceCheck: TADOQuery;
  34.     adoASDisplayGroup: TADOQuery;
  35.     adoGPDisplayStudentList: TADOQuery;
  36.     adoGPFindGroupDetails: TADOQuery;
  37.     adoUnitAlerts: TADOQuery;
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   dmDatabaseComponents: TdmDatabaseComponents;
  46.  
  47. implementation
  48.  
  49. {%CLASSGROUP 'Vcl.Controls.TControl'}
  50.  
  51. {$R *.dfm}
  52.  
  53. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement