?? datamodule.pas

?? 圖書管理系統
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB,Forms,variants,Dialogs;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADODataSetBookEdit: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet2: TADODataSet;
    ADODataSetLendBook: TADODataSet;
    DataSourceLendBook: TDataSource;
    ADODataSetBookType: TADODataSet;
    DataSourceBookType: TDataSource;
    ADODataSetBookQuery: TADODataSet;
    ADODataSetBookStockQuery: TADODataSet;
    ADODataSetReaderQuery: TADODataSet;
    ADODataSetLendBookQuery: TADODataSet;
    ADODataSetUserQuery: TADODataSet;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitAdoDatasetBookEdit;
    function CCheckBookNumber(bookid:string):boolean; //根據書ID獲得書數
    function CCheckID(sql:string):boolean;            //傳入SQL檢測ID是否存在（通用）
    function GetBookName(bookid:string):string;       //根據書ID獲得書名
    function InsertBookType(value1,value2:string):boolean;
    function UpdateBookType(value1,value2:string):boolean;
    function DeleteBookType(bookid:string):boolean;   //刪除圖書類型
    function GetBookTypeNum(value:string):integer;  //獲得某類圖書在庫中總數
    function GetBookTypeName(typeid:string):string; //根據書類型ID獲得類型名
    function GetBookTypeID(typename:string):string; // 根據書類型名獲得類型ID
    function GetStockBookNum(bookid:string):integer;//獲得庫存中某書總數
    function DeleteBook(bookid:string):boolean;     //刪除圖書數為0的所有圖書信息
    function ModifyPassword(username,newpass:string):boolean;    //修改用戶密碼
    function CheckUserPassword(username,password:string):boolean;//檢測密碼正確性
    function CheckUserName(username:string):boolean;             //檢測用戶名
    function GetUserPurviewMenu(username:string):boolean;        //獲得用戶權限可使用菜單
    function GetMenuName(menuid:string):string;                  //通過菜單ID獲得菜單名
    function GetReaderEducationName(educationid:string):string;  //通過學歷ID獲得學歷名
    function GetReaderEducationID(educationname:string):string;  //通過學歷ID獲得學歷名
    function GetReaderTypeName(typeid:string):string;            //通過讀者類型ID獲得類型名
    function GetReaderTypeID(typeNAME:string):string;            //通過讀者類型名獲得類型ID
    function GetReaderLendBookNum(readercardid:string):integer;  //通過讀者卡號獲得讀者所借書數(未歸還書數)
    function GetReaderLendBookCount(readercardid:string):integer;//通過卡號返回此卡借書總數
    function CheckReaderLendBookName(readercardid,bookid:string):boolean;//檢查未歸還書中有無此書
    function SaveUserLongin(username:string;longin:boolean):boolean;     //登陸日志
    function GetAllBookNum:integer; // 獲得庫中圖書總數
  end;

var
  DM: TDM;

implementation

uses MainU,ShareU;
{$R *.dfm}


//保存登陸日志
function TDM.SaveUserLongin(username:string;longin:boolean):boolean;
var
  Query:TADOQuery;
begin
     Query:=TADOQuery.Create(self);
     Query.Connection:=ADOConnection1;
     try
     dm.ADOConnection1.BeginTrans;
     if longin then
     begin
       Query.SQL.Text:='insert into User_LoginLog (username,uptime,downtime)'+
                     'values (:username,:uptime,:downtime)';
       Query.Parameters.ParamByName('username').Value:=username;
       Query.Parameters.ParamByName('uptime').Value:=CurUserLonginTime;
       Query.Parameters.ParamByName('downtime').Value:=CurUserLonginTime;
     end
     else
     begin
       Query.SQL.Text:='update User_LoginLog set downtime=:downtime where'+
                       ' username=:username and uptime=:uptime';
       Query.Parameters.ParamByName('downtime').Value:=now;
       Query.Parameters.ParamByName('username').Value:=username;
       Query.Parameters.ParamByName('uptime').Value:=CurUserLonginTime;
     end;
     Query.ExecSQL;
     dm.ADOConnection1.CommitTrans;
     result:=true;
     except
       dm.ADOConnection1.RollbackTrans;
       result:=false;
     end;
     
     Query.Close;
     Query.Free;
end;

//檢查未歸還書中有無此書
function TDM.CheckReaderLendBookName(readercardid,bookid:string):boolean;
var
  Query:TADOQuery;
begin
   Query:=TADOQuery.Create(self);
   Query.Connection:=dm.ADOConnection1;
   Query.SQL.Text:='select bookid from lend_book where readercardid=:id '+
                   'and bookid=:bookid and state=1';
   Query.Parameters.ParamByName('id').Value:=readercardid;
   Query.Parameters.ParamByName('bookid').Value:=bookid;
   Query.Open;
   if not (query.RecordCount >0) then
       Result:=false  //沒
   else
       result:=true;  //有
   Query.Close;
   Query.Free;
