📄 admin.pas

📁 Delphi的在线考试系统
💻 PAS
字号:
unit admin;

interface

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

type
  Tsysadmin = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Button3: TButton;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox3: TGroupBox;
    DBGrid3: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Button7: TButton;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
    procedure ClearEdit();
  public
    { Public declarations }
  end;

var
  sysadmin: Tsysadmin;

implementation
 uses DataModule;
{$R *.dfm}

procedure Tsysadmin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tsysadmin.FormCreate(Sender: TObject);
var quanxian:string;
begin
   //第一个面板
   DBGrid1.Columns[0].FieldName:='姓名';
   DBGrid1.Columns[1].FieldName:='密码';
   DBGrid1.Columns[2].FieldName:='权限';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 管理员';
   adoquery1.Open;

    edit1.Text:=adoquery1.fieldbyname('姓名').AsString;
    edit2.Text:=adoquery1.fieldbyname('密码').AsString;
    quanxian:=trim(adoquery1.Fieldbyname('权限').AsString);
    if quanxian='系统管理员' then
        combobox1.ItemIndex:=0
    else if quanxian='试卷录入员' then
        combobox1.ItemIndex:=1
        else
        combobox1.ItemIndex:=2;

   //第二个面板
   DBGrid2.Columns[0].FieldName:='准考证号';
   DBGrid3.Columns[1].FieldName:='姓名';
   DBGrid2.Columns[2].FieldName:='性别';
   DBGrid2.Columns[3].FieldName:='系别';
   DBGrid2.Columns[4].FieldName:='班级';
   DBGrid2.Columns[5].FieldName:='身份证号';
   adoquery2.Close;
   adoquery2.SQL.Clear;
   adoquery2.SQL.Text:='select 准考证号,姓名,性别,系别,班级,身份证号 from 申请学生';
   adoquery2.Open;

   DBGrid3.Columns[0].FieldName:='准考证号';
   DBGrid3.Columns[1].FieldName:='姓名';
   DBGrid3.Columns[2].FieldName:='身份证号';
   adoquery3.Close;
   adoquery3.SQL.Clear;
   adoquery3.SQL.Text:='select 准考证号,姓名,身份证号 from 学生';
   adoquery3.Open;
end;


