unit7.pas

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

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    PopupMenu1: TPopupMenu;
    d1: TMenuItem;
    d4: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ToolBar1: TToolBar;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    dd1: TDateTimePicker;
    Edit4: TEdit;
    ImageList1: TImageList;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    DataSource1: TDataSource;
    ComboBox2: TComboBox;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ADOConnection1: TADOConnection;
    ADODt1: TADODataSet;
    Table1: TADOTable;
    t1: TADOTable;
    Image_title: TImage;
    Image_close: TImage;
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);

    procedure DBGrid1CellClick(Column: TColumn);
    procedure editsread(f:boolean);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Image_closeClick(Sender: TObject);

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

var
  Form7: TForm7;


implementation

uses Unit2, Unit8;

{$R *.dfm}






procedure TForm7.FormCreate(Sender: TObject);
var
    ta1:ttable;
begin
dd1.Date:=form2.GetCurrentDateTime;
editsread(true)  ;
speedbutton4.Enabled:=false;
speedbutton5.Enabled:=false;
flag_normal:=true;
mouselbuttondown:=false;
popupmenu1.Items[3].Enabled:=true;
adodt1.CommandText:='select * from 读者类型';
adodt1.Active:=true;
adodt1.First;
while not adodt1.Eof do
begin
   combobox2.Items.Add(adodt1.FieldValues['类型编号']);
   adodt1.Next;
end;
adodt1.Active:=false;
table1.Open;
end;



procedure TForm7.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=table1.Fieldbyname('读者编号').AsString;
edit2.Text:=table1.Fieldbyname('姓名').AsString;
combobox1.Text:=table1.Fieldbyname('性别').asstring;
combobox2.Text:=table1.FieldValues['读者类型'];
edit3.Text:=table1.Fieldbyname('联系电话').AsString;
edit4.Text:=table1.Fieldbyname('单位部门').AsString;
dd1.Date:=table1.Fieldbyname('办证日期').AsDateTime;
end;

procedure tform7.editsread(f:boolean);
begin
edit1.ReadOnly:=f;
edit2.ReadOnly:=f;
edit3.ReadOnly:=f;
edit4.ReadOnly:=f;
end;


procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
ff:='add';
speedbutton1.Enabled:=false;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
editsread(false);
edit1.SetFocus;
edit1.SelectAll;
combobox1.DropDownCount:=2;
end;

procedure TForm7.SpeedButton4Click(Sender: TObject);
begin
if edit1.Text='' then
  begin
  messagedlg('请输入读者编号',mtwarning,[mbok],0);
  exit
  end ;
    if ff='add' then
      begin
        t1.Open;
       if t1.Locate('读者编号',edit1.Text,[locaseinsensitive]) then
       begin
         t1.Destroy;
         messagedlg('此读者编号已存在，请更改',mtwarning,[mbok],0);
         form7.Edit1.SelectAll;
         exit;
       end ;
       end;
   
       if edit2.Text='' then
        begin
         messagedlg('您没有输入读者姓名',mtwarning,[mbok],0);
         form7.Edit1.SelectAll;
         exit;
        end;

        if ff='add' then
        table1.Append
        else if ff='change' then
        table1.Edit;
        table1.FieldByName('读者编号').Value:=edit1.Text;
        table1.FieldByName('姓名').value:=edit2.Text;
        table1.FieldByName('性别').value:=combobox1.Text;
        table1.FieldByName('读者类型').value:=combobox2.Text;
        table1.FieldByName('联系电话').value:=edit3.Text;
        table1.FieldByName('单位部门').value:=edit4.Text;
        table1.Fieldbyname('办证日期').value:=formatdatetime('yyyy-mm-dd',dd1.Date);
        table1.Post;
        if ff='add' then
        table1.First;
        speedbutton1.Enabled:=true;
        speedbutton2.Enabled:=true;
        speedbutton3.Enabled:=true;
        speedbutton4.Enabled:=false;
        speedbutton5.Enabled:=false;
        editsread(true);
end;

procedure TForm7.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure TForm7.SpeedButton5Click(Sender: TObject);
begin
dd1.Date:=form2.GetCurrentDateTime;
if ff='add' then
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

editsread(true)  ;
speedbutton1.Enabled:=true;
speedbutton2.Enabled:=true;
speedbutton3.Enabled:=true;
speedbutton4.Enabled:=false;
speedbutton5.Enabled:=false;
flag_normal:=true;
table1.Open;


end;

procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
        edit1.Text:=table1.FieldValues['读者编号'];
        edit2.Text:=table1.FieldValues['姓名'];
        combobox1.Text:=table1.FieldValues['性别'];
        combobox2.Text:=table1.FieldValues['读者类型'];
        combobox1.Text:=table1.FieldValues['性别'];
        edit3.Text:=table1.FieldValues['联系电话'];
        edit4.Text:=table1.FieldValues['单位部门'];
        dd1.Date:=table1.Fieldbyname('办证日期').value;
        
        speedbutton1.Enabled:=false;
        speedbutton2.Enabled:=false;
        speedbutton3.Enabled:=false;
        speedbutton4.Enabled:=true;
        speedbutton5.Enabled:=true;
        editsread(false);
        edit1.ReadOnly:=true;
        ff:='change';
end;

procedure TForm7.SpeedButton3Click(Sender: TObject);
var dd,dd1,dd3:string;
begin
dd:=edit1.Text;
dd1:=edit2.Text;
dd3:='您确实要删除编号为 '+dd+'  姓名为 '+dd1+'  的记录吗？';
if messagedlg(dd3,mtconfirmation,[mbok,mbcancel],2)=mrok then
begin
 // table1.Edit;

 table1.Locate('读者编号',dd,[locaseinsensitive]);
 table1.Delete
  end
else
table1.Cancel;
edit1.Text:='';
edit2.Text:='';
combobox1.ItemIndex:=0;
combobox2.Text:='A';
edit3.Text:='';
edit4.Text:='';

end;


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

end.