readerstyl.pas

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

unit readerstyl;

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
  Treaderstyle = class(TForm)
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    MaskEdit1: TMaskEdit;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    SpeedButton2: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton6: TSpeedButton;
    GroupBox4: TGroupBox;
    SpeedButton3: TSpeedButton;
    GroupBox5: TGroupBox;
    SpeedButton5: TSpeedButton;
    GroupBox6: TGroupBox;
    SpeedButton4: TSpeedButton;
    GroupBox7: TGroupBox;
    SpeedButton1: TSpeedButton;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Edit1: TEdit;
    ADOTable1: TADOTable;
    Image_title: TImage;
    Image_close: TImage;
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(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
  readerstyle: Treaderstyle;


implementation

uses Unit6, Unit2;

{$R *.dfm}


procedure Treaderstyle.FormCreate(Sender: TObject);

begin
flag_normal:=true;
mouselbuttondown:=false;
adodataset1.CommandText:='select * from 读者类型';
adodataset1.Active:=true;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
maskedit1.ReadOnly:=true;
speedbutton3.Enabled:=false;
speedbutton4.Enabled:=false;

end;




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


procedure Treaderstyle.SpeedButton5Click(Sender: TObject);
begin
fg:='';
edit1.ReadOnly:=false;
edit2.ReadOnly:=false;

maskedit1.ReadOnly:=false;
speedbutton3.Enabled:=true;
speedbutton4.Enabled:=true;
speedbutton1.Enabled:=false;
speedbutton2.Enabled:=false;
speedbutton5.Enabled:=false;


end;

procedure Treaderstyle.SpeedButton3Click(Sender: TObject);
begin
adotable1.Open;
if fg<>'change' then
 begin
    if (edit1.Text='') or (edit2.text='') or (maskedit1.Text='') then
      begin
          messagedlg('请填写全部信息',mtwarning,[mbok],0);
          exit;
      end;
   if adotable1.Locate('类型编号',edit1.Text,[locaseinsensitive]) then
      begin
        messagedlg('此类别代码已存在，请重新填写',mtwarning,[mbok],0);
        edit1.SelectAll;
        exit;
      end;
      
 end;

        adotable1.Close;
        adotable1.Open;
        adotable1.Edit;
        adotable1.Append;
        adotable1.FieldByName('类型编号').AsString:=edit1.Text;
        adotable1.FieldByName('类型名称').AsString:=edit2.Text;
        adotable1.FieldByName('借出册数').AsInteger:=strtoint(trim(maskedit1.Text));
        adotable1.Active:=true;
        adotable1.Post;
        edit1.Text:='';  edit2.text:='' ;  maskedit1.Text:='' ;  

        edit1.ReadOnly:=true;
        edit2.ReadOnly:=true;
        maskedit1.ReadOnly:=true;
        speedbutton3.Enabled:=false;
        speedbutton4.Enabled:=false;
        speedbutton1.Enabled:=true;
        speedbutton2.Enabled:=true;
        speedbutton5.Enabled:=true;

end;

procedure Treaderstyle.SpeedButton4Click(Sender: TObject);
begin
adotable1.Cancel;
  edit2.text:='' ;  edit1.Text:='' ;  maskedit1.Text:='' ;

 edit2.ReadOnly:=true;
 edit1.ReadOnly:=true;
 maskedit1.ReadOnly:=true;
 speedbutton3.Enabled:=false;
 speedbutton4.Enabled:=false;
 speedbutton1.Enabled:=true;
 speedbutton2.Enabled:=true;
 speedbutton5.Enabled:=true;
end;

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

procedure Treaderstyle.SpeedButton2Click(Sender: TObject);
begin
fg:='change';
edit1.ReadOnly:=true;
edit2.ReadOnly:=false;
maskedit1.ReadOnly:=false;
speedbutton3.Enabled:=true;
speedbutton4.Enabled:=true;
speedbutton1.Enabled:=false;
speedbutton2.Enabled:=false;
speedbutton5.Enabled:=false;
adotable1.open;
edit1.Text:=adotable1.FieldByName('类型编号').AsString;
edit2.Text:=adotable1.FieldByName('类型名称').AsString;
maskedit1.Text:=inttostr( adotable1.FieldByName('借出册数').AsInteger);

end;

procedure Treaderstyle.SpeedButton1Click(Sender: TObject);
var s1:string;
begin
 s1:='系统提示，请不要随意删除已存在或已使用的读者类型，这样系统会出现不可预料的错误';
 messagedlg(s1,mtwarning,[mbok],0) ;
 s1:='您确实要删除  类型编号 '+adotable1.fieldbyname('类型编号').asstring+' 类型名称 '+adotable1.fieldbyname('类型名称').asstring +'  记录吗？';
 if messagedlg(s1,mtwarning,[mbok,mbcancel],0)=mrok then
   adotable1.Delete
 else
   exit;
end;

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

end.