cdmunit.pas

来自「实例4学院信息管理系统 - RAR 档案文件」· PAS 代码 · 共 48 行

unit CDMUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBClient, MConnect;

type
  TCDM = class(TDataModule)
    ClientDataSetBase: TClientDataSet;
    DCOMConnectionStudent: TDCOMConnection;
    ClientDataSetYear: TClientDataSet;
    ClientDataSetCredit: TClientDataSet;
    ClientDataSetBaseSTUDENT_ID: TStringField;
    ClientDataSetBaseNAME: TStringField;
    ClientDataSetBaseSEX: TStringField;
    ClientDataSetBaseGRADE: TStringField;
    ClientDataSetBaseNATIVE: TStringField;
    ClientDataSetBaseIDENTITY: TStringField;
    ClientDataSetBaseAGE: TIntegerField;
    ClientDataSetCourse: TClientDataSet;
    ClientDataSetCreditSTUDENT_ID: TStringField;
    ClientDataSetCreditCOURSE: TStringField;
    ClientDataSetCreditGRADES: TIntegerField;
    ClientDataSetCourseSTUDENT_ID: TStringField;
    ClientDataSetCourseCOURSE: TStringField;
    ClientDataSetCourseCOURSE_T: TStringField;
    ClientDataSetCoursePERIOD: TIntegerField;
    ClientDataSetCourseCREDIT: TIntegerField;
    ClientDataSetCourseBEGIN_DATE: TStringField;
    ClientDataSetCourseEND_DATE: TStringField;
    ClientDataSetYearPAMA: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CDM: TCDM;

implementation

{$R *.DFM}

end.