amini.pas

实现图书馆数据库管理功能

unit amini;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Menus,  ImgList,
  Buttons, Mask, DB, ADODB, Grids, DBGrids, DBTables;

type
  Taminis = class(TForm)
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Sb2: TSpeedButton;
    GroupBox3: TGroupBox;
    SB6: TSpeedButton;
    GroupBox4: TGroupBox;
    SB3: TSpeedButton;
    GroupBox5: TGroupBox;
    SB5: TSpeedButton;
    GroupBox6: TGroupBox;
    SB4: TSpeedButton;
    GroupBox7: TGroupBox;
    SB1: TSpeedButton;
    ADOConnection1: TADOConnection;
    ADS1: TADODataSet;
    GroupBox8: TGroupBox;
    ChB1: TCheckBox;
    ChB2: TCheckBox;
    ChB3: TCheckBox;
    ChB4: TCheckBox;
    ChB5: TCheckBox;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    E1: TEdit;
    CB1: TComboBox;
    E2: TEdit;
    E3: TEdit;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    E5: TEdit;
    ComboBox1: TComboBox;
    E7: TEdit;
    E8: TEdit;
    Label10: TLabel;
    E6: TEdit;
    Image_title: TImage;
    Image1: TImage;
    Image_close: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SB6Click(Sender: TObject);
    procedure Sb2Click(Sender: TObject);
    procedure SB5Click(Sender: TObject);
    procedure SB3Click(Sender: TObject);
    procedure SB4Click(Sender: TObject);
    procedure SB1Click(Sender: TObject);
    procedure E5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image_minimizeClick(Sender: TObject);
    procedure Image_closeClick(Sender: TObject);
   
  private

    { Private declarations }
    originalpos:tpoint;
    currentpos:tpoint;
    downpos:tpoint;
    mouselbuttondown:boolean;
    originalwid,originalhei:integer;
    flag:string;
    flag_normal:boolean;
    fg:string;
     public
    { Public declarations }
  end;

var
  aminis: Taminis;


implementation

uses  Unit6, Unit2;

{$R *.dfm}






procedure Taminis.FormCreate(Sender: TObject);

begin
flag_normal:=true;
mouselbuttondown:=false;
sb3.Enabled:=false;
sb4.Enabled:=false;
panel1.Visible:=false;
ads1.Active:=false;
ads1.CommandText:='select 口令,类型 from 管理员';
ads1.Active:=true;
panel2.Visible:=false;
end;




procedure Taminis.FormClose(Sender: TObject; var Action: TCloseAction);
begin
shukuguanli.enabled:=true;
end;


procedure Taminis.SB6Click(Sender: TObject);
begin
if sb4.Enabled then
   begin
    messagedlg('请先点击“取消”按钮',mtwarning,[mbok],0);
    exit;
   end; 
close;
end;

procedure Taminis.Sb2Click(Sender: TObject);
begin
fg:='change';
dbgrid1.Visible:=false;
panel1.Visible:=false;
panel2.Visible:=true;
panel2.Top:=19;
panel2.Left:=78;
sb3.Enabled:=true;
sb4.Enabled:=true;
sb1.Enabled:=false;
sb2.Enabled:=false;
sb5.Enabled:=false;