end;

//通過卡號返回此卡借書總數
function TDM.GetReaderLendBookCount(readercardid:string):integer;
var
  Query:TADOQuery;
begin
   Query:=TADOQuery.Create(self);
   Query.Connection:=dm.ADOConnection1;
   Query.SQL.Text:='select lendbook from reader_type where readertypeid in '+
                   ' (select readertypeid from reader_info where '+
                   ' readercardid=:readercardid)';
   Query.Parameters.ParamByName('readercardid').Value:=readercardid;
   Query.Open;
   Result:=query.FieldValues['lendbook'];
   Query.Close;
   Query.Free;
end;

//通過讀者卡號獲得讀者所借書數(未歸還書數)
function TDM.GetReaderLendBookNum(readercardid:string):integer;
var
  Query:TADOQuery;
begin
   Query:=TADOQuery.Create(self);
   Query.Connection:=dm.ADOConnection1;
   Query.SQL.Text:='select readercardid from lend_book where readercardid=:'+
                   'readercardid and state=:state';
   Query.Parameters.ParamByName('readercardid').Value:=readercardid;
   Query.Parameters.ParamByName('state').Value:=1;
   Query.Open;
   Result:=Query.RecordCount;
   Query.Close;
   Query.Free;
end;

//通過學歷ID獲得學歷名
function TDM.GetReaderEducationID(educationname:string):string;
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;
    Query.SQL.Text:='select educationid from reader_education where '+
                           ' educationname=:name';
    Query.Parameters.ParamByName('name').Value:=educationname;
    Query.Open;
    result:=trim(Query.FieldValues['educationid']);
    Query.Close;
    Query.Free;
end;

//通過類型ID獲得類型名
function TDM.GetReaderTypeName(typeid:string):string;
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;
    Query.SQL.Text:='select typename from reader_type where '+
                           ' readertypeid=:id';
    Query.Parameters.ParamByName('id').Value:=typeid;
    Query.Open;
    result:=trim(Query.FieldValues['typename']);
    Query.Close;
    Query.Free;
end;

//通過類型ID獲得類型名
function TDM.GetReaderTypeID(typename:string):string;
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;
    Query.SQL.Text:='select readertypeid from reader_type where '+
                           ' typename=:name';
    Query.Parameters.ParamByName('name').Value:=typename;
    Query.Open;
    result:=trim(Query.FieldValues['readertypeid']);
    Query.Close;
    Query.Free;
end;

//通過學歷ID獲得學歷名
function TDM.GetReaderEducationName(educationid:string):string;
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;
    Query.SQL.Text:='select educationname from reader_education where '+
                           ' educationid=:id';
    Query.Parameters.ParamByName('id').Value:=educationid;
    Query.Open;
    result:=trim(Query.FieldValues['educationname']);
    Query.Close;
    Query.Free;
end;

//通過菜單ID獲得菜單名
function TDM.GetMenuName(menuid:string):string;
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;
    Query.SQL.Text:='select menuname from menu_info where menuid=:id';
    Query.Parameters.ParamByName('id').Value:=menuid;
    Query.Open;
    result:=trim(Query.FieldValues['menuname']);
    Query.Close;
    Query.Free;
end;

//獲得用戶權限可使用菜單
function TDM.GetUserPurviewMenu(username:string):boolean;
var
  Query:TADOQuery;
  tempmenuname:string;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;
    Query.SQL.Text:='select menuid from user_purview where username=:name';
    Query.Parameters.ParamByName('name').Value:=username;
    Query.Open;
    Query.First;
    while not Query.Eof do
    begin
        tempmenuname:=GetMenuName(Query.FieldByName('menuid').AsString);
        EnabledMenu(tempmenuname);
        Query.Next;
    end;
    result:=true;
    Query.Close;
    Query.Free;
end;

//檢測用戶名
function TDM.CheckUserName(username:string):boolean;
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;

    Query.SQL.Text:='select username from user_info where username=:name';
    Query.Parameters.ParamByName('name').Value:=username;
    Query.Open;
    if query.RecordCount=1 then
      result:=true
    else
      result:=false;
  Query.Close;
  Query.Free;
end;

//檢測密碼正確性
function TDM.CheckUserPassword(username,password:string):boolean;
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;

    Query.SQL.Text:='select userpassword from user_info where username=:name';
    Query.Parameters.ParamByName('name').Value:=username;
    Query.Open;
    if trim(Query.FieldByName('userpassword').Value)=password then
      result:=true
    else
      result:=false;
  Query.Close;
  Query.Free;
12 下一頁
?? 文件大小 1020 K
?? 上傳用戶 wang8310733
?? 所屬分類教育系統應用
??? 相關標簽

#圖書管理
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? datamodule.pas

?? 快捷鍵說明
