s_courseunit1.~pas

实例4学院信息管理系统 - RAR 档案文件

unit S_CourseUnit1;

interface

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

type
  TAddCourseForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    LStudent_id: TLabel;
    Label9: TLabel;
    Lname: TLabel;
    Ecourse: TEdit;
    Eperiod: TEdit;
    Ecredit: TEdit;
    Ebegin_date: TEdit;
    Eend_date: TEdit;
    Ccourse_t: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    fstudent_id :string[8];
    fcourse     :string[10];//*学科*/
    fcourse_t   :string[1];//*类别*/
    fperiod     :integer; //*学时*/
    fcredit     :integer; //*学分*/
    fbegin_date :string[8]; //*起始日期*/
    fend_date   :string[8]; //*结束日期*/
  end;

var
  AddCourseForm: TAddCourseForm;

implementation

uses CDMUnit;

{$R *.DFM}

procedure TAddCourseForm.Button1Click(Sender: TObject);
begin
  {确认}
  fstudent_id :=LStudent_id.Caption;//*学号*/

  fcourse     :=Ecourse.Text;//*学科*/
  fcourse_t   :=inttostr(Ccourse_t.ItemIndex);//*类别*/
  if Eperiod.Text='' then
    fperiod:=0
  else
    fperiod:=strtoint(Eperiod.Text); //*学时*/

  if Ecredit.Text='' then
    fcredit :=0
  else
    fcredit :=strtoint(Ecredit.Text); //*学分*/

  fbegin_date :=Ebegin_date.Text; //*起始日期*/
  fend_date   :=Eend_date.Text; //*结束日期*/

  ModalResult := mrOK;

end;

procedure TAddCourseForm.Button2Click(Sender: TObject);
begin
  {取消}
  ModalResult := mrCancel;
end;

end.