314 lines
7.8 KiB
ObjectPascal
314 lines
7.8 KiB
ObjectPascal
unit U_purview;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, ImgList, ComCtrls, ToolWin,
|
||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB,
|
||
DBClient, cxCheckBox, Menus, cxLookAndFeels, cxLookAndFeelPainters,
|
||
cxNavigator, StdCtrls, ExtCtrls;
|
||
|
||
type
|
||
TfrmpurviewDL = class(TForm)
|
||
tv1: TcxGridDBTableView;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
cxGrid1: TcxGrid;
|
||
ToolBar1: TToolBar;
|
||
tbqx: TToolButton;
|
||
tbclose: TToolButton;
|
||
tv1sel: TcxGridDBColumn;
|
||
tv1userID: TcxGridDBColumn;
|
||
tv1userName: TcxGridDBColumn;
|
||
ADO_user: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
cxFormName: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
ADO_purview: TADOQuery;
|
||
DataSource2: TDataSource;
|
||
CDS_User: TClientDataSet;
|
||
CDS_purview: TClientDataSet;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
v2sel: TcxGridDBColumn;
|
||
ADO_Cmd: TADOQuery;
|
||
tbyhadd: TToolButton;
|
||
tbyhup: TToolButton;
|
||
tbyhdelete: TToolButton;
|
||
ToolButton6: TToolButton;
|
||
ToolButton7: TToolButton;
|
||
ThreeImgList: TImageList;
|
||
tv1Udept: TcxGridDBColumn;
|
||
tv1UType: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
Panel2: TPanel;
|
||
Label3: TLabel;
|
||
UserName: TEdit;
|
||
Label1: TLabel;
|
||
Udept: TEdit;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure tbcloseClick(Sender: TObject);
|
||
procedure tv1CellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure N2Click(Sender: TObject);
|
||
procedure tbqxClick(Sender: TObject);
|
||
procedure tbyhaddClick(Sender: TObject);
|
||
procedure tbyhupClick(Sender: TObject);
|
||
procedure tbyhdeleteClick(Sender: TObject);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure UserNameChange(Sender: TObject);
|
||
private
|
||
Procedure InitUser();
|
||
procedure InitPurview();
|
||
function savePurview():Boolean;
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmpurviewDL: TfrmpurviewDL;
|
||
|
||
implementation
|
||
uses U_User,U_DataLink,U_RTFun; //U_Main,U_PublicFunction,
|
||
{$R *.dfm}
|
||
function TfrmpurviewDL.SavePurview():Boolean;
|
||
begin
|
||
result:=false;
|
||
ADO_Cmd.Connection.BeginTrans;
|
||
try
|
||
with ADO_Cmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' delete sy_purview ');
|
||
sql.Add(' where userID='+quotedstr(trim(CDS_User.fieldbyname('userID').AsString)));
|
||
execsql;
|
||
end;
|
||
with ADO_Cmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select * from sy_purview ');
|
||
sql.Add(' where userID='+quotedstr(trim(CDS_User.fieldbyname('userID').AsString)));
|
||
open;
|
||
end;
|
||
with CDS_purview do
|
||
begin
|
||
first;
|
||
DisableControls;
|
||
while not eof do
|
||
begin
|
||
if fieldbyname('sel').AsBoolean then
|
||
begin
|
||
ADO_Cmd.Append;
|
||
ADO_Cmd.FieldByName('userID').Value:=trim(CDS_User.fieldbyname('userID').AsString);
|
||
ADO_Cmd.FieldByName('moduleID').Value:=trim(CDS_purview.fieldbyname('moduleID').AsString);
|
||
ADO_Cmd.FieldByName('modulesubID').Value:=trim(CDS_purview.fieldbyname('modulesubID').AsString);
|
||
ADO_Cmd.Post;
|
||
end;
|
||
next;
|
||
end;
|
||
first;
|
||
EnableControls;
|
||
end;
|
||
ADO_Cmd.Connection.CommitTrans;
|
||
result:=true;
|
||
except
|
||
ADO_Cmd.Connection.RollbackTrans;
|
||
end;
|
||
end;
|
||
procedure TfrmpurviewDL.InitPurview();
|
||
begin
|
||
if CDS_User.IsEmpty then exit;
|
||
|
||
with ADO_purview do
|
||
begin
|
||
close;
|
||
Parameters.ParamByName('pUserID').Value:=trim(CDS_User.fieldbyname('userID').AsString);
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADO_purview,CDS_purview);
|
||
SInitCDSData20(ADO_purview,CDS_purview);
|
||
// CreateAdoToCds(ADO_purview,CDS_purview);
|
||
//InitAdoToCds(ADO_purview,CDS_purview);
|
||
|
||
end;
|
||
Procedure TfrmpurviewDL.InitUser();
|
||
begin
|
||
with ADO_user do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select cast(0 as bit) as sel, * from SY_User WHERE Valid=''Y'' ');
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADO_user,CDS_User);
|
||
SInitCDSData20(ADO_user,CDS_User);
|
||
//CreateAdoToCds(ADO_user,CDS_User);
|
||
//InitAdoToCds(ADO_user,CDS_User);
|
||
end;
|
||
procedure TfrmpurviewDL.FormCreate(Sender: TObject);
|
||
begin
|
||
cxGrid2.Align:=AlClient;
|
||
InitUser();
|
||
InitPurview();
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.tbcloseClick(Sender: TObject);
|
||
begin
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.tv1CellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
InitPurview();
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.N1Click(Sender: TObject);
|
||
begin
|
||
with CDS_purview do
|
||
begin
|
||
first;
|
||
DisableControls;
|
||
while not eof do
|
||
begin
|
||
edit;
|
||
fieldbyname('sel').AsBoolean:=true;
|
||
post;
|
||
next;
|
||
end;
|
||
first;
|
||
EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.N2Click(Sender: TObject);
|
||
begin
|
||
with CDS_purview do
|
||
begin
|
||
first;
|
||
DisableControls;
|
||
while not eof do
|
||
begin
|
||
edit;
|
||
fieldbyname('sel').AsBoolean:=false;
|
||
post;
|
||
next;
|
||
end;
|
||
first;
|
||
EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.tbqxClick(Sender: TObject);
|
||
begin
|
||
if CDS_User.IsEmpty then exit;
|
||
if CDS_purview.IsEmpty then exit;
|
||
if SavePurview() then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
end
|
||
else
|
||
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.tbyhaddClick(Sender: TObject);
|
||
begin
|
||
frmUser:=TfrmUser.create(self);
|
||
with frmUser do
|
||
begin
|
||
formId:=0;
|
||
fuserID:='';
|
||
if showmodal=1 then
|
||
begin
|
||
InitUser();
|
||
CDS_User.Locate('UserID',trim(fuserID),[]);
|
||
InitPurview();
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.tbyhupClick(Sender: TObject);
|
||
begin
|
||
if CDS_User.IsEmpty then exit;
|
||
if trim(CDS_User.FieldByName('userID').AsString)='ADMIN' then exit;
|
||
frmUser:=TfrmUser.create(self);
|
||
with frmUser do
|
||
begin
|
||
formId:=1;
|
||
fuserID:=trim(CDS_User.fieldByName('UserID').asstring);
|
||
//newPassword.PasswordChar:=#0;
|
||
//DnewPassword.PasswordChar:=#0;
|
||
{if trim(frmMain.username)='ADMIN' THEN
|
||
begin
|
||
newPassword.PasswordChar:=#0;
|
||
DnewPassword.PasswordChar:=#0;
|
||
end; }
|
||
if showmodal=1 then
|
||
begin
|
||
InitUser();
|
||
CDS_User.Locate('UserID',trim(fuserID),[]);
|
||
InitPurview();
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.tbyhdeleteClick(Sender: TObject);
|
||
begin
|
||
if CDS_User.IsEmpty then exit;
|
||
if trim(CDS_User.FieldByName('userID').AsString)='ADMIN' then exit;
|
||
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ!',1)=2 then exit;
|
||
try
|
||
with ADO_Cmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' delete SY_User ');
|
||
sql.Add(' where userID='+quotedstr(trim(CDS_User.fieldbyname('USerID').AsString)));
|
||
sql.Add(' delete sy_purview ');
|
||
sql.Add(' where userID='+quotedstr(trim(CDS_User.fieldbyname('userID').AsString)));
|
||
execsql;
|
||
end;
|
||
InitUser();
|
||
InitPurview();
|
||
except
|
||
application.MessageBox('ɾ<><C9BE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',MB_ICONERROR);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmpurviewDL:=nil;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.UserNameChange(Sender: TObject);
|
||
begin
|
||
if ADO_user.Active then
|
||
begin
|
||
SDofilter(ADO_user, SGetFilters(Panel2, 1, 2));
|
||
SCreateCDS20(ADO_user, CDS_User);
|
||
SInitCDSData20(ADO_user, CDS_User);
|
||
end;
|
||
end;
|
||
|
||
end.
|