procedure Tsysadmin.Button1Click(Sender: TObject);
var query: TADOQuery;
begin
   if trim(edit1.Text)<>'' then begin
   query := TADOQuery.Create(nil);
   query.Connection := Data.Connection;
   query.Close;
   query.SQL.Clear;
   query.SQL.Text:='insert into 管理员(姓名,密码,权限) values ('''+trim(edit1.Text)+''','''+trim(edit2.Text)+''','''+combobox1.Text+''')';
   try
   query.ExecSQL;
   except
   MessageBox(handle, '添加错误', '提示',  mb_IconWarning + mb_Ok);
   exit;
   end;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 管理员';
   adoquery1.Open;
   MessageBox(handle, '添加成功', '提示',  mb_IconWarning + mb_Ok);
   end;
end;

procedure Tsysadmin.Button7Click(Sender: TObject);
begin
     ClearEdit;
end;

procedure Tsysadmin.Button3Click(Sender: TObject);
var query: TADOQuery;
begin
   if trim(edit1.Text)<>'' then begin
   query := TADOQuery.Create(nil);
   query.Connection := Data.Connection;
   query.Close;
   query.SQL.Clear;
   query.SQL.Text:='delete from 管理员 where  姓名='''+trim(edit1.Text)+'''';
   try
   query.ExecSQL;
   except
   MessageBox(handle, '删除错误', '提示',  mb_IconWarning + mb_Ok);
   exit;
   end;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 管理员';
   adoquery1.Open;
   MessageBox(handle, '删除成功', '提示',  mb_IconWarning + mb_Ok);
   end;
end;

procedure Tsysadmin.ClearEdit();
begin

   edit1.Clear;
   edit2.Clear;
   combobox1.ItemIndex:=0;
end;

procedure Tsysadmin.Button2Click(Sender: TObject);
var query: TADOQuery;
begin
   if trim(edit1.Text)<>'' then begin
   query := TADOQuery.Create(nil);
   query.Connection := Data.Connection;
   query.Close;
   query.SQL.Clear;
   query.SQL.Text:='update  管理员  set 姓名='''+trim(edit1.Text)+''',密码='''+trim(edit2.Text)+''',权限='''+combobox1.Text+'''where  姓名='''+trim(adoquery1.fieldbyname('姓名').AsString)+'''';
   try
   query.ExecSQL;
   except
   MessageBox(handle, '修改错误', '提示',  mb_IconWarning + mb_Ok);
   exit;
   end;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 管理员';
   adoquery1.Open;
   MessageBox(handle, '修改成功', '提示',  mb_IconWarning + mb_Ok);
   end;
end;

procedure Tsysadmin.DataSource1DataChange(Sender: TObject; Field: TField);
var  quanxian:string;
begin
    edit1.Text:=adoquery1.fieldbyname('姓名').AsString;
    edit2.Text:=adoquery1.fieldbyname('密码').AsString;
    quanxian:=trim(adoquery1.Fieldbyname('权限').AsString);
    if quanxian='系统管理员' then
        combobox1.ItemIndex:=0
    else if quanxian='试卷录入员' then
        combobox1.ItemIndex:=1
        else
        combobox1.ItemIndex:=2;
end;

//删除学生
procedure Tsysadmin.Button6Click(Sender: TObject);
var query: TADOQuery;
begin
  if  adoquery2.RecNo > 0 then begin
   query := TADOQuery.Create(nil);
   query.Connection := Data.Connection;
   query.Close;
   query.SQL.Clear;
   query.SQL.Text:='delete from  申请学生 where 准考证号='''+adoquery2.FieldbyName('准考证号').asString+'''';
   try
   query.ExecSQL;
   except
   MessageBox(handle, '删除错误', '提示',  mb_IconWarning + mb_Ok);
   exit;
   end;
   adoquery2.Close;
   adoquery2.SQL.Clear;
   adoquery2.SQL.Text:='select 准考证号,姓名,性别,系别,班级,身份证号 from 申请学生';
   adoquery2.Open;
   MessageBox(handle, '删除成功', '提示',  mb_IconWarning + mb_Ok);
  end;
end;

procedure Tsysadmin.Button4Click(Sender: TObject);
var query: TADOQuery;
    query2:TADOQuery;
idnumber:string;
begin
    if  adoquery2.RecNo > 0 then begin
        idnumber:=trim(adoquery2.FieldbyName('准考证号').asString);
        query := TADOQuery.Create(nil);
        query.Connection := Data.Connection;
        query.Close;
        query.SQL.Clear;
        query.SQL.Text:='insert into 学生 (准考证号,姓名,密码,性别,系别,班级,身份证号,总成绩)'+
                         ' select 准考证号,姓名,密码,性别,系别,班级,身份证号,0  from'+
                         ' 申请学生 where 准考证号= '''+ idnumber +'''';
        try
         query.ExecSQL;
         query2 := TADOQuery.Create(nil);
         query2.Connection := Data.Connection;
         query2.Close;
         query2.SQL.Clear;
         query2.SQL.Text:='delete from  申请学生 where 准考证号='''+ idnumber +'''';
         try
         query2.ExecSQL;
          except
          MessageBox(handle, '错误', '提示',  mb_IconWarning + mb_Ok);
          exit;
          end;
        except
         MessageBox(handle, '错误发生', '提示',  mb_IconWarning + mb_Ok);
        exit;
        end;
         adoquery2.Close;
         adoquery2.SQL.Clear;
         adoquery2.SQL.Text:='select 准考证号,姓名,性别,系别,班级,身份证号 from 申请学生';
         adoquery2.Open;
         adoquery3.Close;
         adoquery3.SQL.Clear;
         adoquery3.SQL.Text:='select 准考证号,姓名,身份证号 from 学生';
         adoquery3.Open;
    end;
end;

procedure Tsysadmin.Button5Click(Sender: TObject);
var query: TADOQuery;
    query2:TADOQuery;
idnumber:string;
begin
       if  adoquery3.RecNo > 0 then begin
        idnumber:=trim(adoquery3.FieldbyName('准考证号').asString);
        query := TADOQuery.Create(nil);
        query.Connection := Data.Connection;
        query.Close;
        query.SQL.Clear;
        query.SQL.Text:='insert into 申请学生 (准考证号,姓名,密码,性别,系别,班级,身份证号)'+
                         ' select 准考证号,姓名,密码,性别,系别,班级,身份证号  from'+
                         ' 学生 where 准考证号= '''+ idnumber +'''';
        try
         query.ExecSQL;
         query2 := TADOQuery.Create(nil);
         query2.Connection := Data.Connection;
         query2.Close;
         query2.SQL.Clear;
         query2.SQL.Text:='delete from  学生 where 准考证号='''+ idnumber +'''';
         try
         query2.ExecSQL;
          except
          MessageBox(handle, '错误', '提示',  mb_IconWarning + mb_Ok);
          exit;
          end;
        except
         MessageBox(handle, '错误发生', '提示',  mb_IconWarning + mb_Ok);
        exit;
        end;
         adoquery2.Close;
         adoquery2.SQL.Clear;
         adoquery2.SQL.Text:='select 准考证号,姓名,性别,系别,班级,身份证号 from 申请学生';
         adoquery2.Open;
         adoquery3.Close;
         adoquery3.SQL.Clear;
         adoquery3.SQL.Text:='select 准考证号,姓名,身份证号 from 学生';
         adoquery3.Open;
    end;
end;

end.
💿 文件大小 434 K
👤 上传用户 wilsonshaw
📂 所属分类教育系统应用
🏷️ 相关标签

#Delphi
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -