addcourseunit.pas

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

unit addcourseUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, ExtCtrls, Grids, DBGrids, DBCtrls;

type
  TaddcourseForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    DBEdit1: TMaskEdit;
    DBComboBox1: TComboBox;
    Label5: TLabel;
    Label9: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    DBEdit2: TMaskEdit;
    DBEdit3: TMaskEdit;
    Label11: TLabel;
    Label10: TLabel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addcourseForm: TaddcourseForm;

implementation
uses datamoduleunit;

{$R *.dfm}

procedure TaddcourseForm.FormCreate(Sender: TObject);
begin
with datamodule1.tabletype do
 begin
   open;
   while not eof do
      begin
      dbcombobox1.Items.Add(fieldbyname('TypeName').AsString);
      next;
      end;
   close;
 end;
datamodule1.tablecourse.Open;
end;

procedure TaddcourseForm.BitBtn1Click(Sender: TObject);
var temp:string;
begin
if (trim(dbedit1.Text)='')or (trim(dbedit2.Text)='')or(trim(dbedit3.Text)='.')or(dbcombobox1.Text='')then
begin
 messagebox (handle,'课程名称、学时、学分、课程类型为必填字段！','警告',mb_ok) ;
 exit;
end;
try
with datamodule1.tablecourse do
    begin
     if not datamodule1.tablecourse.Locate('cname',trim(dbedit1.Text),[]) then
        begin
          insert;
          fieldbyname('cname').AsString:=trim(dbedit1.Text);
          fieldbyname('studytime').AsString:=trim(dbedit2.Text);
          fieldbyname('credit').AsString:=trim(dbedit3.Text);
          fieldbyname('TypeNO').AsInteger:=dbcombobox1.Items.IndexOf(dbcombobox1.Text)+1;
          post;
        end
      else
       begin temp:=dbedit1.Text+'的记录已经存在，是否更新原来的记录？';
        if messagebox (handle,pchar(temp),'警告',MB_OKCANCEL)=IDOK  then
        begin
          edit;
          fieldbyname('cname').AsString:=trim(dbedit1.Text);
          fieldbyname('studytime').AsString:=trim(dbedit2.Text);
          fieldbyname('credit').AsString:=trim(dbedit3.Text);
          fieldbyname('TypeNO').AsInteger:=dbcombobox1.Items.IndexOf(dbcombobox1.Text)+1;
          post;
        end;
        end;
        end;
  except raise exception.Create('学分的数据类型好像不对？请检查');
  exit;
  end;

    temp:=dbedit1.Text+'的信息已成功添加/更新到数据库中！';
    messagebox (handle,pchar(temp),'反馈信息',MB_OK);
    dbedit1.Clear;
    dbedit2.Clear;
    dbedit3.Clear;
    dbcombobox1.ItemIndex:=-1;
end;

procedure TaddcourseForm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TaddcourseForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 datamodule1.tablecourse.Close;
end;

end.