admin.pas

图书借阅管理系统

unit Admin;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Dialogs, Mask, DBCtrls,shellapi;

type
  TPagesDlg = class(TForm)
    Panel1: TPanel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    TabSheet3: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button3: TButton;
    Button6: TButton;
    TabSheet4: TTabSheet;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PagesDlg: TPagesDlg;

implementation

uses pass, Datamodule, Main, Sys;

{$R *.dfm}

procedure TPagesDlg.Button1Click(Sender: TObject);
  var bakupfile,datafile:string;
begin
  bakupfile:=edit1.text;
  datafile:=ExtractFilePath(ParamStr(0))+'Data\lib.mdb';
 if edit1.text='' then
   application.messagebox('请选择备份路径!','提示',0+48)
 else
  begin
  try
    copyfile(pchar(datafile),pchar(bakupfile),false);
    application.messagebox('数据库备份成功!','提示',0+64);
  except
    application.messagebox('数据库备份失败!','提示',0+16);
    exit;
  end;
  end;
end;

procedure TPagesDlg.Button5Click(Sender: TObject);
  var bakupfile,datafile:string;
begin
  bakupfile:=edit2.text;
  datafile:=ExtractFilePath(ParamStr(0))+'Data\lib.mdb';
 if edit1.text='' then
   application.messagebox('请选择还原文件!','提示',0+48)
 else
  begin
  try
    copyfile(pchar(bakupfile),pchar(datafile),false);
    application.messagebox('数据库还原成功!','提示',0+64);
  except
    application.messagebox('数据库还原失败!','提示',0+16);
    exit;
  end;
 end;
end;

procedure TPagesDlg.Button4Click(Sender: TObject);
begin
  edit1.text:='';
  edit2.text:='';
end;

procedure TPagesDlg.Button2Click(Sender: TObject);
begin
  if(savedialog1.Execute())then
  begin
    edit1.text:=saveDialog1.FileName;
  end;
end;

procedure TPagesDlg.Button3Click(Sender: TObject);
begin
  if (opendialog1.Execute())then
  begin
    edit2.text:=openDialog1.FileName;
  end;
end;

procedure TPagesDlg.Button6Click(Sender: TObject);
begin
  shellexecute(handle,nil,pchar('http://dgwbb.fjfair.com/068'),nil,nil,sw_shownormal);
end;

procedure TPagesDlg.BitBtn3Click(Sender: TObject);
  var
    newpass,password:string;
begin
   Adminuser:=Fpass.combobox1.Text;
   datamodule1.adopass.close;
   datamodule1.adopass.sql.clear;
   datamodule1.adopass.sql.Add('select 密码 from admin where 用户=:adminuser');
   datamodule1.adopass.parameters.ParamValues['adminuser']:=Fpass.combobox1.Text;
   datamodule1.adopass.open;
   password:=datamodule1.adopass.FieldValues['密码'];
   if password=edit3.Text then
     begin
       if (edit4.Text<>'') and (edit4.Text=edit5.Text) then
        begin
         newpass:=edit4.Text;
         datamodule1.adopass.close;
         datamodule1.adopass.sql.clear;
         datamodule1.adopass.sql.Add('update admin set 密码=:newpass where 用户=:adminuser');
         datamodule1.adopass.parameters.ParamValues['newpass']:=edit4.Text;
         datamodule1.adopass.parameters.ParamValues['adminuser']:=Fpass.combobox1.Text;
         datamodule1.adopass.execsql;
         application.MessageBox('修改成功!','提示',0+64);
         edit3.Text:='';
         edit4.Text:='';
         edit5.Text:='';
        end
       else
         application.MessageBox('两次密码不一致!','提示',0+64);
     end
   else
     application.MessageBox('密码错误!','提示',0+16);
end;

procedure TPagesDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   form1.show;
end;

procedure TPagesDlg.FormCreate(Sender: TObject);
  var admin:string;
begin
  if Admin=Fpass.combobox1.Text then
   begin
    groupbox2.Visible:=false;
    exit;
   end;
   OpenDialog1.title:='打开一个ACCESS文件:';
   opendialog1.Filter:='Access Files(*.mdb)|*.mdb';
   SaveDialog1.Title:='保存文件:';
   SaveDialog1.defaultExt:=string('mdb');
   SaveDialog1.Filter:='Access Files(*.mdb)|*.mdb|All Files(*.*)|*.*';
   datamodule1.adoadmin.open;
   datamodule1.adoadmin.first;
   while not datamodule1.adoadmin.eof do
    begin
     combobox1.Items.Add(datamodule1.adoadmin.fieldbyname('用户').value);
     datamodule1.adoadmin.next;
    end;
end;

procedure TPagesDlg.BitBtn7Click(Sender: TObject);
begin
   datamodule1.adoadmin.insert;
end;

procedure TPagesDlg.BitBtn6Click(Sender: TObject);
begin
  if application.MessageBox('确认删除该用户?','提示',MB_yesno+MB_iconquestion)=Mryes then
  begin
   datamodule1.adoadmin.delete;
   combobox1.clear;
   datamodule1.adoadmin.close;
   datamodule1.adoadmin.open;
   datamodule1.adoadmin.first;
   while not datamodule1.adoadmin.eof do
    begin
     combobox1.Items.Add(datamodule1.adoadmin.fieldbyname('用户').value);
     datamodule1.adoadmin.next;
    end;
  end;
end;

procedure TPagesDlg.BitBtn4Click(Sender: TObject);
begin
   datamodule1.adoadmin.edit;
end;

procedure TPagesDlg.BitBtn5Click(Sender: TObject);
begin
  try
   datamodule1.adoadmin.post;
   application.MessageBox('保存成功!','提示',0+64);
   combobox1.clear;
   datamodule1.adoadmin.close;
   datamodule1.adoadmin.open;
   datamodule1.adoadmin.first;
   while not datamodule1.adoadmin.eof do
    begin
     combobox1.Items.Add(datamodule1.adoadmin.fieldbyname('用户').value);
     datamodule1.adoadmin.next;
    end;
  except
   application.MessageBox('数据库更新失败!!','提示',0+16);
  end; 
end;

procedure TPagesDlg.ComboBox1Change(Sender: TObject);
   var
     name:string;
begin
   name:=combobox1.Text;
   datamodule1.adoadmin.close;
   datamodule1.adoadmin.sql.clear;
   datamodule1.adoadmin.sql.Add('select * from admin where 用户=:name');
   datamodule1.adoadmin.parameters.ParamValues['name']:=combobox1.Text;
   datamodule1.adoadmin.open;
   DBedit1.Text:=name;
   DBedit2.text:=datamodule1.adopass.FieldValues['密码'];
end;

end.