e5.Text:=ads1.FieldValues['口令'];
if ads1.Fieldbyname('类型').Value='超级管理员' then
   combobox1.ItemIndex:=0
 else
   combobox1.ItemIndex:=1;

 e5.ReadOnly:=true;
 ads1.Active:=false;
 ads1.CommandText:='select * from 管理员 where 口令='''+e5.Text+'''';
 ads1.Active:=true;

  chb1.Checked:=ads1.FieldValues['读者管理'];
  chb2.Checked:=ads1.FieldValues['书库管理'];
  chb3.Checked:=ads1.FieldValues['读者类型'];
  chb4.Checked:=ads1.FieldValues['图书类型'];
  chb5.Checked:=ads1.FieldValues['借/还书'];
  e6.Text:='';
  e7.Text:='';
  e8.Text:='';

end;

procedure Taminis.SB5Click(Sender: TObject);
begin
fg:='add';
panel2.Visible:=false;
dbgrid1.Visible:=false;
panel1.Visible:=true;
panel1.Left:=78;
panel1.Top:=21;
sb1.Enabled:=false;
sb2.Enabled:=false;
sb5.Enabled:=false;
sb3.Enabled:=true;
sb4.Enabled:=true;
e1.Text:='';
e2.Text:='';
e3.Text:='';

end;

procedure Taminis.SB3Click(Sender: TObject);
begin
if fg='add' then
begin
if e1.Text='' then
  begin
    messagedlg('口令不能为空，请重新填写',mterror,[mbok],0);
    e1.SelectAll;
    exit;
  end;

ads1.Active:=false;
ads1.CommandText:='select * from 管理员';
ads1.Active:=true;

if ads1.Locate('口令',e1.Text,[locaseinsensitive]) then
  begin
    messagedlg('此口令已存在，请重新填写',mterror,[mbok],0);
    e1.SelectAll;
    exit;
  end;
if e2.Text<>e3.Text then
   begin
    messagedlg('密码确认错误，请重新填写',mterror,[mbok],0);
    e2.SelectAll;
    exit;
  end;
ads1.Append;
ads1.FieldByName('口令').AsString:=e1.Text;
ads1.FieldByName('类型').AsString:=cb1.Text;
ads1.FieldByName('密码').AsString:=e2.Text;
ads1.FieldByName('读者管理').value:=chb1.Checked;
ads1.FieldByName('书库管理').value:=chb2.Checked;
ads1.FieldByName('读者类型').value:=chb3.Checked;
ads1.FieldByName('图书类型').value:=chb4.Checked;
ads1.FieldByName('借/还书').value:=chb5.Checked;
ads1.Post;
messagedlg('添加成功',mtconfirmation,[mbok],0);

end;

if fg='change' then
 begin
 if length(ads1.FieldByName('密码').AsString)=0 then
    begin
     if e6.Text<>'' then
        begin
             messagedlg('旧密码错误',mterror,[mbok],0);
             e6.SelectAll;
             exit;
        end;
    end
 else
 if e6.Text<>ads1.FieldValues['密码'] then
   begin
      messagedlg('旧密码错误',mterror,[mbok],0);
      e6.SelectAll;
      exit;
   end;
 if e7.Text<>e8.Text then
   begin
    messagedlg('密码确认错误，请重新填写',mterror,[mbok],0);
    e7.SelectAll;
    exit;
 end;
  ads1.Edit;
  ads1.FieldByName('类型').AsString:=combobox1.Text;
  ads1.FieldByName('密码').AsString:=e7.Text;
  ads1.FieldByName('读者管理').value:=chb1.Checked;
  ads1.FieldByName('书库管理').value:=chb2.Checked;
  ads1.FieldByName('读者类型').value:=chb3.Checked;
  ads1.FieldByName('图书类型').value:=chb4.Checked;
  ads1.FieldByName('借/还书').value:=chb5.Checked;
  ads1.Post;
  messagedlg('修改成功',mtconfirmation,[mbok],0);
 end;
  sb1.Enabled:=true;
  sb2.Enabled:=true;
  sb5.Enabled:=true;
  sb3.Enabled:=false;
  sb4.Enabled:=false;
  panel2.Visible:=false;
  panel1.Visible:=false;
  dbgrid1.Visible:=true;
  ads1.Active:=false;
  ads1.CommandText:='select 口令,类型 from 管理员';
  ads1.Active:=true;
  e5.ReadOnly:=false;

 end;
procedure Taminis.SB4Click(Sender: TObject);
begin

  sb1.Enabled:=true;
  sb2.Enabled:=true;
  sb5.Enabled:=true;
  sb3.Enabled:=false;
  sb4.Enabled:=false;
  panel2.Visible:=false;
  panel1.Visible:=false;
  dbgrid1.Visible:=true;
  ads1.Active:=false;
  ads1.CommandText:='select 口令,类型 from 管理员';
  ads1.Active:=true;
  e5.ReadOnly:=false;
end;

procedure Taminis.SB1Click(Sender: TObject);
begin
if messagedlg('您确实要删除此管理员吗？',mtconfirmation,[mbok,mbcancel],0)=mrok then
  ads1.Delete;


end;

procedure Taminis.E5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
messagedlg('不能修改口令，只能修改密码和权限',mterror,[mbok],0)
end;

procedure Taminis.Image_minimizeClick(Sender: TObject);
begin
if aminis.WindowState=wsnormal then
begin
application.Minimize;
end
else if aminis.WindowState=wsmaximized then
 application.Minimize;
end;

procedure Taminis.Image_closeClick(Sender: TObject);
begin
close;
end;

end.