masterunit.pas

教学管理系统 功能: 选课,查询成绩,学生信息,修改信息, 录入成绩,修改密码

unit masterUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ComCtrls, Buttons, jpeg,
  ExtCtrls, ToolWin, ADODB;

type
  TmasterForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    Label7: TLabel;
    Edit5: TEdit;
    TabSheet4: TTabSheet;
    BitBtn1: TBitBtn;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Image2: TImage;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource3: TDataSource;
    SpeedButton3: TSpeedButton;
    DBGrid3: TDBGrid;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ComboBox1: TComboBox;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    DataSource1: TDataSource;
    ComboBox2: TComboBox;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DBGrid4: TDBGrid;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    TabSheet5: TTabSheet;
    DBGrid5: TDBGrid;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    Edit9: TEdit;
    Edit10: TEdit;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label6: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    GroupBox1: TGroupBox;
    SpeedButton8: TSpeedButton;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    GroupBox2: TGroupBox;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    ComboBox5: TComboBox;
    Label23: TLabel;
    SpeedButton15: TSpeedButton;
    Image3: TImage;
    SpeedButton16: TSpeedButton;
    Image4: TImage;
    Image5: TImage;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;

    procedure Button1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  masterForm: TmasterForm;

implementation

uses mainunit;

{$R *.dfm}



procedure TmasterForm.Button1Click(Sender: TObject);
var
   st1,st2:string;
begin
     st1:=combobox2.text ;
     st2:=edit1.text;
     datasource1.Enabled:=true;
     if st2='' then
         begin
          showmessage('请输入查询值!');
          exit;
         end
      else
        if st1='请选择' then
        begin
          showmessage('请选择查询条件!');
          exit;
          end
      else
      with adoquery1 do
      begin
       close;
       sql.clear;
       sql.Add('select * from student where '+st1+'='''+st2+'''') ;

       open ;
       end

end;




procedure TmasterForm.ToolButton1Click(Sender: TObject);
begin
     close;
     mainform.close;
end;

procedure TmasterForm.BitBtn1Click(Sender: TObject);
begin
    close;
    mainform.Close;

end;

procedure TmasterForm.SpeedButton2Click(Sender: TObject);
begin
   with ADOQuery3 do
     begin
       adoquery3.Close;
       adoquery3.SQL.Clear;
       adoquery3.SQL.Add('select * from pass where 学号='''+edit6.Text+'''');
       adoquery3.open;
       if recordcount=0 then
             begin
             showmessage('用户不存在!!!!!');
             end
        else
            if edit7.Text<>edit8.Text then
                begin
               showmessage('两次输入密码不一致,请重新输入!!!!');
               exit;
                end
       else
         begin

       //adoquery3.prepared:=true;
       adoquery3.Close;
       adoquery3.SQL.Clear;
       adoquery3.SQL.add('update pass set 密码='''+edit7.Text+'''where 学号='''+edit6.Text+'''');
       adoquery3.ExecSQL;
       adoquery3.SQL.Add('select * from pass ');
       adoquery3.open;
       showmessage('密码修改成功!!!');
      // adoquery3.prepared:=false;

       end
     end ;

end;

procedure TmasterForm.SpeedButton3Click(Sender: TObject);
begin
       with ADOQuery3 do
     begin
       datasource3.Enabled:=true;
       adoquery3.Close;
       adoquery3.SQL.Clear;
       adoquery3.SQL.Add('select * from pass ');
       adoquery3.open;
       end;
end;

procedure TmasterForm.SpeedButton4Click(Sender: TObject);
begin

  with ADOQuery3 do
     begin
       adoquery3.Close;
       adoquery3.SQL.Clear;
       adoquery3.SQL.Add('select * from pass where 学号='''+edit6.Text+'''');
       adoquery3.open;
       if recordcount>0 then
        begin showmessage('用户已经存在,请重新输入!!');
        end
       else
         if edit7.Text=''  then
            begin
               showmessage('请输入密码!!!');
                exit;
            end
       else
         if edit7.Text<>edit8.Text then
             begin
                showmessage('两次输入密码不一致,请重新输入!!!!');
                exit;
         end
       else
         begin
       adoquery3.Close;
       adoquery3.SQL.Clear;
       adoquery3.SQL.Add('insert into pass values('''+edit6.Text+''','''+edit7.text+''')');
       adoquery3.ExecSQL;
       adoquery3.SQL.Clear;
       adoquery3.SQL.Add('select * from pass ');
       adoquery3.open;
       showmessage('恭喜你添加用户成功!');
     end
   end;
end;

procedure TmasterForm.SpeedButton5Click(Sender: TObject);
begin
     with ADOQuery3 do
          begin
       adoquery3.Close;
       adoquery3.SQL.Clear;
       adoquery3.SQL.Add('select * from pass where 学号='''+edit6.Text+'''');
       adoquery3.open;
       if recordcount=0 then
         begin
         showmessage('用户不存在,请重新输入!!!');
         exit;
         end
      else
        begin
        adoquery3.Close;
        adoquery3.SQL.Clear;
        adoquery3.SQL.Add('delete from pass where 学号='''+edit6.Text+'''');
        adoquery3.ExecSQL;
        adoquery3.SQL.Add('select * from pass ');
        adoquery3.open;
        showmessage('恭喜你删除用户成功!');
        end
      end;
end;

procedure TmasterForm.Button2Click(Sender: TObject);
begin
      if edit5.Text='' then
         begin
          showmessage('请输入查询值!');
          exit;
         end
      else
        if combobox1.text='请选择' then
        begin
          showmessage('请选择查询条件!');
          exit;
          end
       else
        begin
        with adoquery2 do
        begin
       datasource2.Enabled:=true;
       close;
       sql.clear;
       sql.Add('select * from sc where '+combobox1.text+'='''+edit5.text+'''') ;
       open;
       ExecSQL ;
        end
       end
     end;
procedure TmasterForm.SpeedButton6Click(Sender: TObject);
begin

      with adoquery5 do
      begin
       close;
       sql.clear;
       sql.Add('select * from course ') ;

       open ;
       end

end;