bluehill人事管理系统 web页面部分,要用VB语言编写。要代码
发布网友
发布时间：2022-04-30 02:30
共1个回答
热心网友
时间：2023-10-06 04:33
const XMLAttrName:String='; const XMLSpecialName:String='; const XMLSpecialValue:String='; const dep:Char ='.'):String;
var
xmlDocument :IXMLDocument;
node :IXMLNode;
xmlnodeList :TStrings;
i :Integer;
urlcount :Integer;
begin
//xml节点路径
xmlnodeList:=TStringList.Create;
xmlnodeList.Delimiter:=dep;
xmlnodeList.DelimitedText:=xmlnodepath;
urlcount:=xmlnodeList.Count;
//xml对象
xmlDocument :=TXMLDocument.Create(nil);
xmlDocument.LoadFromFile(strEntityEngineFile);
xmlDocument.Active:=true;
try
node:= xmlDocument.DocumentElement;
if(node.NodeName = xmlnodeList[0]) then begin
//扫描节点
for i := 1 to urlcount-1 do begin
if(node<>nil) then
begin
node := getnodefromIXMLNodeList(node.ChildNodes,xmlnodeList[i]);
end
else Break;
end;
if(node=nil)then begin
result:=';
end else begin
//判断是取属性还是取节点内容
if(Trim(xmlattrname)=') then
result:=node.Text
else
begin
result := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue; //这里不想再声明一个临时变量了，就用result来比较，可能有隐患。
while ((result <> XMLSpecialValue)) do
begin
node := node.NextSibling;
while (node.NodeName = '#comment') do
begin
node:= node.NextSibling;
end;
result := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue;
end;
result:=node.AttributeNodes.Nodes[XMLAttrName].NodeValue;
end;
end;
end else begin
result:=';
end;
except
result:='error';
end;
xmlDocument.Active:=false;
end;
功能说明：
登录名/密码
读取浏览器端的Cookie值，如果员工以前登录过，则自动显示上次的登录名，光标定位在“密码”文本框。若以前没有登录过，则光标停留在“登录名”文本框，且文本框显示空白
密码长度不得超过20个字符，超过以后*输入。可允许的字符至少要包括数字（0~9）、大写字母（A~Z）和小写字母（a~z）。但在这个登录页面，密码没有受到*。在这里如果密码不正确，则无法进入系统。*密码格式是在后面的“修改登录密码”模块涉及的
功能说明：
点击导航栏中每个功能模块的链接，都会进入相应模块的主界面。这个主界面默认为该功能模块下属的几个子链接中的第一个链接页。但是，有可能会根据登录者拥有的权限不同而出现不同的登录页面。比如在“请假审核”模块中，若普通员工进入则会显示“对不起，该网页属经理专用，请退出”等字样，只有经理级别以上的登录者才可以进入该页面。
