283 lines
7.4 KiB
ObjectPascal
283 lines
7.4 KiB
ObjectPascal
unit U_UserHelp_Bz;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, cxFilter,
|
||
cxData, cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, cxGridLevel,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid, cxInplaceContainer, cxDBTL,
|
||
cxTLData, ComCtrls, ToolWin, ADODB, ImgList,StrUtils, ExtCtrls, DBClient;
|
||
|
||
type
|
||
TfrmUserHelp_Bz = class(TForm)
|
||
ToolBar2: TToolBar;
|
||
TOk: TToolButton;
|
||
TBClose: TToolButton;
|
||
cxGrid1: TcxGrid;
|
||
tv1: TcxGridDBTableView;
|
||
tv1Code: TcxGridDBColumn;
|
||
tv1Name: TcxGridDBColumn;
|
||
DBGrid1Level1: TcxGridLevel;
|
||
GroupBox1: TGroupBox;
|
||
ADOQueryDept: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
ADOConnection1: TADOConnection;
|
||
tv1Column1: TcxGridDBColumn;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
cxStyle2: TcxStyle;
|
||
cxStyle_gridRow: TcxStyle;
|
||
cxStyle_gridFoot: TcxStyle;
|
||
cxStyle_gridHead: TcxStyle;
|
||
cxStyle_gridGroupBox: TcxStyle;
|
||
cxStyle_yellow: TcxStyle;
|
||
cxStyle_Red: TcxStyle;
|
||
ADOQueryHelp: TADOQuery;
|
||
DataSource2: TDataSource;
|
||
Label1: TLabel;
|
||
Edt_name: TEdit;
|
||
ImageList1: TImageList;
|
||
cxStyleTree: TcxStyle;
|
||
Label2: TLabel;
|
||
Edt_Code: TEdit;
|
||
ThreeImgList: TImageList;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
GroupBox2: TGroupBox;
|
||
CDS_sel: TClientDataSet;
|
||
DataSourceSel: TDataSource;
|
||
cxDBTreeList1: TcxDBTreeList;
|
||
cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
|
||
Splitter1: TSplitter;
|
||
Label3: TLabel;
|
||
banzu: TComboBox;
|
||
ADO_Cmd: TADOQuery;
|
||
procedure FormShow(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure TOkClick(Sender: TObject);
|
||
procedure tv1DblClick(Sender: TObject);
|
||
procedure Edt_nameChange(Sender: TObject);
|
||
procedure cxDBTreeList1Click(Sender: TObject);
|
||
private
|
||
procedure InitTree();
|
||
procedure DoQuery();
|
||
procedure FilterData(strdepotno,strcode,strname:string);
|
||
public
|
||
fFrameNo:string;
|
||
fFrameName:string;
|
||
fIsYwy:boolean;
|
||
end;
|
||
|
||
var
|
||
frmUserHelp_Bz: TfrmUserHelp_Bz;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun10;
|
||
{$R *.dfm}
|
||
///////////////////////////////////////////////////////////
|
||
//////<2F><><EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
///////////////////////////////////////////////////////////
|
||
procedure TfrmUserHelp_Bz.FilterData(strdepotno,strcode,strname:string);
|
||
var
|
||
filterStr:string;
|
||
begin
|
||
filterStr:='';
|
||
if trim(strdepotno)<>'' then
|
||
filterStr:=filterStr+' and dept like '+quotedstr('%'+trim(strdepotno)+'%');
|
||
if trim(strcode)<>'' then
|
||
filterStr:=filterStr+' and userID like '+quotedstr('%'+trim(strcode)+'%');
|
||
if trim(strname)<>'' then
|
||
filterStr:=filterStr+' and userName like '+quotedstr('%'+trim(strname)+'%');
|
||
|
||
try
|
||
ADOQueryHelp.DisableControls ;
|
||
if trim(filterStr)='' then
|
||
begin
|
||
ADOQueryHelp.Filtered:=false;
|
||
ADOQueryHelp.EnableControls;
|
||
exit;
|
||
end;
|
||
filterStr:=trim(RightBStr(filterStr,length(filterStr)-5));
|
||
// showmessage(filterStr);
|
||
with ADOQueryHelp do
|
||
begin
|
||
filtered:=false;
|
||
filter:=filterStr;
|
||
filtered:=true;
|
||
end;
|
||
finally
|
||
ADOQueryHelp.EnableControls;
|
||
end;
|
||
end;
|
||
//////////////////////////////////////////////////////
|
||
procedure TfrmUserHelp_Bz.InitTree();
|
||
var
|
||
strsql,strwhere:string;
|
||
begin
|
||
strsql:=' SELECT distinct UDept=''ALL'',UDeptTop='''',UDeptName=''<27><><EFBFBD>в<EFBFBD><D0B2><EFBFBD>'',Framelevel=0 '+
|
||
' union '+
|
||
' SELECT distinct UDept,UDeptTop=''ALL'',UDept,Framelevel=1 '+
|
||
' FROM BD_staff A '+
|
||
' WHERE USERID<>''ADMIN'' and ISNULL(UDept,'''')<>'''' ';
|
||
|
||
strwhere:=' where A.Valid=''Y'' ';
|
||
{ if fIsYwy then
|
||
strwhere:=strwhere+' and A.YWYFlag=''Y'' ';
|
||
if trim(fFrameNo)<>'' then
|
||
strwhere:=strwhere+' and A.dept='+quotedstr(trim(fFrameNo));
|
||
if trim(fFrameName)<>'' then
|
||
strwhere:=strwhere+' and B.frameName like '+quotedstr('%'+trim(fFrameName)+'%');
|
||
strsql:=strsql+ strwhere; }
|
||
|
||
with ADOQueryDept do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add( strsql);
|
||
Open;
|
||
end;
|
||
cxDBTreeList1.FullExpand;
|
||
|
||
DoQuery();
|
||
end;
|
||
|
||
procedure TfrmUserHelp_Bz.FormShow(Sender: TObject);
|
||
begin
|
||
InitTree();
|
||
end;
|
||
|
||
procedure TfrmUserHelp_Bz.FormCreate(Sender: TObject);
|
||
begin
|
||
GroupBox2.Align :=alclient;
|
||
with ADOConnection1 do
|
||
begin
|
||
Connected:=false;
|
||
ConnectionString:=DConString;
|
||
Connected:=true;
|
||
end;
|
||
end;
|
||
//////////////////////////////////////////////////
|
||
//
|
||
//////////////////////////////////////////////////
|
||
procedure TfrmUserHelp_Bz.DoQuery();
|
||
var
|
||
strsql,strwhere:string;
|
||
begin
|
||
strsql:=' select * '+
|
||
' from BD_staff A '+
|
||
' where isnull(UserID,'''')<>''ADMIN'' '+
|
||
' and not exists(select userID from BD_staff_Banzu X where X.userID=A.UserID) ';
|
||
strwhere:=' and A.Valid=''Y'' ';
|
||
if fIsYwy then
|
||
strwhere:=strwhere+' and A.Isywy=1 ';
|
||
|
||
|
||
strsql:=strsql+ strwhere +' order by A.userID ';
|
||
|
||
with ADOQueryHelp do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add( strsql);
|
||
Open;
|
||
end;
|
||
|
||
sCreateCDS20(ADOQueryHelp,cds_sel);
|
||
end;
|
||
|
||
procedure TfrmUserHelp_Bz.TBCloseClick(Sender: TObject);
|
||
begin
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmUserHelp_Bz.TOkClick(Sender: TObject);
|
||
begin
|
||
if ADOQueryHelp.IsEmpty then
|
||
begin
|
||
application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
exit;
|
||
|
||
end;
|
||
if trim(banzu.text)='' then
|
||
begin
|
||
application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>飡','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
|
||
ADO_Cmd.Connection.BeginTrans;
|
||
try
|
||
with CDS_sel do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
while not eof do
|
||
begin
|
||
with ADO_Cmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from BD_Staff_banzu');
|
||
sql.Add('where userID='+quotedstr(trim(CDS_sel.fieldbyname('userID').AsString)));
|
||
open;
|
||
if ADO_Cmd.IsEmpty then ADO_Cmd.Append
|
||
else ADO_Cmd.Edit;
|
||
ADO_Cmd.fieldbyname('userID').Value:=trim(CDS_sel.fieldbyname('userID').AsString);
|
||
ADO_Cmd.fieldbyname('banzu').Value:=trim(banzu.Text);
|
||
ADO_Cmd.Post;
|
||
end;
|
||
next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
ADO_Cmd.Connection.CommitTrans;
|
||
except
|
||
CDS_sel.EnableControls;
|
||
ADO_Cmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
ModalResult:=1;
|
||
end;
|
||
|
||
procedure TfrmUserHelp_Bz.tv1DblClick(Sender: TObject);
|
||
var
|
||
i:integer;
|
||
begin
|
||
if ADOQueryHelp.IsEmpty then exit;
|
||
|
||
if CDS_Sel.Locate('userID',trim(adoqueryHelp.fieldbyname('userID').AsString),[]) then exit;
|
||
with CDS_Sel do
|
||
begin
|
||
CDS_Sel.append;
|
||
for i:=0 to ADOQueryHelp.FieldCount-1 do
|
||
begin
|
||
fields[i].Value:=ADOQueryHelp.Fields[i].Value;
|
||
end;
|
||
CDS_Sel.Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmUserHelp_Bz.Edt_nameChange(Sender: TObject);
|
||
begin
|
||
FilterData('',edt_code.Text,Edt_name.Text);
|
||
end;
|
||
|
||
procedure TfrmUserHelp_Bz.cxDBTreeList1Click(Sender: TObject);
|
||
begin
|
||
if ADOQueryDept.IsEmpty then exit;
|
||
if trim(ADOQueryDept.FieldByName('Framelevel').AsString)='0' then
|
||
FilterData('','','')
|
||
else
|
||
FilterData(ADOQueryDept.FieldByName('UDept').AsString,'','');
|
||
end;
|
||
|
||
end.
|