【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-DM_Purview.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit DM_Purview;
interface
uses
SysUtils, Classes, DB, ADODB,MyRecord, XPMan,Forms;
type
TDMPurview = class(TDataModule)
ADOConn: TADOConnection;
ADOQPur: TADOQuery;
procedure DataModuleCreate(Sender: TObject);
private
UP:UserPurview;
LoginedUserName:String;
{ Private declarations }
public
Function GetLoginedUN:String;
procedure SetLoginedUN(Const Username:string);
Function ShowPurView(Const Username:string):Boolean;
Function GetUserPurview:UserPurview;
Function setPurview(UserName:string;AUP:UserPurview):Boolean;
{ Public declarations }
end;
var
DMPurview: TDMPurview;
implementation
{$R *.dfm}
Function TDMPurview.GetLoginedUN:String;
begin
result:=LoginedUserName;
end;
procedure TDMPurview.SetLoginedUN(Const Username:string);
begin
if trim(UserName) <> '' then
LoginedUserName:=UserName;
end;
Function TDMPurview.GetUserPurview:UserPurview;
begin
Result:=Up;
end;
Function TDMPurview.setPurview(UserName:string;AUP:UserPurview):Boolean;
var
Pid:string;
begin
try
with ADOQPur do
begin
Close;
Sql.Clear;
Sql.add('Select * from TB_Users where Username = :UM');
Parameters.ParamByName('UM').Value:=UserName;
open;
if recordCount <1 then
begin
result:=false;
exit;
end;
Pid:=fieldbyname('Purview').asstring;
close;
sql.Clear;
Sql.Add('update TB_Purview set ShellGoods=:SG,BuyGoods=:BG,UserManager=:UM ');
Sql.Add('Where PurviewID=:PID');
Parameters.ParamByName('PID').Value:=Pid;
Parameters.ParamByName('SG').Value:=Aup.ShellGoods;
Parameters.ParamByName('BG').Value:=AUp.BuyGoods;
Parameters.ParamByName('UM').Value:=Aup.UserManager;
Execsql;
result:=true;
end;
except
result:=false;
end;
end;
Function TDMPurview.ShowPurView(Const Username:string):Boolean;
var
PurID:String;
begin
with ADOQPur do
begin
Close;
Sql.Clear;
Sql.Add('select PurView From TB_Users where Username= :UN');
Parameters.ParamByName('UN').Value:=Username;
open;
if recordCount < 1 then
begin
result:=false;
Exit;
end;
PurID:=FieldByname('PurView').AsString;
Close;
Sql.Clear;
Sql.Add('Select * from TB_PurView where PurViewID = :PVID');
Parameters.ParamByName('PVID').Value:=PurID;
Open;
up.ShellGoods := FieldByname('ShellGoods').AsInteger;
up.BuyGoods := FieldByname('BuyGoods').AsInteger;
up.UserManager := FieldByname('UserManager').AsInteger;
result:=true;
end;
end;
procedure TDMPurview.DataModuleCreate(Sender: TObject);
begin
ADOConn.ConnectionString:= 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DelphiClassical200';
try
ADoConn.Open;
except
application.MessageBox('无法连接到数据库!请确认Sql Server是否已经启动!','ERROR',16);
halt(0);
end;
end;
end.
上一篇:
dmXsgl.pas
下一篇:
触动心灵的经典句子