⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xitongweihu.~pas

📁 有不足之处请指出
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
unit xitongweihu;

interface

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

type
  TxitongweihuForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    TabSheet4: TTabSheet;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox3: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox4: TGroupBox;
    Label16: TLabel;
    ComboBox2: TComboBox;
    Button5: TButton;
    Button6: TButton;
    GroupBox5: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit5: TEdit;
    ComboBox3: TComboBox;
    Button7: TButton;
    Button8: TButton;
    ComboBox4: TComboBox;
    GroupBox6: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button9: TButton;
    Button10: TButton;
    Query1: TQuery;
    Query1Bianhao: TStringField;
    Query1Xingming: TStringField;
    Query1Quanxian: TStringField;
    Query1Mima: TStringField;
    ComboBox5: TComboBox;
    Label12: TLabel;
    Edit3: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox3Select(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure ComboBox4Select(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xitongweihuForm: TxitongweihuForm;
  dqyh,qx:string;
implementation

{$R *.dfm}

procedure TxitongweihuForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TxitongweihuForm.BitBtn1Click(Sender: TObject);
var
   failure:boolean;
begin
  failure:=False;
  if not copyfile('D:\publicdataBase\classes.DB','D:\数据备份\classes.DB',false) then
      failure:=True;
 if not copyfile('D:\publicdataBase\students.DB','D:\数据备份\students.DB',false) then
      failure:=True;
  if not copyfile('D:\publicdataBase\yonghu.DB','D:\数据备份\yonghu.DB',false) then
      failure:=True;
  if not copyfile('D:\publicdataBase\xuejibiangeng.DB','D:\数据备份\xuejibiangeng.DB',false) then
      failure:=True;
  if failure then
      begin
      messagebeep(2);
     MessageDlg('备份失败!'+#10+#13+'请检查文件目录是否正确!',mtError,[mbOk],0);
      end
  else
      showmessage('备份成功!');
end;

procedure TxitongweihuForm.BitBtn3Click(Sender: TObject);
var
  failure:Boolean;
begin
  failure:=False;
  if MessageDlg('数据恢复之前务必确保本应用程序的其他操作窗口处于关闭状态!'+#10+#13'确认已经关闭了其他所有子窗口吗?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
     exit
  else
  begin
  if FileExists('D:\publicdataBase\classes.DB') then
     begin
       DeleteFile('D:\publicdataBase\classes.DB');
       if not copyfile('D:\数据备份\classes.DB','D:\publicdataBase\classes.DB',false) then
          failure:=True;
     end;
   if FileExists('D:\publicdataBase\students.DB') then
     begin
       DeleteFile('D:\publicdataBase\students.DB');
       if not copyfile('D:\数据备份\students.DB','D:\publicdataBase\students.DB',false) then
          failure:=True;
     end;
   if FileExists('D:\publicdataBase\yonghu.DB') then
     begin
       DeleteFile('D:\publicdataBase\yonghu.DB');
       if not copyfile('D:\数据备份\yonghu.DB','D:\publicdataBase\yonghu.DB',false) then
          failure:=True;
     end;
   if FileExists('D:\publicdataBase\xuejibiangeng.DB') then
      begin
        DeleteFile('D:\publicdataBase\xuejibiangeng.DB') ;
        if not Copyfile('D:\数据备份\xuejibiangeng.DB','D:\publicdataBase\xuejibiangeng.DB',false) then
           failure:=True;
      end;
   if failure then
      MessageDlg('数据恢复没有成功！',mtError,[mbOk],0)
   else
      showmessage('数据恢复成功！');
  end;
end;

procedure TxitongweihuForm.RadioButton1Click(Sender: TObject);
begin
if (qx<>'管理员') then
     begin
       showmessage('你不是管理员，你无权修改用户的权限!');
       exit;
     end;
Groupbox2.Visible :=true;
GroupBox3.Visible :=False;
GroupBox4.Visible :=False;
GroupBox5.Visible :=False;

end;

procedure TxitongweihuForm.RadioButton2Click(Sender: TObject);
var i:integer;
begin

  GroupBox3.Visible :=True;
  Groupbox2.Visible :=False;
  GroupBox4.Visible :=False;
  GroupBox5.Visible :=False;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.SQL.Add('select * from yonghu;');
  Query1.ExecSQL ;
  Query1.Open ;
  i:=0;
  Query1.First ;
  ComboBox1.Clear ;
  while not Query1.Eof do
    begin
      ComboBox1.Items.Insert(i,Query1xingming.Value);
      i:=i+1;
      Query1.Next;
    end;
  Query1.Close;



end;

procedure TxitongweihuForm.RadioButton3Click(Sender: TObject);
var i:integer;
begin
  if (qx<>'管理员') then
     begin
       showmessage('你不是管理员，你无权修改用户的权限!');
       exit;
     end;
  GroupBox4.Visible :=True;
  GroupBox2.Visible :=False;
  GroupBox3.Visible :=False;
  GroupBox5.Visible :=False;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.Params.CreateParam(ftstring,'qx',ptinput).AsString :='管理员';
  Query1.SQL.Add('select * from yonghu where quanxian<>:qx;');
  Query1.ExecSQL ;
  Query1.Open ;
  i:=0;
  Query1.First ;
  ComboBox2.Clear ;
  while not Query1.Eof do
    begin
      ComboBox2.Items.Insert(i,Query1xingming.Value);
      i:=i+1;
      Query1.Next;
    end;
  Query1.Close;


end;

procedure TxitongweihuForm.RadioButton4Click(Sender: TObject);
var i:integer;
begin
  if (qx<>'管理员') then
     begin
       showmessage('你不是管理员，你无权修改用户的权限!');
       exit;
     end;
  GroupBox5.Visible :=True;
  GroupBox2.Visible :=False;
  GroupBox3.Visible :=False;
  GroupBox4.Visible :=False;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.Params.Clear ;
  Query1.SQL.Add('select * from yonghu;');
  Query1.ExecSQL ;
  Query1.Open;
  Query1.First ;
  ComboBox3.Clear ;
  i:=0;
  while not Query1.Eof do
    begin
      if (query1quanxian.Value <>'管理员') then
         begin
           Combobox3.Items.Insert(i,Query1xingming.Value);
           i:=i+1;
         end;
      Query1.Next ;

    end;
  Query1.Close;



end;

procedure TxitongweihuForm.Button8Click(Sender: TObject);
begin
close;
end;

procedure TxitongweihuForm.Button6Click(Sender: TObject);
begin
close;
end;

procedure TxitongweihuForm.Button4Click(Sender: TObject);
begin
close;
end;

procedure TxitongweihuForm.Button2Click(Sender: TObject);
begin
close;
end;

procedure TxitongweihuForm.Button10Click(Sender: TObject);
begin
close;
end;

procedure TxitongweihuForm.Button1Click(Sender: TObject);
var bhao:string;
begin
  if Edit1.Text ='' then
     begin
       MessageDlg('必须填写用户姓名',mtError,[mbOk],0);
       Edit1.SetFocus ;
       exit;
     end;
  if Edit2.Text ='' then
     begin
       MessageDlg('请输入用户密码',mtError,[mbOk],0);
       Edit2.SetFocus ;
       exit;
     end;
  if Edit3.Text ='' then
     begin
       MessageDlg('必须输入确认密码!',mtWarning,[mbOk],0);
       exit;
     end;
  if edit2.Text<>edit3.Text  then
     begin
       messageDlg('确认密码不一致!',mtWarning,[mbOk],0);
       Edit2.Clear;
       Edit3.Clear ;
       exit;
     end;
  if length(Edit2.Text)<>length(Edit3.Text) then
     begin
       messageDlg('确认密码不一致!',mtWarning,[mbOk],0);
       Edit2.Clear;
       Edit3.Clear ;
       exit;
     end;
  if ComboBox5.Text ='' then
     begin
       MessageDlg('必须选择用户权限！!',mtWarning,[mbOk],0);
       ComboBox5.SetFocus ;
       exit;
     end;
  if ComboBox5.Text='管理员' then
     begin
      if  messageDlg('一般情况下，只允许有一个 "管理员" ，确实要添加一个管理员吗？',mtConfirmation ,[mbYes,mbNo],0)=mrNo then
12

⌨️ 快捷键说明

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