• Sql Server中的日期与时间函数

    • Sql Server中的日期与时间函数

      1. 当前系统日期、时间
        select getdate()
      2. dateadd 在向指定日期加上一段时间的基础上,返回新的 datetime 值
        例如:向日期加上2天
        select dateadd(day,2,'2004-10-15') --返回:2004-10-17 00:00:00.000
      3. datediff 返回跨两个指定日期的日期和时间边界数。
        select datediff(day,'2004-09-01','2004-09-18') --返回:17
      4. datepart 返回代表指定日期的指定日期部分的整数。
        SELECT DATEPART(month, '2004-10-15') --返回 10

      阅读剩余部分...

    • StringGrid控件使用技巧

    • StringGrid控件
      组件名称:StringGrid

      ●固定行及固定列:
      StringGrid.FixedCols:=固定行之数;
      StringGrid.FixedRows:=固定列之数;
      StringGrid. FixedColor:=固定行列之颜色;
      StringGrid.Color:=资料区之颜色;
      ●资料行列之宽高度:
      StringGrid.DefaultColWidth:=内定全部之宽度;
      StringGrid.DefaultRowHeight:=内定全部之高度;
      StringGrid.ColWidths[Index:Longint]:=某一行整行之宽度;
      StringGrid.RowHeights[Index:Longint]:=某一列整列之高度;
      ●数据区(CELL)指定:
      将某一行列停在画面之资料区最左上角:
      StringGrid.LeftCol:=某一行号;
      StringGrid.TopRow:=某一列号;
      焦点移至某一格(CELL)内:
      StringGrid.Row:=?;
      StringGrid.Col:=?;
      设定数据行列数:(包含固定行、列亦算在内)
      StringGrid.RowCount:=?;
      StringGrid.ColCount:=?;
      写一字符串至某一格(CELL)内:
      StringGrid.Cells[Col值 , Row值]:=字符串;
      判断鼠标指针目前在哪一格(CELL)范围内:
      在StringGrid之Mouse事件中(UP,DOWN或MOVE)下:
      VAR C , R : Longint;
      Begin
      StringGrid.MouseToCell(X,Y,C,R); {X,Y由MOUSE事件传入}
      {取回 C , R 即为目前之Col , Row值 }

      阅读剩余部分...

    • System-Set8087CW、Default8087CW

    • //FPU:浮点运算器,Floating Point Unit的简写,浮点运算单元是专门用于浮点运算的处理器,集成于CPU之内,效率高、执行快
      //Set8087CW(开关FPU)
      //Set8087CW($1372):开FPU,默认值
      //Set8087cw($133f):闭FPU
      //Procedure Set8087CW(NewCW: Word);
      //Default8087CW: Word = $1332;

      procedure TForm1.Button1Click(Sender: TObject);
      begin

          Edit1.Text:=FloatToStr(100.123*123.456/788.88);

      end;

      procedure TForm1.FormCreate(Sender: TObject);
      begin

      RadioGroup1.Items.Add('Open FPU');
      RadioGroup1.Items.Add('Close FPU');
      Edit2.Text:=IntToStr(System.Default8087CW);

      end;

      procedure TForm1.FormDestroy(Sender: TObject);
      begin

      System.Set8087CW($1372);

      end;

      procedure TForm1.RadioGroup1Click(Sender: TObject);
      begin

      if RadioGroup1.ItemIndex=0 then
         System.Set8087CW($1372);
      if RadioGroup1.ItemIndex=1 then
         System.Set8087CW($133f);

      end;

    • Delphi之TStrings和TStringLists类

    • Delphi之TStrings和TStringLists类

      有些类不是组件,但它们支持存在的组件。这些类是其他组件的典型属性,直接由TPersistent派生,如TStrings、TCanvas和TCollection。 
      
      TStrings和TStringLists类
      
      TStrings是一个抽象类,使你可以操纵属于组件(如TListBox)的字符串列表。TStrings实际上并不管理字符串的内存(那是由拥有TStrings类的组件管理的),它只是定义了方法和属性来访问和操纵组件的字符串,而不是使用组件的Win32 API函数和消息。 
      
      注意,我们所说的TStrings是一个抽象类。这就意味着TStrings并没有真正实现操纵字符串的代码,它只是定义了必要的方法有哪些。TStrings的派生组件实现了实际上的字符串操纵方法。
      
      为了进一步说明这个点,举几个组件的例子,如TListBox.Items、TMemo.Lines、和TComboBox.Items等属性都是TStrings类型。你也许怀疑,如果它们的属性是TStrings类型,当这些属性的方法在代码中尚未实现时,怎么能调用这些方法呢?问得好。答案是,尽管这些属性被定义为TStrings类型,但这些属性的变量(例如设为TListBox.FItems)是被实例化为派生类。为了阐明这点,设FItems是TListBox的Items属性的私有存储域:
      
      

      阅读剩余部分...

    • 未在本地计算机上注册“microsoft.ACE.oledb.12.0”提供程序解决办法

    • 本错误是由于你使用了ACCESS2007版本建立的数据库,但服务器中没有相配合使用的程序,所以出错.

      未在本地计算机上注册“microsoft.ACE.oledb.12.0”提供程序。

      说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。

      异常详细信息: System.InvalidOperationException: 未在本地计算机上注册“microsoft.ACE.oledb.12.0”提供程序。

      下载2007 Office system 驱动程序:数据连接组件安装

      http://download.microsoft.com/download/7/0/3/703ffbcb-dc0c-4e19-b0da-1463960fdcdb/AccessDatabaseEngine.exe

      此下载将安装一组组件,非 Microsoft Office 应用程序可以使用它们从 2007 Office system 文件中读取数据,
      例如从 Microsoft Office Access 2007(mdb 和 accdb)文件以及 Microsoft Office Excel 2007(xls、xlsx 和 xlsb)文件中读取数据。这些组件还支持与 Microsoft Windows SharePoint Services 和文本文件建立连接。

      此外,还会安装 ODBC 和 OLEDB 驱动程序,供应用程序开发人员在开发与 Office 文件格式连接的应用程序时使用。

      阅读剩余部分...

    • 记第一次轻微交通事故

    • 时间:2014年10月31日上午8点20左右

      地址:双桂路

      我在最左边车道,驾驶蒙迪欧直行,与最右车道连续变道的桑塔纳汽车发生碰撞,无人员伤,撞车后没有兄争吵和扯皮,拍完照后还在路边和桑塔纳司机还抽了一支烟,哈哈。

      刚开始还以为是我的责任,后经交警查看后行车视频后,判定桑塔纳连续变道,违反交通规则,桑塔纳全责。现在车已经修好了,都是报保险,我的大概修了4900,对方2000左右。

      事后详细看了一行车记录仪视频,虽然我是无责方,但是还是可以避免的,看见右边车道踩了刹车,肯定是有什么事,我减速不够,应该再多观察一下,看清情况后再往前走。另外即将发生碰撞的时候,我踩刹车力度不够,40码的速度,如果刹车踩完的话,应该不会撞上,但是如果急刹车,后面来的车可能会发生追尾。

      不过对方车连续变道,太危险了,大家在路上一定要遵守交通规则,不要连续变道啊,另外在车里安装行车记录仪是非常有必要的,可防碰瓷,可作为证据。

Powered by Typecho)))   ICP:蜀ICP备05009250号