datamodule.~pas

delphi 学生选课系统的实现 附有sql 语句

unit DataModule;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TDataModuleForm = class(TForm)
    GroupBox1: TGroupBox;
    ADOConnection: TADOConnection;
    GroupBox2: TGroupBox;
    A_Login: TADOQuery;
    GroupBox3: TGroupBox;
    A_ChangePW: TADOQuery;
    A_PersonInfo: TADOQuery;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    A_Stu_QueryCourse: TADOQuery;
    DS_Stu_QueryCourse: TDataSource;
    A_Stu_IorDCourse: TADOQuery;
    DS_Stu_IorDCourse: TDataSource;
    A_Stu_QueryScore: TADOQuery;
    DS_Stu_QueryScore: TDataSource;
    A_Stu_Query: TADOQuery;
    A_Tea_Query: TADOQuery;
    A_Tea_Display: TADOQuery;
    DS_Tea_Display: TDataSource;
    A_Tea_Score: TADOQuery;
    A_Adm_Query: TADOQuery;
    A_Adm_Display: TADOQuery;
    DS_Adm_Display: TDataSource;
    A_Adm_IorD: TADOQuery;
    A_Adm_Course: TADOQuery;
    DS_Adm_Course: TDataSource;
    A_Adm_A: TADOQuery;
    A_Adm_A_Display: TADOQuery;
    DS_Adm_A_Display: TDataSource;
    A_Adm_B: TADOQuery;
    A_Adm_B_Display: TADOQuery;
    DS_Adm_B_Display: TDataSource;
    A_Adm_C: TADOQuery;
    A_Adm_C_Display: TADOQuery;
    DS_Adm_C_Display: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModuleForm: TDataModuleForm;

implementation

{$R *.dfm}

end.