userunit.pas

用Delphi做的一个学生数据库系统

unit userUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ExtCtrls, ToolWin, Grids, DBGrids, StdCtrls,
  DBActns, ActnList, CheckLst;

type
  Tuserform = class(TForm)
    ToolBar1: TToolBar;
    tb_add: TToolButton;
    tb_uptate: TToolButton;
    tb_delete: TToolButton;
    tb_exit: TToolButton;
    ImageList1: TImageList;
    ActionList1: TActionList;
    Action1: TAction;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetCancel1: TDataSetCancel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tb_exitClick(Sender: TObject);
    procedure tb_addClick(Sender: TObject);
    procedure tb_deleteClick(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userform: Tuserform;

implementation

uses MainUnit, dm, login;

{$R *.dfm}

procedure Tuserform.FormClose(Sender: TObject; var Action: TCloseAction); //关闭子窗体
begin
action:=cafree;
mainform.tb_user.Down:=false;
end;

procedure Tuserform.tb_exitClick(Sender: TObject);  //关闭
begin
close;
end;

procedure Tuserform.tb_addClick(Sender: TObject);  //添加用户 ,设置权限
   var
 str:string;
begin
           if dmform.ADOQuery_login.RowsAffected>0 then                //??????????????????????????
         begin
          showmessage('该用户已经存在!');
          edit1.Clear;
          edit2.Clear;
         end
         else
         begin
        str:='insert into login(username,passwrd,qx1,qx2,qx3,qx4,qx5,qx6,qx7,qx8) values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j)';
        dmform.ADOQuery_login.Close;
        dmform.ADOQuery_login.SQL.Clear;
        dmform.ADOQuery_login.SQL.Add(str);
        dmform.ADOQuery_login.Parameters[0].Value:=Trim(edit1.Text);
        dmform.ADOQuery_login.Parameters[1].Value:=Trim(edit2.Text);
        dmform.ADOQuery_login.Parameters[2].Value:=Trim(edit3.Text);
        dmform.ADOQuery_login.Parameters[3].Value:=Trim(edit4.Text);
        dmform.ADOQuery_login.Parameters[4].Value:=Trim(edit5.Text);
        dmform.ADOQuery_login.Parameters[5].Value:=Trim(edit6.Text);
        dmform.ADOQuery_login.Parameters[6].Value:=Trim(edit7.Text);
        dmform.ADOQuery_login.Parameters[7].Value:=Trim(edit8.Text);
        dmform.ADOQuery_login.Parameters[8].Value:=Trim(edit9.Text);
        dmform.ADOQuery_login.Parameters[9].Value:=Trim(edit10.Text);
        dmform.ADOQuery_login.ExecSQL;
        Application.MessageBox('添加成功!','提示',64);
         edit1.Clear;
         edit2.Clear;
        end;
 end;

procedure Tuserform.tb_deleteClick(Sender: TObject);    //删除
begin
    if  dmform.ADOQuery_login.RowsAffected=0  then
    begin                                                       //????????????????????????????
        showmessage('该用户不存在!');
    end
    else
    begin
    if messagedlg('确定删除该记录吗？',mtConfirmation,[mbYes, mbNo],0)=mryes then
     begin
       dmform.ADOQuery_login.Delete;
  end;
  end;
end;

procedure Tuserform.Edit2Change(Sender: TObject);
begin
 if (Trim(edit1.Text)='' ) or (Trim(edit2.Text)='') then
  begin
   tb_add.Enabled:=false;
   tb_uptate.Enabled:=false;
  end
  else
    begin
    tb_add.Enabled:=true;
    tb_uptate.Enabled:=true;
    end;
end;

procedure Tuserform.Edit3KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;

procedure Tuserform.Edit4KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;

procedure Tuserform.Edit5KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;
procedure Tuserform.Edit6KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;


procedure Tuserform.Edit7KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;

procedure Tuserform.Edit8KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;
procedure Tuserform.Edit9KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;

procedure Tuserform.Edit10KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;                                                     //只允许输入数字
begin
    m:=(key<#8)or(key>#8)and(key<#48)or(key>#49);
    if m then
    key:=#0;
end;
procedure Tuserform.FormShow(Sender: TObject);
begin
edit3.Text:='1';
edit4.Text:='1';
edit5.Text:='1';
edit6.Text:='1';
edit7.Text:='1';
edit8.Text:='1';
edit9.Text:='1';
edit10.Text:='1';
end;

procedure Tuserform.Edit1Change(Sender: TObject);
  var
  str:string;
begin

  { with dmform.ADOQuery_login do
   begin
     str:='select * from login(username) values (:a)';
     close;
     SQL.Clear;
     SQL.Add('str');
     Parameters[0].Value:=Trim(edit1.Text);
     open;
     if dmform.ADOQuery_login.RowsAffected>0 then
     begin
       showmessage('该用户已经存在!');
       edit1.Clear;
     end;

   end; }

end;

end.