u_data.pas

这是一个简单的学生管理系统

unit U_data;

interface

uses
  SysUtils, Classes, DBTables, DB, ADODB;

type
  TDataM = class(TDataModule)
    Conn: TADOConnection;
    studentDS: TDataSource;
    student: TADOTable;
    COUNTER_C: TADOTable;
    CHANGE: TADOTable;
    student_id1: TADOTable;
    student_id1ds: TDataSource;
    student_id3: TADOTable;
    student_id3ds: TDataSource;
    class4: TADOTable;
    class4ds: TDataSource;
    department4: TADOTable;
    department4ds: TDataSource;
    change4: TADOTable;
    CHANGE_CODE4: TADOTable;
    CHANGE_CODE4ds: TDataSource;
    change4ds: TDataSource;
    studentID: TWideStringField;
    studentNAME: TWideStringField;
    studentSEX: TWideStringField;
    studentCLASS: TWideStringField;
    studentDEPARTMENT: TBCDField;
    studentBIRTHDAY: TDateTimeField;
    studentNATIVE_PLACE: TWideStringField;
    usert: TADOTable;
    REWARD4: TADOTable;
    REWARD4DS: TDataSource;
    punish: TADOTable;
    class2: TADOTable;
    class3: TADOTable;
    student_id4: TADOTable;
    department1: TADOTable;
    department2: TADOTable;
    department3: TADOTable;
    student_id2: TADOTable;
    class2ds: TDataSource;
    class3ds: TDataSource;
    student_id2ds: TDataSource;
    student_id4ds: TDataSource;
    department1ds: TDataSource;
    department2ds: TDataSource;
    department3ds: TDataSource;
    class1: TADOTable;
    class1ds: TDataSource;
    REWARD: TADOTable;
    REWARD_LEVELS4: TADOTable;
    REWARD_LEVELS4ds: TDataSource;
    punish4ds: TDataSource;
    punish4: TADOTable;
    PUNISH_LEVELS4: TADOTable;
    PUNISH_LEVELS4ds: TDataSource;
    COUNTER_R: TADOTable;
    counter_p: TADOTable;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataM: TDataM;

implementation

{$R *.dfm}


end.