kemu.~pas

一个比较好的网上考试系统

unit kemu;

interface

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

type
  TForm6 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    q5: TADOQuery;
    ListBox1: TListBox;
    Label4: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);

begin
   label3.Visible:=false;
   q5.SQL.Clear ;
   q5.sql.Add('select cname from course');
   q5.Open;

  while (not q5.Eof) do
   begin
     listbox1.Items.Add(q5.Fields[0].AsString);
     q5.Next;
    end;
  //------------------将数据库中所有的科目名全部加入到listbox1中---------------------------
end;

procedure TForm6.SpeedButton4Click(Sender: TObject);
begin
 close();
end;

procedure TForm6.SpeedButton1Click(Sender: TObject);

begin
 if edit1.Text='' then
   begin
   MessageBox(handle, '输入科目名称!', '提示',  mb_IconInformation + mb_Ok);
   exit;
   end;
//-------------------科目名不能为空--------------------------
 if edit2.Text='' then
   begin
   MessageBox(handle, '输入科目代码!', '提示',  mb_IconInformation + mb_Ok);
   exit;
   end
//----------------科目代码不能为空-----------------------------------
  else
   begin
   q5.Close;
    q5.SQL.Clear;
    q5.SQL.add('select * from course where cno='+chr(39)+edit2.Text+chr(39));
    q5.Open  ;
      if not q5.Eof  then
        begin
          MessageBox(handle, '该科目号已存在!', '提示',  mb_IconInformation + mb_Ok);
          edit2.Clear;
          exit;
        end
        //---------------科目号不能相同-----------------------------------
     else
       begin
       q5.Close;
       q5.SQL.Clear;
       q5.SQL.add('select * from course where cname='+chr(39)+edit1.Text+chr(39));
       q5.Open  ;
        if not q5.Eof  then
          begin
           MessageBox(handle, '该科目已存在!', '提示',  mb_IconInformation + mb_Ok);
           edit1.Clear;
           exit;
           end;
  //--------------------------科目名不能相同-------------------------
       q5.Insert;
       q5.Fields[0].AsString :=edit2.Text;
       q5.Fields[1].asstring:=edit1.Text;
       q5.Post ;
       listbox1.Items.add(edit1.Text );
       MessageBox(handle, '添加成功!', '提示',  mb_IconInformation + mb_Ok);
         edit1.Clear;
         edit2.Clear;
         exit;
        end;
    end;
end;

 //------------------------添加新的科目-------------------------------------------
procedure TForm6.SpeedButton2Click(Sender: TObject);
begin
  if edit1.Text='' then
     begin
      MessageBox(handle, '选择要删除的科目!', '提示',  mb_IconInformation + mb_Ok);
      exit;
     end
 else
     begin
     q5.Close;
     q5.SQL.Clear;
     q5.SQL.Add('select * from course where cname='+chr(39)+edit1.Text+chr(39));
     q5.Open;
       if messagedlg('真的要删除么？',mtconfirmation,[mbyes,mbno],0)=mryes  then
         begin
         q5.delete;
         exit;
         end
       else
         exit;
     end;
end;
//-------------------------删除所选的科目-----------------------------------
procedure TForm6.ListBox1Click(Sender: TObject);
begin
  edit1.Text:=listbox1.Items.Strings[listbox1.ItemIndex];
end;

procedure TForm6.SpeedButton3Click(Sender: TObject);
begin
  label3.Caption :=listbox1.Items.Strings[listbox1.ItemIndex];
  if edit1.Text='' then
     begin
      MessageBox(handle, '选择要重命名的科目!', '提示',  mb_IconInformation + mb_Ok);
      exit;
     end
   else
    begin
    q5.Close;
     q5.SQL.Clear;
     q5.SQL.Add('select * from course where cname='+chr(39)+label3.Caption +chr(39));
     q5.Open;
     q5.edit;
     q5.Fields[1].AsString:=edit1.Text;
     if messagedlg('真的要重命名么？',mtconfirmation,[mbyes,mbno],0)=mryes  then
         begin
          q5.Post;
          edit1.Clear;
          exit;
         end
       else
         exit;

    end;
end;

end.