unit11.pas

本例是用delphi开发的学生与课程信息管理系统

unit Unit11;

interface

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

type
  TFormsc_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Editsno: TEdit;
    Editsname: TEdit;
    Button1: TButton;
    Label3: TLabel;
    ComboBoxsem: TComboBox;
    ADOQuerysc_login: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formsc_login: TFormsc_login;

implementation

{$R *.dfm} uses unit12, Unit13;

procedure TFormsc_login.Button1Click(Sender: TObject);
var
  sname,temp:string;
begin
  sno:=trim(editsno.text);
  sname:=trim(editsname.text);
  sem:=comboboxsem.text;
  if(sno='')or(sname='')or(sem='')then
    showmessage('请将登录信息输入完全！')
  else
    begin
      adoquerysc_login.close;
      adoquerysc_login.sql.clear;
      adoquerysc_login.sql.text:='select sno from student where sno='''+sno+''' and sname='''+sname+'''';
      adoquerysc_login.open;
      temp:=adoquerysc_login.fieldbyname('sno').asstring;
      if temp<>'' then
        begin
          formsc_login.free;
          application.createform(tformsc_upd,formsc_upd);
          formsc_upd.show;
        end
      else
        showmessage('学好或姓名错误！');
    end;
end;

end.