zc.pas

学生管理系统小鸟做了

unit zc;

interface

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

type
  Tfmzc = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmzc: Tfmzc;

implementation

uses dm, denglu;

{$R *.dfm}

procedure Tfmzc.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
  begin
  messagedlg('学号不能为空！',mtInformation,[mbYes],0);
  exit;
  end;
if edit2.Text='' then
  begin
  messagedlg('姓名不能为空！',mtInformation,[mbYes],0);
  exit;
  end;
if edit3.Text='' then
  begin
  messagedlg('年龄不能为空！',mtInformation,[mbYes],0);
  exit;
  end;
if edit5.Text='' then
  begin
  messagedlg('毕业时间不能为空！',mtInformation,[mbYes],0);
  exit;
  end;
if edit6.Text='' then
  begin
  messagedlg('密码不能为空！',mtInformation,[mbYes],0);
  exit;
  end;
   if edit6.Text<>edit7.Text then
  begin
    messagedlg('两次输入的密码不一致！',mtInformation,[mbYes],0);
    exit;
  end;
  
fmdm.qryzc.Close;
fmdm.qryzc.SQL.Clear;
fmdm.qryzc.SQL.Add('insert into tab_stu (stu_id,stu_name,stu_age,stu_sex,stu_graduate,stu_employmentstate,stu_company,stu_password,stu_usertype) values (:A,:S,:D,:F,:G,:H,:J,:K,:L)');
fmdm.qryzc.Parameters.ParamByName('A').Value:=edit1.Text;
fmdm.qryzc.Parameters.ParamByName('S').Value:=edit2.Text;
fmdm.qryzc.Parameters.ParamByName('D').Value:=edit3.Text;
fmdm.qryzc.Parameters.ParamByName('F').Value:=combobox1.Text;
fmdm.qryzc.Parameters.ParamByName('G').Value:=edit5.Text;
fmdm.qryzc.Parameters.ParamByName('H').Value:='否';
fmdm.qryzc.Parameters.ParamByName('J').Value:='';
fmdm.qryzc.Parameters.ParamByName('K').Value:=edit6.Text;
fmdm.qryzc.Parameters.ParamByName('L').Value:='0';


  try
    fmdm.qryzc.ExecSQL;  //向借还信息表中插入一条数据
    MessageDlg('注册成功！',mtInformation , [mbYes],0);
   button2.Click
  except
    MessageDlg('注册失败！',mtInformation , [mbYes],0);
  end;
end;

procedure Tfmzc.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit1.SetFocus;
end;

procedure Tfmzc.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfmzc.Button4Click(Sender: TObject);
begin
  if edit1.Text='' then
  begin
  messagedlg('学号不能为空！',mtInformation,[mbYes],0);
  exit;
  end;
  fmdm.qryzc.Close;
  fmdm.qryzc.SQL.Clear;
  fmdm.qryzc.SQL.Add('select * from tab_stu where stu_id=:A');
  fmdm.qryzc.Parameters.ParamByName('A').Value:=edit1.Text;
  fmdm.qryzc.Open;
  if fmdm.qryzc.RecordCount>0 then
  begin
    messagedlg('该学号已存在！',mtInformation,[mbYes],0);
    exit;
  end
  else
  begin
    messagedlg('恭喜你，可以注册！',mtInformation,[mbYes],0);
    exit;
  end;
end;

end.