518 lines
16 KiB
ObjectPascal
518 lines
16 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, 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;
|
||
ADO_Cmd: TADOQuery;
|
||
tbyhadd: TToolButton;
|
||
tbyhup: TToolButton;
|
||
tbyhdelete: TToolButton;
|
||
ThreeImgList: TImageList;
|
||
tv1Udept: TcxGridDBColumn;
|
||
tv1UType: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
DataSource3: TDataSource;
|
||
ClientDataSet3: TClientDataSet;
|
||
ADOQuery1: TADOQuery;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
FormName: TEdit;
|
||
Label2: TLabel;
|
||
ModuleName: TEdit;
|
||
ClientDataSet0: TClientDataSet;
|
||
DataSource0: TDataSource;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Panel2: TPanel;
|
||
cxGrid0: TcxGrid;
|
||
Tv0: TcxGridDBTableView;
|
||
V0FormName: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
ClientDataSet5: TClientDataSet;
|
||
DataSource5: TDataSource;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure tbcloseClick(Sender: TObject);
|
||
procedure tv1CellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
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 FormNameChange(Sender: TObject);
|
||
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure tv1MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure Tv0CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
private
|
||
Procedure InitUser();
|
||
procedure InitPurview();
|
||
function savePurview():Boolean;
|
||
procedure CSHTv0();
|
||
procedure CSHTv5();
|
||
procedure TvoGD();
|
||
{ 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 ADOQuery1 do
|
||
begin
|
||
close;
|
||
Parameters.ParamByName('pUserID').Value:=trim(CDS_User.fieldbyname('userID').AsString);
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet3);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet3);
|
||
ClientDataSet3.First;
|
||
with ADO_purview do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.ModuleID+''->''+A.moduleName as moduleName,B.*');
|
||
sql.Add(' from Sy_moduleMain A');
|
||
sql.Add(' inner join Sy_modulesub B on B.moduleID=A.moduleID');
|
||
sql.Add('ORDER BY A.idx,B.idx');
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADO_purview,CDS_purview);
|
||
SInitCDSData20(ADO_purview,CDS_purview);
|
||
with ADO_Cmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select Top 1 FormName from SY_ModuleSub B where not exists(');
|
||
sql.Add('select * from SY_PurView A');
|
||
sql.Add(' where A.ModuleId=B.ModuleId and A.ModuleSubId=B.ModuleSubId ');
|
||
sql.Add(' and A.UserId='''+Trim(CDS_User.fieldbyname('userID').AsString)+''')');
|
||
SQL.Add(' order by ModuleId,ModuleSubId ');
|
||
Open;
|
||
end;
|
||
CDS_purview.Locate('FormName',Trim(ADO_Cmd.fieldbyname('FormName').AsString),[]);
|
||
|
||
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
|
||
InitUser();
|
||
|
||
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.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.FormNameChange(Sender: TObject);
|
||
begin
|
||
if ADO_purview.Active=False then Exit;
|
||
SDofilter(ADO_purview,SGetFilters(Panel1,1,2));
|
||
SCreateCDS20(ADO_purview,CDS_purview);
|
||
SInitCDSData20(ADO_purview,CDS_purview);
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.Tv2MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
if CDS_purview.IsEmpty then
|
||
begin
|
||
V0FormName.Caption:='';
|
||
V0FormName.Styles.Header.Color:=clDefault;
|
||
CSHTv0();
|
||
Exit;
|
||
end;
|
||
with ADO_Cmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.ModuleID+''->''+A.moduleName as moduleName,B.*');
|
||
sql.Add('from Sy_moduleMain A');
|
||
sql.Add('inner join Sy_modulesub B on B.moduleID=A.moduleID');
|
||
sql.Add('where not exists( select * from Sy_purview C where C.moduleID=B.moduleID and') ;
|
||
sql.Add(' C.moduleSubID=B.modulesubID and C.userID='''+Trim(CDS_User.fieldbyname('userID').AsString)+''')');
|
||
sql.Add(' and A.moduleID='''+Trim(CDS_purview.fieldbyname('moduleID').AsString)+'''');
|
||
sql.Add(' ORDER BY B.idx ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADO_Cmd,ClientDataSet0);
|
||
SInitCDSData20(ADO_Cmd,ClientDataSet0);
|
||
V0FormName.Caption:='<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>';
|
||
V0FormName.Styles.Header.Color:=clYellow;
|
||
ClientDataSet3.Locate('moduleID;modulesubID',
|
||
VarArrayOf([trim(CDS_purview.fieldbyname('moduleID').AsString), trim(CDS_purview.fieldbyname('modulesubID').AsString)])
|
||
,[loPartialKey]);
|
||
// TvoGD();
|
||
end;
|
||
procedure TfrmpurviewDL.TvoGD();
|
||
begin
|
||
if ClientDataSet0.IsEmpty then
|
||
begin
|
||
cxGrid0.Height:=23*3;
|
||
end else
|
||
if ClientDataSet0.RecordCount<3 then
|
||
begin
|
||
cxGrid0.Height:=23*3;
|
||
end else
|
||
begin
|
||
cxGrid0.Height:=(ClientDataSet0.RecordCount+2)*23;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.Tv3MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
if ClientDataSet3.IsEmpty then
|
||
begin
|
||
V0FormName.Caption:='';
|
||
V0FormName.Styles.Header.Color:=clDefault;
|
||
CSHTv0();
|
||
Exit;
|
||
end;
|
||
with ADO_Cmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.ModuleID+''->''+A.moduleName as moduleName,B.*');
|
||
sql.Add('from Sy_moduleMain A');
|
||
sql.Add('inner join Sy_modulesub B on B.moduleID=A.moduleID');
|
||
sql.Add('where exists( select * from Sy_purview C where C.moduleID=B.moduleID and') ;
|
||
sql.Add(' C.moduleSubID=B.modulesubID and C.userID='''+Trim(CDS_User.fieldbyname('userID').AsString)+''')');
|
||
sql.Add(' and A.moduleID='''+Trim(ClientDataSet3.fieldbyname('moduleID').AsString)+'''');
|
||
sql.Add(' ORDER BY B.idx ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADO_Cmd,ClientDataSet0);
|
||
SInitCDSData20(ADO_Cmd,ClientDataSet0);
|
||
V0FormName.Caption:='ȡ<><C8A1>Ȩ<EFBFBD><C8A8>';
|
||
V0FormName.Styles.Header.Color:=clFuchsia;
|
||
CDS_purview.Locate('moduleID;modulesubID',
|
||
VarArrayOf([trim(ClientDataSet3.fieldbyname('moduleID').AsString), trim(ClientDataSet3.fieldbyname('modulesubID').AsString)])
|
||
,[loPartialKey]);
|
||
//TvoGD();
|
||
end;
|
||
|
||
procedure TfrmpurviewDL.tv1MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
CSHTv0();
|
||
end;
|
||
procedure TfrmpurviewDL.CSHTv0();
|
||
begin
|
||
with ADO_Cmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.ModuleID+''->''+A.moduleName as moduleName,B.*');
|
||
sql.Add('from Sy_moduleMain A');
|
||
sql.Add('inner join Sy_modulesub B on B.moduleID=A.moduleID');
|
||
sql.Add('where 1=2') ;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADO_Cmd,ClientDataSet0);
|
||
SInitCDSData20(ADO_Cmd,ClientDataSet0);
|
||
SCreateCDS20(ADO_Cmd,ClientDataSet5);
|
||
SInitCDSData20(ADO_Cmd,ClientDataSet5);
|
||
V0FormName.Caption:='';
|
||
V0FormName.Styles.Header.Color:=clDefault;
|
||
end;
|
||
procedure TfrmpurviewDL.CSHTv5();
|
||
begin
|
||
with ADO_Cmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.ModuleID+''->''+A.moduleName as moduleName,B.*');
|
||
sql.Add('from Sy_moduleMain A');
|
||
sql.Add('inner join Sy_modulesub B on B.moduleID=A.moduleID');
|
||
sql.Add('where A.moduleID='''+Trim(ClientDataSet0.fieldbyname('moduleID').asstring)+'''') ;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADO_Cmd,ClientDataSet5);
|
||
SInitCDSData20(ADO_Cmd,ClientDataSet5);
|
||
end;
|
||
procedure TfrmpurviewDL.Tv0CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
if ClientDataSet0.IsEmpty then Exit;
|
||
if V0FormName.Caption='ȡ<><C8A1>Ȩ<EFBFBD><C8A8>' then
|
||
begin
|
||
with ADO_Cmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete SY_Purview where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
|
||
sql.Add(' and moduleID='''+Trim(ClientDataSet0.fieldbyname('moduleID').AsString)+'''');
|
||
sql.Add(' and modulesubID='''+Trim(ClientDataSet0.fieldbyname('modulesubID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
with CDS_purview do
|
||
begin
|
||
Append;
|
||
FieldByName('moduleID').Value:=trim(ClientDataSet0.fieldbyname('moduleID').AsString);
|
||
FieldByName('modulesubID').Value:=trim(ClientDataSet0.fieldbyname('modulesubID').AsString);
|
||
FieldByName('FormName').Value:=trim(ClientDataSet0.fieldbyname('FormName').AsString);
|
||
FieldByName('ModuleName').Value:=trim(ClientDataSet0.fieldbyname('ModuleName').AsString);
|
||
FieldByName('FormFile').Value:=ClientDataSet0.fieldbyname('FormFile').Value;
|
||
FieldByName('FormId').Value:=ClientDataSet0.fieldbyname('FormId').Value;
|
||
Post;
|
||
end;
|
||
ClientDataSet3.Locate('moduleID;modulesubID',
|
||
VarArrayOf([trim(ClientDataSet0.fieldbyname('moduleID').AsString), trim(ClientDataSet0.fieldbyname('modulesubID').AsString)])
|
||
,[loPartialKey]);
|
||
ClientDataSet3.Delete;
|
||
ClientDataSet0.Delete;
|
||
end else
|
||
if V0FormName.Caption='<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>' then
|
||
begin
|
||
{ if ClientDataSet3.Locate('FormFile;FormId',
|
||
VarArrayOf([ClientDataSet0.fieldbyname('FormFile').Value, ClientDataSet0.fieldbyname('FormId').Value])
|
||
,[loPartialKey])=True then
|
||
begin
|
||
Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><EFBFBD>ģ<EFBFBD>飬<EFBFBD><E9A3AC><EFBFBD><EFBFBD><EFBFBD>ٴ<EFBFBD><D9B4><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end; }
|
||
if ClientDataSet3.Locate('moduleID;modulesubID',
|
||
VarArrayOf([trim(ClientDataSet0.fieldbyname('moduleID').AsString), trim(ClientDataSet0.fieldbyname('modulesubID').AsString)])
|
||
,[loPartialKey])=False then
|
||
begin
|
||
with ADO_Cmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' insert into SY_Purview');
|
||
sql.Add(' select :userID,:moduleID,:modulesubID');
|
||
Parameters.ParamByName('userID').Value:=trim(CDS_User.fieldbyname('userID').AsString);
|
||
Parameters.ParamByName('moduleID').Value:=trim(ClientDataSet0.fieldbyname('moduleID').AsString);
|
||
Parameters.ParamByName('modulesubID').Value:=trim(ClientDataSet0.fieldbyname('modulesubID').AsString);
|
||
ExecSQL;
|
||
end;
|
||
with ClientDataSet3 do
|
||
begin
|
||
Append;
|
||
FieldByName('moduleID').Value:=trim(ClientDataSet0.fieldbyname('moduleID').AsString);
|
||
FieldByName('modulesubID').Value:=trim(ClientDataSet0.fieldbyname('modulesubID').AsString);
|
||
FieldByName('FormName').Value:=trim(ClientDataSet0.fieldbyname('FormName').AsString);
|
||
FieldByName('ModuleName').Value:=trim(ClientDataSet0.fieldbyname('ModuleName').AsString);
|
||
FieldByName('FormFile').Value:=ClientDataSet0.fieldbyname('FormFile').Value;
|
||
FieldByName('FormId').Value:=ClientDataSet0.fieldbyname('FormId').Value;
|
||
Post;
|
||
end;
|
||
CDS_purview.Locate('moduleID;modulesubID',
|
||
VarArrayOf([trim(ClientDataSet0.fieldbyname('moduleID').AsString), trim(ClientDataSet0.fieldbyname('modulesubID').AsString)])
|
||
,[loPartialKey]);
|
||
CDS_purview.Delete;
|
||
ClientDataSet0.Delete;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
end.
|