unit7.pas

delphi语言编写的简单图书馆管理系统页面适合初学者模仿练习！

unit Unit7;

interface

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

type
  TAddCourseForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    DBNavigator1: TDBNavigator;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddCourseForm: TAddCourseForm;

implementation
uses Unit1, Unit2, Unit5;
{$R *.dfm}

procedure TAddCourseForm.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TAddCourseForm.Button1Click(Sender: TObject);
begin
  if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='')
     or (edit5.Text='') then messagedlg(#10'请输入完整的课程信息',mtwarning,[mbOk],0)
  else begin
    ADOQuery1.close;        //核对是否已存在相同的课号
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from course where cno=:Pcno');
    ADOQuery1.Parameters.ParamByName('Pcno').value:=edit1.text;
    ADOQuery1.open;
    if  ADOQuery1.Eof then
        begin
           ADOQuery1.close;        //添加课程
           ADOQuery1.SQL.Clear;
           ADOQuery1.SQL.Add('insert into course(cno,cname,credit,kind,teacher,class) values (:Pcno,:Pcname,:Pcredit,:Pkind,:Pteacher,:Pclass)');
           ADOQuery1.Parameters.ParamByName('Pcno').value:=edit1.text;
           ADOQuery1.Parameters.ParamByName('Pcredit').value:=edit2.text;
           ADOQuery1.Parameters.ParamByName('Pcname').value:=edit3.text;
           ADOQuery1.Parameters.ParamByName('Pteacher').value:=edit4.text;
           ADOQuery1.Parameters.ParamByName('Pclass').value:=edit5.text;
           ADOQuery1.Parameters.ParamByName('Pkind').value:=ComboBox1.Items[combobox1.itemindex];
    if  ADOQuery1.Parameters.ParamByName('Pkind').value=''
        then  messagedlg(#10'请选择该课程性质!', mtwarning,[mbOk],0)
        else begin
               ADOQuery1.ExecSQL; 
               ManageForm.FormCreate(Sender);
               AddCourseForm.close;
             end
        end
    else    messagedlg(#10'该课号已存在,请核对输入!', mtwarning,[mbOk],0);
    end;
end;

end.