unit1.pas

图书管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, ADODB, Mask, DB,
  DBTables;

type
  Tfindreader = class(TForm)
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    Edit1: TEdit;
    edit2: TEdit;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    Panel1: TPanel;
    Label9: TLabel;
    Edit9: TEdit;
    Label11: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit6: TEdit;
    Label5: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit5: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Memo1: TMemo;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    MaskEdit1: TMaskEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button4: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure DBLookupComboBox1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  findreader: Tfindreader;

implementation

{$R *.dfm}

procedure Tfindreader.Button2Click(Sender: TObject);
begin
  adotable1.Active:= false;
  adotable1.Active:= true;
  adotable2.Active:= false;
  adotable2.Active:= true;
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
maskedit1.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Edit7.Text := '';

Edit9.Text := '';
memo1.Text := '';

end;

procedure Tfindreader.Button1Click(Sender: TObject);
begin

          adotable1.Active:= false;
          adotable1.Active:= true;
          adotable2.Active:= false;
          adotable2.Active:= true;
  if RadioButton1.Checked then

    if not adotable1.Locate('reader_no',edit1.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit1.Text:='';
        end

     else
         begin
             adotable1.Locate('reader_no',edit1.Text,[]);
             edit2.Text := adotable1.fieldbyname('reader_name').AsString;
             edit3.Text := adotable1.fieldbyname('reader_sex').AsString;
             //edit4.Text := adotable1.fieldbyname('reader_type').AsString;
             edit5.Text := adotable1.fieldbyname('reader_dep').AsString;
             edit6.Text := adotable1.fieldbyname('reader_tel').AsString;
             edit7.Text := adotable1.fieldbyname('reader_email').AsString;
             maskedit1.Text := adotable1.fieldbyname('reader_checkdate').AsString;
             edit9.Text := adotable1.fieldbyname('reader_amount').AsString;
             memo1.Text := adotable1.fieldbyname('reader_memo').AsString;
         end;

  if RadioButton2.Checked then
    if not adotable1.Locate('reader_name',edit2.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit2.Text:='';
         end
     else
         begin
             adotable1.Locate('reader_name',edit2.Text,[]);
             edit1.Text := adotable1.fieldbyname('reader_no').AsString;
             edit3.Text := adotable1.fieldbyname('reader_sex').AsString;
             //edit4.Text := adotable1.fieldbyname('reader_type').AsString;
             edit5.Text := adotable1.fieldbyname('reader_dep').AsString;
             edit6.Text := adotable1.fieldbyname('reader_tel').AsString;
             edit7.Text := adotable1.fieldbyname('reader_email').AsString;
             maskedit1.Text := adotable1.fieldbyname('reader_checkdate').AsString;
             edit9.Text := adotable1.fieldbyname('reader_amount').AsString;
             memo1.Text := adotable1.fieldbyname('reader_memo').AsString;
          end;
end;

procedure Tfindreader.Button4Click(Sender: TObject);
begin

if edit1.Text='' then showmessage('读者编号不可为空')
  else if edit2.Text='' then showmessage('读者姓名不可为空')
    else  if edit3.Text =''then showmessage('读者性别不可为空')
      else  if edit5.Text ='' then showmessage('工作单位不可为空')
        else   if edit6.Text ='' then showmessage('电话不可为空')
          else   if edit7.Text ='' then showmessage('电子邮件地址不可为空')
            else   if edit9.Text ='' then showmessage('累计数量不可为空')              else
              begin
                if messagedlg('确实要修改该读者的信息？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
adotable1.Edit;
adotable1.FieldByName('reader_no').AsString:= edit1.text;
adotable1.FieldByName('reader_name').AsString :=edit2.text;
adotable1.FieldByName('reader_sex').AsString :=edit3.text;
adotable1.FieldByName('reader_dep').AsString :=edit5.text;
adotable1.FieldByName('reader_tel').AsString :=edit6.text;
adotable1.FieldByName('reader_email').AsString :=edit7.text;
adotable1.FieldByName('reader_checkdate').AsString :=maskedit1.text;
adotable1.FieldByName('reader_amount').AsString :=edit9.text;
adotable1.FieldByName('reader_memo').AsString :=memo1.text;
adotable1.Post;
showmessage('修改成功');
edit1.color := clBtnHighlight;
edit3.color := clBtnFace;
edit5.color := clBtnFace;
edit6.color := clBtnFace;
edit7.color := clBtnFace;
edit9.color := clBtnFace;
dblookupcombobox1.Color:= clBtnFace;
maskedit1.Color:= clBtnFace;
memo1.Color:=clBtnFace;
edit1.ReadOnly:=false;
edit3.ReadOnly:=true;
edit5.ReadOnly:=true;
edit6.ReadOnly:=true;
edit7.ReadOnly:=true;
edit9.ReadOnly:=true;
memo1.ReadOnly:=true;
dblookupcombobox1.ReadOnly:=true;
maskedit1.ReadOnly:=true;
memo1.ReadOnly :=true;
               end;
    end;
end;

procedure Tfindreader.DBLookupComboBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ADOTable2.Active:=false;
  ADOTable2.Active:=true;
  dblookupcombobox1.ListSource :=datasource2;
end;

procedure Tfindreader.Button3Click(Sender: TObject);
begin
edit1.Color:=clBtnFace;
edit1.ReadOnly:=true;
edit3.color := clBtnHighlight;
edit5.color := clBtnHighlight;
edit6.color := clBtnHighlight;
edit7.color := clBtnHighlight;
edit9.color := clBtnHighlight;
dblookupcombobox1.Color:= clBtnHighlight;
maskedit1.Color:= clBtnHighlight;
memo1.Color:=clBtnHighlight;
edit3.ReadOnly:=false;
edit5.ReadOnly:=false;
edit6.ReadOnly:=false;
edit7.ReadOnly:=false;
edit9.ReadOnly:=false;
memo1.ReadOnly:=false;
dblookupcombobox1.ReadOnly:=false;
maskedit1.ReadOnly:=false;
memo1.ReadOnly :=false;

end;

procedure Tfindreader.FormCreate(Sender: TObject);
begin
dbgrid1.Columns[0].Title.caption := '读者编号';
dbgrid1.Columns[1].Title.caption := '读者姓名';
dbgrid1.Columns[2].Title.caption := '性别';
dbgrid1.Columns[3].Title.caption := '读者种类';
dbgrid1.Columns[4].Title.caption := '读者单位';
dbgrid1.Columns[5].Title.caption := '联系电话';
dbgrid1.Columns[6].Title.caption := 'email地址';
dbgrid1.Columns[7].Title.caption := '已借阅本数';
dbgrid1.Columns[8].Title.caption := '登记日期';
dbgrid1.Columns[9].Title.caption := '备注';
dbgrid1.Columns[10].Title.caption := '信用等级分数';

end;

procedure Tfindreader.DBGrid1CellClick(Column: TColumn);
begin
  
             edit1.Text := adotable1.fieldbyname('reader_no').AsString;
             edit2.Text := adotable1.fieldbyname('reader_name').AsString;
             edit3.Text := adotable1.fieldbyname('reader_sex').AsString;
             //edit4.Text := adotable1.fieldbyname('reader_type').AsString;
             edit5.Text := adotable1.fieldbyname('reader_dep').AsString;
             edit6.Text := adotable1.fieldbyname('reader_tel').AsString;
             edit7.Text := adotable1.fieldbyname('reader_email').AsString;
             maskedit1.Text := adotable1.fieldbyname('reader_checkdate').AsString;
             edit9.Text := adotable1.fieldbyname('reader_amount').AsString;
             memo1.Text := adotable1.fieldbyname('reader_memo').AsString;
end;

end.