加载中…
个人资料
笨蛋
笨蛋
  • 博客等级:
  • 博客积分:0
  • 博客访问:64,785
  • 关注人气:7
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
评论
加载中…
留言
加载中…
友情链接
图片播放器
访客
加载中…
好友
加载中…
博文
标签:

it

分类: Delphi相关

某天在研究如何让窗体的启动和关闭更具特色,搜索了一番,发觉用AnImateWindow可以实现很多效果,现在就把一些方法分享出来~

在OnShow加入弹出式窗口事件:

procedure TForm1.FormShow(Sender: TObject);

begin

   ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE);

end;

关掉窗口滑动事件在OnClose加入:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

   ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_POSITIVE+AW_HIDE);

end;

AnImateWindow是个api函数,属性用法:  

    

函数功能:该函数能在显示

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: asp.net


阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: Oracle
首先进入sys管理用户, grant execute on dbms_crypto to 授权用户;
先给用户授权dbms_crypto 权限。

--加密函数
CREATE OR REPLACE FUNCTION ENCRYPT_FUNCTION(
  V_STR VARCHAR2, V_KEY VARCHAR2) RETURN VARCHAR2 AS V_KEY_RAW RAW(24);
  V_STR_RAW  RAW(2000);
  V_RETURN_STR VARCHAR2(2000);
  V_TYPE   PLS_INTEGER;
BEGIN
 
  V_KEY_RAW  := UTL_I18N.STRING_TO_RAW(V_KEY, 'ZHS16GBK');
  V_STR_RAW  := UTL_I18N.STRING_TO_RAW(V_STR, 'ZHS16GBK');
  -- 指定‘密钥算法’、‘工作模式’、‘填充方式’
  V_TYPE  := DBMS_CRYPTO.ENCRYPT_DES + DBMS_CRYPTO.CHAIN_ECB + DBMS_CRYPTO.PAD_PKCS5;
  V_STR_RAW  := DBMS_CRYPTO.ENCRYPT(SRC => V_STR_RAW, TYP => V_TYPE, KEY => V_KEY_RAW);
  V_RETURN_STR := RAWTOHEX(V_STR_RAW);
  RETURN V_RETURN_STR;
 
END;
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: asp.net
//存放word文件的完整路径
string wordPath = Server.MapPath('/word/test.doc');
//存放html文件的完整路径
string htmlPath = Server.MapPath('/html/test.html');
            
//上传word文件, 由于只是做示例,在这里不多做文件类型、大小、格式以及是否存在的判断
FileUpload1.SaveAs(wordPath);

#region 文件格式转换
//请引用Microsoft.Office.Interop.Word
ApplicationClass word = new ApplicationClass();
Type wordType = word.GetType();
Documents docs = word.Documents;

// 打开文件
Type docsType = docs.GetType();
object fileName = wordPath; //'f:\\cc.doc';
Document doc = (Document)docsType.InvokeMember('Open', BindingFlags.InvokeMethod, null, (object)docs, new Object[] { fileName, true, true });

//判断与文件转换相关的文件是否存在,存在则删除
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 

UtiMnid组件下,利用auAutoUpgrader实现自动升级(已经测试通过)

第一步:下载AutoUpgrader.Pro.v4.6.4。

第二步:打开AutoUpgrader.Pro.v4.6.4下面的Delphi7目录,双击AutoUpgraderProD7.package文件安装,点install,安装。完成后,在工具面板上增加了一个UtiMnid组件。然后将Delphi7目录下面的全部文件都复制到delphi7的安装目录下面的bin目录中。

第一次发布程序时要做的事。

1、在已开发完成的程序中,在第一个启动的窗体上,放一个TauAutoUpgrader控件。

2.双击auAutoUpgrader1,在弹出的对话框中做以下设置:

(1)选择ByNumer,按版本号检查更新,在Numer文本框中填好程序版本号。注意,程序版本号的格式一定要是如:1.0.0.1这种格式,否则会出错。

(2)单击add按钮,添加本次升级文件的http下载地址,格式如:http://192.168.1.104:8080/update/project1.exe,千

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: asp.net
<去掉文字script type='text/javascript'去掉文字>
var n = 5;
function document.onkeydown()
{
  //alert(event.keyCode);

  var e = event.srcElement;
  var c = event.keyCode;
  switch(c)
  {
     case 37: //left
moveCursor(e,-1);
break;

     case 38: //up
moveCursor(e,-n);
break;

     case 39: //right

moveCursor(e,1);
break;

     case 40: //down
moveCursor(e,n);
break;

  }
}

function moveCursor(e,n)
{
  var i = e.sourceIndex;
   var sign = n > 0? 1 : -1;
&nbs
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: asp.net
<去掉文字script type='text/javascript'去掉文字>
        var currentRowId = 0;   
        function SelectRow()
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: asp.net

<去掉该文字asp:Label ID='Label8' runat='server' Text='班级名称' ForeColor='#166659'>
        <去掉该文字asp:DropDownList ID='DDL_BJMC_CX' runat='server' Width='400px'
             onselectedindexchanged='DDL_BJMC_CX_SelectedIndexChanged1' >
       
        <去掉该文字asp:TextBox ID='TB_BJMC_CX' runat='server' Style=' top:50px; width: 376px; position: absolute;left: 64px;' >
                
        

 

重点是 Style=' top:50px; width: 376px; position: absolute;left: 64px;' 设置TextBox的位置。
        

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: asp.net

DropDownList rbl = (DropDownList)sender;

        string str_tj = '';
        if (rbl.SelectedIndex >= 0)
        {
            str_tj = rbl.SelectedItem.Text.ToString().Trim();

            GridViewRow dli = (GridViewRow)rbl.NamingContainer;

            TextBox TB_CJ = (TextBox)rbl.FindControl('TB_ZPCJ');
            TextBox TB_QMCJ = (TextBox)rbl.FindControl('TB_QMCJ');
            Label LB_BZ = (Label)rbl.FindControl('LB_BZ');
          
         

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

股票

it

分类: asp.net

protected void DDL_CJ_SelectedIndexChanged(object sender, EventArgs e)
    {
        
        DropDownList rbl = (DropDownList)sender;

        string str_tj = '';
        if (rbl.SelectedIndex > 0)
        {
            str_tj = rbl.SelectedItem.Text.ToString().Trim();
        }

        DataListItem dli = (DataListItem)(rbl.Parent);

        TextBox TB_CJ = (DataList1.Items[dli.ItemIndex].FindControl('TB_CJ')) as TextBox;
        TB_CJ.Text = str_tj;
       

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
  

新浪BLOG意见反馈留言板 不良信息反馈 电话:4006900000 提示音后按1键(按当地市话标准计费) 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

新浪公司 版权所有