unit1.pas

简单的选课系统 采用delphi书写 包含简单的管理功能以及学生 教师 管理员登陆

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Button2: TButton;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  UseId,Types,Passwd:String;
  BackNam,pass:String;

implementation
uses Unit2,Unit3,Unit4,Unit6;
{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
    UseId:=Edit1.Text;
    Passwd:=Edit2.Text;
    Types:=ComboBox1.Text;
    if UseId='' then
      begin
        application.MessageBox('请输入登录证号','登录错误信息',MB_OK+MB_ICONEXCLAMATION);
      end
    else
    with Unit6.Data.adoquery1 do
      begin
        if Types='管理员'then
          begin
            Close;
            SQL.Clear;
            SQL.Add('select 管理员账号,姓名 from 管理员');
            SQL.Add('where 管理员账号 ='''+UseId+'''and 密码='''+Passwd+'''');
            Open;
            BackNam:=FieldByName('姓名').AsString;
            pass:=FieldByName('管理员账号').AsString;
            if BackNam='' then
              begin
                application.MessageBox('无效的登录证号或密码','登录错误信息',MB_OK+MB_ICONEXCLAMATION);
              end
            else
              begin
                Unit2.pass:=BackNam;
                Unit2.pass2:=pass;
                Form2.Label1.Caption:=BackNam;
                Form2.show;
                Form1.hide;
                Edit1.Clear;
                Edit2.Clear;
                ComboBox1.Clear;
                Close;
              end
          end
          else if Types='教  师'then
          begin
            close;
            sql.Clear;
            sql.Add('select 教师账号,密码,姓名 from 教师');
            sql.Add('where 教师账号 ='''+UseId+'''and 密码='''+Passwd+'''');
            open;
            BackNam:=fieldbyname('姓名').AsString;
            pass:=FieldByName('教师账号').AsString;
            if BackNam='' then
              begin
                application.MessageBox('无效的登录证号或密码','登录错误信息',MB_OK+MB_ICONEXCLAMATION);
              end
            else
              begin
                Unit3.pass:=BackNam;
                Form3.Label1.Caption:=BackNam;
                Form3.show;
                Form1.hide;
                Edit1.Clear;
                Edit2.Clear;
                ComboBox1.Clear;
                Close;
              end
          end
          else if Types='学  生' then
          begin
            close;
            sql.Clear;
            sql.Add('select 学生学号,密码,学生姓名 from 学生');
            sql.Add('where 学生学号 ='''+UseId+'''and 密码='''+Passwd+'''');
            open;
            BackNam:=fieldbyname('学生姓名').AsString;
            pass:=FieldByName('学生学号').AsString;
            if BackNam='' then
              begin
                application.MessageBox('无效的登录证号或密码','登录错误信息',MB_OK+MB_ICONEXCLAMATION);
              end
            else
              begin
                Form4.Label1.Caption:=BackNam;
                Unit4.pass:=pass;
                Form4.show;
                Form1.hide;
                Edit1.Clear;
                Edit2.Clear;
                ComboBox1.Clear;
                Close;
              end
          end
        end
end;

end.