operator.txt

delphi开发的图书管理系统 包括登录框、借书还书、新书入库、权限管理、查询等部分的源程序

unit Operator;

interface

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

type
  TOperatorForm = class(TForm)
    Panel1: TPanel;
    OperatorForm: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender:TObject;var Action:TCloseAction);
    procedure FormCreate(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OperatorForm: TOperatorForm;

implementation
uses DataModule;
{$R *.dfm}

procedure TOperatorForm.FormClose(Sender:TObject;var Action:TCloseAction);
begin
 Action:=caFree;
end;

procedure TOperatorForm.FormCreate(Sender:TObject);
begin
  DataModuleADO.ADOQuery1.close;
  DataModuleADO.ADOQuery1.SQL.Clear;
  DataModuleADO.ADOQuery1.SQL.Add('select * from Operator');
  DataModuleADO.ADOQuery1.Open;
end;

procedure TOperatorForm.Button1Click(Sender: TObject);
begin
    if (Edit1.Text<>'')and(Edit2.Text=Edit3.Text)then
    begin
    DataModuleADO.ADOQuery1.Append;
    DataModuleADO.ADOQuery1['Username']:=Edit1.Text;
    DataModuleADO.ADOQuery1['Password']:=Edit2.Text;
    DataModuleADO.ADOQuery1.FieldByName('LastLogin').AsDateTime:=Now;
    DataModuleADO.ADOQuery1.Post;
    end
end;


procedure TOperatorForm.Button2Click(Sender: TObject);
begin
   DataModuleADO.ADOQuery1.Close;
   DataModuleADO.ADOQuery1.SQL.Clear;
   DataModuleADO.ADOQuery1.SQL.Add('select * from Operator where Username='''+Edit4.Text+'''');
   DataModuleADO.ADOQuery1.Open;
   if  DataModuleADO.ADOQuery1.RecordCount=1 then
   begin
   Edit5.Text:=DataModuleADO.ADOQuery1['Username'];
   Edit6.Text:=DataModuleADO.ADOQuery1['Password'];
   end
   else MessageDlg('Username Not Exist!',mtError,[mbOK],0);
end;


procedure TOperatorForm.Button3Click(Sender: TObject);
begin
    if (Edit5.Text<>'')and(Edit6.Text<>'')then
    begin
    DataModuleADO.ADOQuery1.Edit;
    DataModuleADO.ADOQuery1['Username']:=Edit5.Text;
    DataModuleADO.ADOQuery1['Password']:=Edit6.Text;
    DataModuleADO.ADOQuery1.FieldByName('LastLogin').AsDateTime:=Now;
    DataModuleADO.ADOQuery1.Post;
    end
    else MessageDlg('Not Null!',mtError,[mbOK],0);
end;

procedure TOperatorForm.Button4Click(Sender: TObject);
begin
    DataModuleADO.ADOQuery1.Delete;
end;

end.