zjyh.pas

delphi编的排课管理系统

unit zjyh;

interface

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

type
  TForm6 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    Button3: TButton;
    GroupBox2: TGroupBox;
    e_yhm: TEdit;
    e_mima: TEdit;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    DataSource1: TDataSource;
    e_qx: TComboBox;
    czy: TTable;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    dl: TTable;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses zsyh;

{$R *.dfm}

procedure TForm6.FormActivate(Sender: TObject);
begin
e_mima.Text:='88888888';//初始密码
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
table1.delete;
showmessage('         操作成功！        ');
e_yhm.text:='';
e_qx.Text:='';

end;

procedure TForm6.Button3Click(Sender: TObject);
begin
table1.Close;
czy.Close;

form6.close;

end;

procedure TForm6.Button2Click(Sender: TObject);
begin
   dl.Close ;
   dl.Filtered:=false;
   dl.Filter:='id='''+e_yhm.text+'''';
   dl.Filtered:=true;
   dl.Open      ;
if dl.RecordCount =0 then
 begin     //+++++++++++++++++++++++
  if (e_yhm.text<>'') and (e_qx.Text<>'') and (e_mima.Text<>'') then
   begin  //0000000000000000000000
    if e_qx.Text='超级用户' then
          begin //----------------------
          czy.Open ;
          czy.First ;
              if   czy['qx']='超级用户' then
              begin  //>>>>>>>>>>>>>>>>>>>>>>
              table1.Open;
              table1.append;
              table1.fieldbyname('id').asstring:=e_yhm.Text;
              table1.fieldbyname('jb').asstring:=e_qx.text;
              table1.fieldbyname('mima').asstring:=e_mima.Text;
              table1.Post;
              showmessage('          添加成功！        ');
              e_yhm.text:='';
              e_qx.Text:='';

              end //>>>>>>>>>>>>>>>>>>>>>>>>>
               else
                    showmessage('你的权限有限，不能增加超级用户！');
         end //-----------------------------------
         else
          begin
          table1.Open;
          table1.append;
          table1.fieldbyname('id').asstring:=e_yhm.Text;
          table1.fieldbyname('jb').asstring:=e_qx.text;
          table1.fieldbyname('mima').asstring:=e_mima.Text;
          table1.Post;
          showmessage('          添加成功！        ');
          e_yhm.text:='';
          e_qx.Text:='';

          end;


end  //0000000000000000000000000000000000
else
messagedlg('用户信息不能为空！！',mterror,[mbcancel],0);
end //+++++++++++++++++++++++++++++++++
else
messagedlg('此用户名已经存在，您不能注册该名字！',mterror,[mbcancel],0);
end;

end.