Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit UnitdmDatabaseComponents;
- interface
- uses
- System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;
- type
- TdmDatabaseComponents = class(TDataModule)
- dsSQLServerDataSource: TDataSource;
- adoServerConnection: TADOConnection;
- dsStudentDetails: TDataSource;
- adoGPDisplayHomeworkTable: TADOQuery;
- adoGPDisplayAssessmentTable: TADOQuery;
- dsHomeworkTables: TDataSource;
- dsAssessmentTables: TDataSource;
- dsStudentAssessmentTable: TDataSource;
- dsStudentHomeworkTable: TDataSource;
- adoGPDisplayGroupNames: TADOQuery;
- adoAHWDisplayGroupNames: TADOQuery;
- adoAHWDisplayAssessmentHomework: TADOQuery;
- dsAHWAssessmentHomeworkTable: TDataSource;
- adoUnitGroupProfile: TADOQuery;
- adoUnitAddStudent: TADOQuery;
- adoUnitAddAssessment: TADOQuery;
- adoUnitAddHomework: TADOQuery;
- adoUnitStudentProfile: TADOQuery;
- adoUnitAddGroup: TADOQuery;
- adoUnitHWAndAssesstEntry: TADOQuery;
- adoUnitSPAssessmentTable: TADOQuery;
- adoUnitSPHomeworkTable: TADOQuery;
- adoAHWFindStudent: TADOQuery;
- adoExistanceCheck: TADOQuery;
- adoASDisplayGroup: TADOQuery;
- adoGPDisplayStudentList: TADOQuery;
- adoGPFindGroupDetails: TADOQuery;
- adoUnitAlerts: TADOQuery;
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- dmDatabaseComponents: TdmDatabaseComponents;
- implementation
- {%CLASSGROUP 'Vcl.Controls.TControl'}
- {$R *.dfm}
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement