unitcourse.pas

来自「这是我做的一个大学院系成绩管理系统」· PAS 代码 · 共 121 行

unit UnitCourse;

interface

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

type
  TFrmCourse = class(TFrame)
    ImageBg: TImage;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Image1: TImage;
    Image2: TImage;
    Imageadd: TImage;
    Image3: TImage;
    Image4: TImage;
    DBNavigator1: TDBNavigator;
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure ImageaddClick(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UnitDBConnect, UnitCourseInput;

{$R *.dfm}

procedure TFrmCourse.Image1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
     if Edit1.Text=''  then
        begin
          showmessage('请输入要查询的课程名称');
        end
     else
        begin
          with FMDBConnect.ADOQueryCourse  do
          begin
            SQL.Clear;
            SQL.Add('select * from Course where CName='#39+Edit1.Text+#39);
            Active:=True ;
            Open;
          end;
        end ;
  end
  else if RadioButton2.Checked then
       begin
          if Edit2.Text='' then
          begin
             showmessage('请输入要查询的课程类型');
          end
          else
          begin
             with FMDBConnect.ADOQueryCourse  do
             begin
            SQL.Clear;
            SQL.Add('select * from Course where CType='#39+Edit2.Text+#39);
            Active:=True ;
            Open;
            end;
          end;
       end
  else
   begin
   showmessage('请选择查找方式');
   end;

             
end;

procedure TFrmCourse.Image2Click(Sender: TObject);
begin
   with FMDBConnect.ADOQueryCourse  do
   begin
     SQL.Clear;
     SQL.Add('select * from Course');
     Active:=True ;
     Open;
   end;
end;

procedure TFrmCourse.ImageaddClick(Sender: TObject);
begin
FMDBConnect.ADOQueryCourse.Append;
FMCourseInput.ShowModal;
end;

procedure TFrmCourse.Image3Click(Sender: TObject);
begin
     if(messagebox(handle,PChar('确定删除吗?'),'删除记录',MB_ICONinformation+MB_OKCANCEL)=IDOK)then
     begin
     FMDBConnect.ADOQueryCourse.Delete;
     end;
end;

procedure TFrmCourse.Image4Click(Sender: TObject);
begin
FMDBConnect.ADOQueryCourse.Edit;
FMCourseInput.ShowModal;
end;

end.