unit4.~pas

2个用Delphi做的图书管理系统

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, DBCtrls, Buttons;

type
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ListBox1: TListBox;
    address: TEdit;
    StaticText15: TStaticText;
    StaticText14: TStaticText;
    StaticText13: TStaticText;
    email: TEdit;
    qq: TEdit;
    StaticText11: TStaticText;
    StaticText10: TStaticText;
    bp: TEdit;
    handp: TEdit;
    StaticText9: TStaticText;
    StaticText8: TStaticText;
    homep: TEdit;
    StaticText5: TStaticText;
    edu: TComboBox;
    sex: TComboBox;
    StaticText4: TStaticText;
    shenfen: TEdit;
    StaticText3: TStaticText;
    name: TEdit;
    StaticText2: TStaticText;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox1: TGroupBox;
    StaticText1: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText12: TStaticText;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    StaticText20: TStaticText;
    StaticText21: TStaticText;
    StaticText22: TStaticText;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    ListBox2: TListBox;
    Edit10: TEdit;
    Label2: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure shownow();
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.show;
end;

procedure TForm4.shownow();
begin
  edit1.Text:=dm.ADOQuery5.FieldValues['ReaderCardID'];
  name.Text:=dm.ADOQuery5.FieldValues['name'];
  shenfen.Text:=dm.ADOQuery5.FieldValues['id'];
  homep.Text:=dm.ADOQuery5.FieldValues['homephone'];
  handp.Text:=dm.ADOQuery5.FieldValues['handphone'];
  bp.Text:=dm.ADOQuery5.FieldValues['bp'];
  qq.Text:=dm.ADOQuery5.FieldValues['qq'];
  email.Text:=dm.ADOQuery5.FieldValues['email'];
  address.Text:=dm.ADOQuery5.FieldValues['address'];
  sex.ItemIndex:=strtoint(dm.ADOQuery5.FieldValues['sex']);
  edu.ItemIndex:=strtoint(dm.ADOQuery5.FieldValues['educationid']);
end;

procedure TForm4.TabSheet1Show(Sender: TObject);
var
querystr:string;
begin
  querystr:='select reader_inf.ReaderCardID,name,id,sex,educationid,homephone,handphone,bp,qq,email,address from reader_inf,reader_relation where reader_inf.ReaderCardID=reader_relation.ReaderCardID';
  dm.ADOQuery5.Close;
  dm.ADOQuery5.SQL.Clear;
  dm.ADOQuery5.SQL.Add(querystr);
  dm.ADOQuery5.open;
  shownow;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  dm.ADOQuery5.First;
  shownow;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  dm.ADOQuery5.Prior;
  shownow;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
  dm.ADOQuery5.Next;
  shownow;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
  dm.ADOQuery5.Last;
  shownow;
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
var
querystr:string;
begin
  if messagedlg('你确信要更改数据吗?',mtconfirmation,[mbyes,mbno],0)=mrno then
    begin
    shownow;
    exit;
    end;
  querystr:='update reader_inf set ';
  querystr:=querystr+'id="'+shenfen.Text+'", ';
  querystr:=querystr+'name="'+name.Text+'", ';
  querystr:=querystr+'sex="'+inttostr(sex.ItemIndex)+'", ';
  querystr:=querystr+'educationid="'+inttostr(edu.ItemIndex)+'" ';
  querystr:=querystr+'where ReaderCardID="'+edit1.Text+'"';
  dm.ADOQuery5.Close;
  dm.ADOQuery5.SQL.Clear;
  dm.ADOQuery5.SQL.Add(querystr);
  dm.ADOQuery5.ExecSQL;
  querystr:='update reader_relation set ';
  querystr:=querystr+'homephone="'+homep.Text+'", ';
  querystr:=querystr+'handphone="'+handp.Text+'", ';
  querystr:=querystr+'bp="'+bp.Text+'", ';
  querystr:=querystr+'qq="'+qq.Text+'", ';
  querystr:=querystr+'email="'+email.Text+'", ';
  querystr:=querystr+'address="'+address.Text+'" ';
  querystr:=querystr+'where ReaderCardID="'+edit1.Text+'"';
  dm.ADOQuery5.Close;
  dm.ADOQuery5.SQL.Clear;
  dm.ADOQuery5.SQL.Add(querystr);
  dm.ADOQuery5.ExecSQL;
  messagedlg('修改数据成功!',mtinformation,[mbok],0);
  tabsheet1show(sender);
end;

procedure TForm4.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
var
querystr:string;
begin
if  edit10.Text='' then
  begin
  messagedlg('卡号不能为空!',mterror,[mbok],0);
  exit;
  end;
if  edit2.Text='' then
  begin
  messagedlg('姓名不能为空!',mterror,[mbok],0);
  exit;
  end;
  if messagedlg('你确信要添加数据吗?',mtconfirmation,[mbyes,mbno],0)=mrno then
    begin
    shownow;
    exit;
    end;
querystr:='insert into reader_inf values(';
querystr:=querystr+'"'+edit10.Text+'",';
querystr:=querystr+'"'+edit3.Text+'",';
querystr:=querystr+'"'+edit2.Text+'",';
querystr:=querystr+'"'+inttostr(combobox1.ItemIndex)+'",';
querystr:=querystr+'"'+inttostr(combobox2.ItemIndex)+'",';
querystr:=querystr+'"'+datetostr(date)+'")';
dm.ADOQuery5.Close;
dm.ADOQuery5.SQL.Clear;
dm.ADOQuery5.SQL.Add(querystr);
dm.ADOQuery5.ExecSQL;
querystr:='insert into reader_relation values(';
querystr:=querystr+'"'+edit10.Text+'",';
querystr:=querystr+'"'+edit4.Text+'",';
querystr:=querystr+'"'+edit5.Text+'",';
querystr:=querystr+'"'+edit6.Text+'",';
querystr:=querystr+'"'+edit7.Text+'",';
querystr:=querystr+'"'+edit8.Text+'",';
querystr:=querystr+'"'+edit9.Text+'")';
dm.ADOQuery5.Close;
dm.ADOQuery5.SQL.Clear;
dm.ADOQuery5.SQL.Add(querystr);
dm.ADOQuery5.ExecSQL;
messagedlg('添加数据成功!',mtinformation,[mbok],0);
end;

procedure TForm4.TabSheet2Show(Sender: TObject);
var
querystr:string;
begin
  querystr:='select readercardid from reader_inf where readercardid=(select max(readercardid) from reader_inf)';
  dm.ADOQuery5.Close;
  dm.ADOQuery5.SQL.Clear;
  dm.ADOQuery5.SQL.Add(querystr);
  dm.ADOQuery5.open;
  edit10.Text:=inttostr(strtoint(dm.ADOQuery5.FieldValues['readercardid'])+1);
end;

end.