unit Unit5;

interface

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

type
  TManageForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    AddButton: TButton;
    EditEdit: TEdit;
    Label2: TLabel;
    DelEdit: TEdit;
    DelButton: TButton;
    EditButton: TButton;
    ADOQuery2: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure EditButtonClick(Sender: TObject);
    procedure DelButtonClick(Sender: TObject);
    procedure EditEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DelEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure AddButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ManageForm: TManageForm;
  ccno:string;
implementation

uses Unit1,Unit6, Unit7;

{$R *.dfm}

procedure TManageForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TManageForm.FormCreate(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from course order by cno') ;
  ADOQuery1.Open;
end;

procedure TManageForm.EditButtonClick(Sender: TObject);
begin
if EditEdit.Text='' then  messagedlg(#10'請輸入要修改的課號',mtwarning,[mbOk],0)
    else begin
         Application.CreateForm(TEditCourseForm, EditCourseForm);
         EditCourseForm.ADOQuery1.Close;
         EditCourseForm.ADOQuery1.SQL.Clear;
         EditCourseForm.ADOQuery1.SQL.Add('select * from course where cno=:Pcno') ;
         EditCourseForm.ADOQuery1.Parameters.ParamByName('Pcno').value:= ManageForm.EditEdit.text;
         ccno:=EditEdit.text;
         EditCourseForm.ADOQuery1.open;
         if  EditCourseForm.ADOQuery1.Eof then messagedlg(#10'無該課程信息,請確認課號!', mtwarning,[mbOk],0)
         else EditCourseForm.show;
         end;
end;

procedure TManageForm.DelButtonClick(Sender: TObject);
begin
if delEdit.Text='' then  messagedlg(#10'請輸入要刪除的課號',mtwarning,[mbOk],0)
    else begin
         ADOQuery2.Close;
         ADOQuery2.SQL.Clear;
         ADOQuery2.SQL.Add('select * from course where cno=:Pcno') ;
         ADOQuery2.Parameters.ParamByName('Pcno').value:= delEdit.text;
         ADOQuery2.open;
         if ADOQuery2.Eof then messagedlg(#10'您沒有選擇該課程,請確認課號!', mtwarning,[mbOk],0)
         else begin
                if   messagedlg(#10'是否刪除該課程?', mtConfirmation,[mbYes,mbNo],0)=mrYes then
                     begin
                     ADOQuery2.Close;
                     ADOQuery2.SQL.Clear;
                     ADOQuery2.SQL.Add('delete * from course where cno=:Pcno') ;
                     ADOQuery2.Parameters.ParamByName('Pcno').value:= delEdit.text;
                     ADOQuery2.ExecSQL;

                     FormCreate(Sender);
                     delEdit.Clear;
                     end;
              end;
         end;
end;

procedure TManageForm.EditEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  EditButtonClick(Sender);
end;

procedure TManageForm.DelEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  DelButtonClick(Sender);
end;

procedure TManageForm.AddButtonClick(Sender: TObject);
begin
 Application.CreateForm(TAddCourseForm, AddCourseForm);
 AddCourseForm.Show;
end;

end.