locatereader.~pas

图书馆管理系统

unit locatereader;

interface

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

type
  Tfrmlocatereader = class(TForm)
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    edit2: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label9: TLabel;
    Label11: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit9: TEdit;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    MaskEdit1: TMaskEdit;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit4: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlocatereader: Tfrmlocatereader;

implementation

{$R *.dfm}

procedure Tfrmlocatereader.Button1Click(Sender: TObject);
begin
adotable1.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 Tfrmlocatereader.BitBtn2Click(Sender: TObject);
begin
adotable1.Prior;
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;

procedure Tfrmlocatereader.BitBtn1Click(Sender: TObject);
begin
adotable1.Next;
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;

procedure Tfrmlocatereader.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfrmlocatereader.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 Tfrmlocatereader.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.