unit8.pas

数据库开发

unit Unit8;

interface

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

type
  Ttushuguanli = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Panel7: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Panel8: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    ADOTable1bookid: TWideStringField;
    ADOTable1bookname: TWideStringField;
    ADOTable1author: TWideStringField;
    ADOTable1in: TBooleanField;
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2ColEnter(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tushuguanli: Ttushuguanli;

implementation

{$R *.dfm}

procedure Ttushuguanli.TabSheet1Show(Sender: TObject);
begin
       adotable1.Append;

end;

procedure Ttushuguanli.TabSheet2Show(Sender: TObject);
begin
  edit5.Text:=adotable1.Fields[0].AsString;
  edit6.Text:=adotable1.Fields[1].AsString;
  edit7.Text:=adotable1.Fields[2].AsString;
  edit8.Text:=adotable1.Fields[3].AsString;
end;

procedure Ttushuguanli.TabSheet3Show(Sender: TObject);
begin
  edit9.Text:=adotable1.Fields[0].AsString;
  edit10.Text:=adotable1.Fields[1].AsString;
  edit11.Text:=adotable1.Fields[2].AsString;
  edit12.Text:=adotable1.Fields[3].AsString;
end;

procedure Ttushuguanli.BitBtn1Click(Sender: TObject);
begin
if edit1.Text='' then showmessage('请输入ID')
  else if edit2.Text='' then showmessage('请输入书名')
    else  if edit3.Text ='' then showmessage('请输入作者')
      else  if edit4.Text ='' then showmessage('请输入状态')
         else
begin
 if messagedlg('确实要增加该图书？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
          adotable1.Edit;
          adotable1.Append;
          adotable1.FieldByName('bookid').AsString:=edit1.Text;
          adotable1.FieldByName('bookname').AsString:=edit2.Text;
          adotable1.FieldByName('author').AsString:=edit3.Text;
          adotable1.FieldByName('in').AsString:=edit4.Text;
          adotable1.post;
          showmessage('添加成功');
          adotable1.Append;
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
          adotable1.Refresh;

    end
    else
    begin
     showmessage('添加失败');
     adotable1.Append;
    end;
 end;   
end;

procedure Ttushuguanli.BitBtn7Click(Sender: TObject);
begin
    adotable1.Active:=true;
  if RadioButton1.Checked then

    if not adotable1.Locate('bookid',edit13.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit14.Text:='';
         end
     else
         begin
             adotable1.Locate('bookid',edit13.Text,[]);
             edit5.Text:=adotable1.Fields[0].AsString;
             edit6.Text:=adotable1.Fields[1].AsString;
             edit7.Text:=adotable1.Fields[2].AsString;
             edit8.Text:=adotable1.Fields[3].AsString;
             edit13.Text:='';
          end;

               ////////图书删除选择

  if RadioButton2.Checked then
    if not adotable1.Locate('bookname',edit14.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit14.Text:=''
         end
     else
         begin
             adotable1.Locate('bookname',edit14.Text,[]);
             edit5.Text:=adotable1.Fields[0].AsString;
             edit6.Text:=adotable1.Fields[1].AsString;
             edit7.Text:=adotable1.Fields[2].AsString;
             edit8.Text:=adotable1.Fields[3].AsString;
             edit14.Text:=''
          end;



end;

procedure Ttushuguanli.BitBtn8Click(Sender: TObject);
begin
adotable1.Edit;
  if RadioButton3.Checked then

    if not adotable1.Locate('bookid',edit15.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit15.Text:='';
         end
     else
         begin
             adotable1.Locate('bookid',edit15.Text,[]);
             edit9.Text:=adotable1.Fields[0].AsString;
             edit10.Text:=adotable1.Fields[1].AsString;
             edit11.Text:=adotable1.Fields[2].AsString;
             edit12.Text:=adotable1.Fields[3].AsString;
             edit15.Text:='';
          end;

               ////////图书信息修改选择

  if RadioButton4.Checked then
    if not adotable1.Locate('bookname',edit16.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit16.Text:='';
         end
     else
         begin
             adotable1.Locate('bookname',edit16.Text,[]);
             edit9.Text:=adotable1.Fields[0].AsString;
             edit10.Text:=adotable1.Fields[1].AsString;
             edit11.Text:=adotable1.Fields[2].AsString;
             edit12.Text:=adotable1.Fields[3].AsString;
             edit16.Text:='';
          end;



end;

procedure Ttushuguanli.BitBtn3Click(Sender: TObject);
begin
adotable1.Edit;
  if messagedlg('确实要删除该图书？',mtWarning,[mbOK,mbCancel],0)=mrok then
    begin adotable1.Delete;
           showmessage('删除成功');
    end
    else
    begin
     showmessage('删除失败');
    end;
end;

procedure Ttushuguanli.BitBtn4Click(Sender: TObject);
begin
   edit5.text:='';
   edit6.text:='';
   edit7.text:='';
   edit8.text:='';
end;

procedure Ttushuguanli.BitBtn6Click(Sender: TObject);
begin
  edit9.text:='';
  edit10.text:='';
  edit11.text:='';
  edit12.text:='';
end;

procedure Ttushuguanli.BitBtn2Click(Sender: TObject);
begin
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
  edit4.text:='';
end;

procedure Ttushuguanli.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text:=adotable1.Fields[0].AsString;
  edit2.Text:=adotable1.Fields[1].AsString;
  edit3.Text:=adotable1.Fields[2].AsString;
  edit4.Text:=adotable1.Fields[3].AsString;
end;

procedure Ttushuguanli.DBGrid2ColEnter(Sender: TObject);
begin
  edit5.Text:=adotable1.Fields[0].AsString;
  edit6.Text:=adotable1.Fields[1].AsString;
  edit7.Text:=adotable1.Fields[2].AsString;
  edit8.Text:=adotable1.Fields[3].AsString;
end;

procedure Ttushuguanli.DBGrid3CellClick(Column: TColumn);
begin
  edit9.Text:=adotable1.Fields[0].AsString;
  edit10.Text:=adotable1.Fields[1].AsString;
  edit11.Text:=adotable1.Fields[2].AsString;
  edit12.Text:=adotable1.Fields[3].AsString;
end;

procedure Ttushuguanli.BitBtn5Click(Sender: TObject);
begin
  if messagedlg('确实要修改该图书的信息？',mtInformation,[mbOK, mbCancel],0)=mrok then
  begin
   adotable1.Edit;
   adotable1.Fields[0].AsString:=edit9.Text;
   adotable1.Fields[1].AsString:=edit10.Text;
   adotable1.Fields[2].AsString:=edit11.Text;
   adotable1.Fields[2].AsString:=edit12.Text;
   adotable1.post;
   showmessage('信息修改成功');
  end
  else showmessage('信息没有修改');
end;

procedure Ttushuguanli.BitBtn11Click(Sender: TObject);
begin
close;
end;

procedure Ttushuguanli.BitBtn10Click(Sender: TObject);
begin
close;
end;

procedure Ttushuguanli.BitBtn9Click(Sender: TObject);
begin
close;
end;

end.