www.pudn.com > 701.rar > 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
if adotable1.Locate('bookid',edit1.Text,[])
then begin showmessage('图书ID存在，请检查后重新输入');
end
else if adotable1.Locate('bookname',edit2.Text,[])
then begin showmessage('图书名称已存在，请检查后重新输入');
end
else if not ( edit4.Text='True') or (edit4.Text='Fause')
then begin showmessage('在馆状态错误，请检查后重新输入');
end
else
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
//if adotable1.Locate('bookid',edit1.Text,[])
// var tempbookid:=
// then begin showmessage('图书ID存在，请检查后重新输入');
// end
// else if adotable1.Locate('bookname',edit2.Text,[])
// then begin showmessage('图书名称已存在，请检查后重新输入');
// end
// else if not ( edit4.Text='True') or (edit4.Text='Fause')
// then begin showmessage('在馆状态错误，请检查后重新输入');
// end
// else
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.