亚洲精品乱码久久久久久下载,亚洲精品美女网站,国产偷国产偷亚洲清高动态图

ACCESS中的分页解决�Ҏ(gu��)��

semovy — Tue, 24 Apr 2007 06:11:00 GMT

String TUtilForm::getSQL(int recordCount ,int pageCount, int pageSize,int pageIndex,String tableName,String queryFields,String primaryKey,String ascending,String condition)
{
    int middleIndex = pageCount/2;
    int firstIndex = 0;
    int lastIndex = pageCount - 1;
    String SQLStr = "";
    if( pageIndex <= firstIndex )
    {
        SQLStr = "select top " + IntToStr(pageSize) + " " + queryFields + " from " + tableName;
        if( condition != "")
        SQLStr += " where " + condition ;
        SQLStr += " order by " + primaryKey + " " + ascending;
    }
    else if( pageIndex > firstIndex && pageIndex <= middleIndex )
    {
        SQLStr = "select top " + IntToStr(pageSize) + " " + queryFields + " from " + tableName + " where " + primaryKey ;
        if( ascending == "asc" )
        SQLStr += ">(select max(";
        else
        SQLStr += "<(select min(";
        SQLStr += primaryKey + ") from (select top " + IntToStr(pageSize*pageIndex) + " " + primaryKey + " from " + tableName;
        if( condition != "" )
        SQLStr += " where " + condition;
        SQLStr += " order by " + primaryKey + " " + ascending + ") TableA )";
        if( condition != "" )
        SQLStr += " and " + condition;
        SQLStr += " order by " + primaryKey + " " + ascending;
    }
    else if( pageIndex > middleIndex && pageIndex < lastIndex)
    {
        SQLStr = "select " + queryFields + " from (select top " + IntToStr(pageSize) + " " + queryFields + " from " + tableName;
        SQLStr += " where " + primaryKey ;
        if( ascending == "asc" )
        SQLStr += " < ( select min(";
        else
        SQLStr += " > ( select max(";
        SQLStr += primaryKey + ") from (select top " + IntToStr( recordCount - pageSize * (pageIndex + 1)) + " " + primaryKey + " from " + tableName;
        if( condition != "" )
        SQLStr += " where " + condition;
        SQLStr += " order by " + primaryKey + " desc) TableA)" ;
        if( condition != "" )
        SQLStr += " and " + condition;
        SQLStr += " order by " + primaryKey + " desc) TableB order by )" + primaryKey + " " + ascending ;
    }
    else
    {
        SQLStr = "select " + queryFields + " from (select top " + IntToStr(recordCount - pageSize*lastIndex) + " " + queryFields + " from " + tableName;
        if( condition != "" )
        SQLStr += " where " + condition;
        SQLStr += " order by " + primaryKey + " desc " + " )TableA order by " + primaryKey + " " + ascending;
    }
    return SQLStr;
}

semovy 2007-04-24 14:11 发表评论

semovy — Sun, 22 Apr 2007 09:46:00 GMT

       Graphics::TBitmap *bmp = new Graphics::TBitmap;
        bmp->Width = (int)newWidth;
        bmp->Height = (int)newHeight;
        bmp->Canvas->StretchDraw(Rect(0,0,bmp->Width,bmp->Height),Image1->Picture->Graphic);
        TJPEGImage *MyJPEG = new TJPEGImage;
        MyJPEG->Assign(bmp);
        MyJPEG->SaveToFile("c:\\newbmp.jpg");
        delete MyJPEG;
        delete bmp;

semovy 2007-04-22 17:46 发表评论

bcb jpeg转成bmp

semovy — Sun, 23 Jul 2006 07:35:00 GMT

//改�ؓ�Q?include

Graphics::TBitmap *b= new Graphics::TBitmap();
TJPEGImage *j=new TJPEGImage();
   j->JPEGNeeded();
   if(OpenDialog1->Execute())
   j->LoadFromFile(OpenDialog1->FileName);

b->Assign(j);

if(SaveDialog1->Execute())
b->SaveToFile(SaveDialog1->FileName);
delete b;
delete j;

semovy 2006-07-23 15:35 发表评论

BCB杂记

semovy — Sat, 03 Jun 2006 01:11:00 GMT

1.调用Windows的计��器
WinExec("CALC.EXE",0);
2.调用Windows��C��?br />ShellExecute(Application->Handle,"open","notepad.exe",NULL,NULL,SW_SHOWNORMAL);

3.BarTender条�Ş码设计��Y�?br />4.调用*.chm帮助文�g:
String sHelpFilePath = GetCurrentDir() + "\\help\\help.CHM"; //文�g路径
    if(FileExists(sHelpFilePath))
    {
      ShellExecute(
      Handle,
      "open",
      sHelpFilePath.c_str(),
      NULL,
      NULL,
      SW_SHOWNORMAL
      );
    }

semovy 2006-06-03 09:11 发表评论

用C++Builder存取Excel文�g[转蝲]

semovy — Fri, 12 May 2006 07:05:00 GMT

文档标题�Q�用C++Builder存取Excel文�g　　作者：佚名

�ꐠ键字：Excel,OLE技�?Variant,ODBC,CreateObject,Cells

本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=20&d=8d0grf
---- C++Builder是Borland公司�l�Delphi之后又一成功的��?奚w��VB、VC++ 及 Delphi 的优点于一体而深得C语言爱好者的青睐。由于多数操作者爱用 MicroSoft公司的Excel�l�织数据�Q��ؓ此本文介�l�了用C++Builder存取Excel 文�g的两�U�方法。�?br />
---- 一.用OLE技术操�U�Excel

---- OLE(对象链接与嵌�?是微软提出的标准�Q�是应用�E�序间交换数据、相互操作的一�U�方式，MS OFFICE 提供了很强的 OLE 服务功能�Q�VB、Delphi 及C++Builder�{�语�a�都可以以客户方式向Excel提交命��o,以存取其数据,其中VB和Delphi最为简单，在语法上��采用类VBA的语�?本报�?ji��)�?ji��)�q�第48期的《在Delphi中操作Excel》一文曾介绍了Delphi的做法。我们原以�ؓC++Builder照搬Delphi�Q�结果语法编译都未能通过�Q�查不到�q�方面具体介�l�的资料。经反复试验方知�Q�原来C++Builder采用间接的办法，利用变体�c�Variant所提供的四个“方法”向OLE服务�E�序提交操纵命��o�Q��?br />
Variant Variant::OlePropertyGet(属性名,参数�?);
// 取对象属�?br /> Void Variant::OlePropertySet(属性名,参数�?);
// 讄��对象属�?
Variant Variant::OleFunction(函数名，参数�?);
// �q�行对象的函�?br /> void Variant::OleProcedure(�q�程名，参数�?);
// �q�行对象的过�E?br />
其头文�g“vcl\\\\utilcls.h”必��d��在用��L��序中�Q?br />对于�q�四个长长的�Ҏ(gu��)��名可在程序中用宏语句重新定义一下：
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure

例如对于VB的提交语�?
Ex.ActiveWorkBook.ActiveSheet.Cells(1,2).Value=3
��Z��于理解在C++Builder对应的语句可分解为如下四句：
Variant t1=Ex.OlePropertyGet(\\\"ActiveWorkBook\\\");
Variant t2=t1.OlePropertyGet(\\\"ActiveSheet\\\");
Variant t3=t2.OlePropertyGet(\\\"Cells,1,2);
t3.OlePropertySet(\\\"Value\\\",3);
可去掉中间变量将�q�四句合��Z��句，��是:
Ex.PG(\\\"ActiveWorkBook\\\").PG(\\\"ActiveSheet\\\").
PG(\\\"Cells\\\",1,2).PS(\\\"Value\\\",3);
我们��下面的VB�E�序片段�Ҏ(gu��)��对应的C++Builder�E�序以供参�?
Private Sub Command1_Click() \\\' Visual Basic�E�序片段
Dim Ex As Object,Wb As Object, Sh1 As Object
Set Ex = CreateObject(\\\"Excel.Application\\\")
Ex.WorkBooks.Open(\\\"c:\\\\book1.xls\\\")
Set Wb = Ex.Activeworkbook
Set Sh1 = Wb.ActiveSheet
Text1.Text = Sh1.Cells(1, 1).Value
For i = 1 To 10: For j = 1 To 10
Sh1.Cells(i, j).Value = i * 100 + j
Next j: Next i
Wb.save: Wb.Close: Ex.Quit
End Sub \\\' - - - - - -- - - - - - - - - - -

#include \\\"Unit1.h\\\" // C++Builder�E�序片段
#include \\\"vcl\\\\utilcls.h\\\" // util classes实用�c�说�?br />// …省写此处原一�D�代�?br />// 请在此处插入上面提及的四个宏定义语句
void __fastcall TForm1::Button1Click(TObject *Sender)
{ Variant Ex,Wb,Sh1;
Ex=Variant::CreateObject(\\\"Excel.Application\\\");
Ex.PG(\\\"WorkBooks\\\").PR(\\\"Open\\\",\\\"c:\\\\\\\\book1.xls\\\");
Wb=Ex.PG(\\\"ActiveWorkBook\\\"); Sh1=Wb.PG(\\\"ActiveSheet\\\");
Edit1->Text=Sh1.PG(\\\"Cells\\\",1,1).PG(\\\"Value\\\");
for (int i=1;i<=10;i++)
for (int j=1;j<=10;j++)
Sh1.PG(\\\"Cells\\\",i,j).PS(\\\"Value\\\",i*100+j);
Wb.PR(\\\"Save\\\"); Wb.PR(\\\"Close\\\");
}

---- 使用�q�种�Ҏ(gu��)��的程序运行时�Q�必��M��证系�l�中同时有MS OFFICE�Q�下面我们再介绍另一�U�脱��MS OFFICE也能存取Excel表格的方法。�?br />---- �?用ODBC数据库技术存取Excel

---- ODBC��是开攑ּ�数据库链接标准，不同�U�类的数据库只需提供各自的ODBC 驱动�E�序��可按相同的命��o操纵�Q�微软同样�ؓExcel提供了ODBC驱动�E�序�Q�我们可在程序中象数据库一样存取Excel表格。定义好ODBC数据源后�Q�实际试验中�q�没有如惌��的那��L��单，在控件Table的属性TableName中��L��索不到表名，同样也没有相关的资料可供查阅。通过对Excel的分析，�l�于发现了问题的关键所在：ODBC的表名�ƈ不就是Excel的工作表�?如Sheet1),在Excel 表格中必��d��要求操作的行列区域定义一个“名�U�”作为数据库的表名，该区域的首行各列必须是字�D�名(否则首行数据会当成字�D�名),可以定义多个表名。具体操作步骤如下：

---- 1.在Excel上定义“表名�?

---- �q�行Excel�E�序�Q�打开或新��Z��表格�Q�按下鼠标左键选择一片区域（起始行先填上字段名）�Q�再��鼠标位�|�点到左上角的地址栏，输入一表名如ABC,或者在菜单上�?“插�?I)�?“名�U?N)�?“定�?D)”，再输入表名（若已定义, 可在此处删除掉）,存盘退出（假定文�g名取为c:\\\\Book.xls�Q�，若嫌字段名行多余�Q�存盘前可隐藏掉�Q��?br />
---- 2.定义ODBC数据�?

---- 从Windows桌面“我的电(sh��)脑\\\"�q�入“控刉��李쀝，双击�?2位ODBC”图标，�q�行“用户DSN”中的“添�?D)\\\"后选“Excel Driver(*.xls)\\\", 再点“完成”便弹出对话框，在“数据源�?N)\\\"双��填一名称�Q�如�Q�excel01,在“版�?V)\\\"上选“Excel97\\\", 点中“选项”取消“只诠Z��，在“选定工作目录”中�Q�选定Excel文�g�?本例 c:\\\\Book1.xls)�Q�再点“确定”直至退出；

---- 3.讄��Database控�g避免��d��查：

---- �q�行C++Builder�Q�在Form1中加上Data Access的三个控�Ӟ��Database1、 DataSource1、Table1,加入Database1的目的是��Z��避免打开数据库时出现��d��框，为此双击此控件弹��Z��对话框，在Alias name中选ODBC数据源名(本例为Excel01),在Name中填上一新的别名(本例取Excel02)�Q�再点“Defaults” 出��C��批参数缺省��|��最后取消Options中的两项“Login prompt\\\"与\\\"Keep inactive connect�?点OK退出；

---- 4.讄��其它控�g属�?

---- ��Table1的属性DatabaseName选�ؓ步骤3中的新别名Excel02,再将另一属性TableName选�ؓ步骤1的表�?本例为ABC);��控件DataSource1的属性 DataSet选�ؓTable1�Q�双击Form1,在FormCreate事�g子程序内加上一句 Table1- >Open( )�Q��?br />
---- 5�Q�查看数据库内容�Q��?br />
---- ��Z��直接看到Excel数据�Q�在Form1中再加上Data Controls的控件DBGrid1 和DBNavigator1�Q�将两者的属性DataSource都选�ؓDataSource1,双击Table1 的属性Active��值改为true,�{�待数秒��可看到DBGrid1中出现数�?最后恢复Tabel1- >Active为false�Q��?br />
---- 注意�Q�程序编译前,必须��刚打开的表关闭,�?使Table1- >Active为false, 否则�E�序�q�行时报告出错，因�ؓExcel表��L��被ODBC以“独占”方式打开�Q��?br />
---- 我们使用的是C++ Builder 4.0专业版，�?sh��)子表格为Excel 97。�?br />---- �l�老妖试验�Q�在win2000,Excel 2000,C++ Builder 6.0中��用正常�?br />

semovy 2006-05-12 15:05 发表评论

用OLE操作Excel(目前最全的资料)

semovy — Fri, 12 May 2006 07:03:00 GMT

文档标题�Q?font color="#0000ff">用OLE操作Excel(目前最全的资料)(04.2.19更新)　　作者： ccrun

�ꐠ键字：Office,Excel,Sheet,Cell,OLE,CreateObject,Merge,工作��?工作�?单元�?合�ƈ,自动�?br />
本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=529&d=0iezy5
用OLE操作Excel(目前最全的资料)(04.2.19更新)
本文档部分资料来自互联网,大部分是ccrun(老妖)在Excel中通过录制�?->察看宏代�?->转�ؓCB代码而来.本文档不断更��C��.�Ƣ迎大家��x��.

要在应用�E�序中控制Excel的运�?首先必须在编制自动化客户�E�序时包含Comobj.hpp
#include \\\"Comobj.hpp\\\"

C++ Builder把Excel自动化对象的功能包装在下面的四个Ole Object Class函数�?应用人员可以很方便地�q�行调用�?br />讄��对象属�?void OlePropertySet(属性名,参数…�?;
获得对象属�?Variant OlePropertyGet(属性名,参数…�?;
调用对象�Ҏ(gu��)��:1) Variant OleFunction(函数�?参数…�?;
2) void OleProcedure(�q�程�?参数…�?;

在程序中可以用宏定义来节省时��_��

#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure

举例�Q?br />ExcelApp.OlePropertyGet(\\\"workbooks\\\").OleFunction(\\\"Add\\\");
可写�?br />ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\");

C++ Builder中��用OLE控制Excel2000,必须掌握Excel2000的自动化对象及Microsoft Word Visual Basic帮助文�g中的关于Excel的对象、方法和属性。对象是一个Excel元素,属性是对象的一个特性或操作的一个方�?�Ҏ(gu��)��是对象可以进行的动作�?br />首先定义以下几个变量�Q?br />Variant ExcelApp,Workbook1,Sheet1,Range1;

1、Excel中常用的对象�?Application,Workbooks,Worksheets�{��?br />
★创建应用对象★
Variant ExcelApp;
ExcelApp = Variant::CreateObject (\\\"Excel.Application\\\");
或�?br /> ExcelApp = CreateOleObject (\\\"Excel.Application\\\");

★创建工作簿对象�?br /> Variant WorkBook1;
WorkBook1 = ExcelApp.PG(\\\"ActiveWorkBook\\\");

★创建工作表对象�?br /> Variant Sheet1;
Sheet1 = WorkBook1.PG(\\\"ActiveSheet\\\");

★创建区域对象★
Variant Range;
Range = Sheet1.PG(\\\"Range\\\",\\\"A1:A10\\\");
或者��?br /> Excel.Exec(PropertyGet(\\\"Range\\\")<<\\\"A1:C1\\\").Exec(Procedure(\\\"Select\\\"));

2、常用的属性操�?

★��Excel�E�序不可见★
ExcelApp.PS(\\\"Visible\\\", (Variant)false);

★新建EXCEL文�g�?br />
◎ 新建系�l�模板的工作��?br /> ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\") //默认工作��?br /> ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", 1) //单工作表
ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", 2) //图表
ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", 3) //宏表
ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", 4) //国际通用宏表
ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", 5) //与默认的相同
ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", 6) //工作��且只有一个表
或者��用ExcelApp的Exec�Ҏ(gu��)��
Excel.Exec(PropertyGet(\\\"Workbooks\\\")).Exec(Procedure(\\\"Add\\\"));
◎ 新��己创建的模板的工作簿
ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", \\\"C:\\\\\\\\Temp\\\\\\\\result.xlt\\\");

★打开工作��옅
ExcelApp.PG(\\\"workbooks\\\").FN(\\\"open\\\", \\\"路径�?xls\\\")

★保存工作簿�?br /> WorkBook1.FN(\\\"Save\\\"); //保存工作��?br /> WorkBook1.FN(\\\"SaveAs\\\", \\\"文�g名\\\");//工作��保存�ؓ,路径注意用\\\"\\\\\\\\\\\"

★退出EXCEL�?br /> ExcelApp.FN (\\\"Quit\\\");
ExcelApp = Unassigned;
或�?br /> ExcelApp.Exec(Procedure(\\\"Quit\\\"));

★操作工作表�?br />
◎ 选择选择工作表中�W�一个工作表
Workbook1.PG(\\\"Sheets\\\", 1).PR(\\\"Select\\\");
Sheet1 = Workbook1.PG(\\\"ActiveSheet\\\");

◎ 重命名工作�?br /> Sheet1.PS(\\\"Name\\\", \\\"Sheet的新名字\\\");

◎ 当前工作簿中的工作表��L��
int nSheetCount=Workbook1.PG(\\\"Sheets\\\").PG(\\\"Count\\\");

★操作行和列�?br />
◎ 获取当前工作表中有多少行和多少列：
Sheet1.PG(\\\"UsedRange\\\").PG(\\\"Columns\\\").PG(\\\"Count\\\"); //列数
Sheet1.PG(\\\"UsedRange\\\").PG(\\\"Rows\\\").PG(\\\"Count\\\"); //行数

◎ 设�|�列�?br /> ExcelApp.PG(\\\"Columns\\\", 1).PS(\\\"ColumnWidth\\\", 22);
或�?br /> Range = ExcelApp.PG(\\\"Cells\\\", 1, 3);
Range.PS(\\\"ColumnWidth\\\", 22);

◎ 设�|�行�?br /> ExcelApp.PG(\\\"Rows\\\", 2).PS(\\\"RowHeight\\\", 25);
或�?br /> Range = ExcelApp.PG(\\\"Cells\\\", 2, 1);
Range.PS(\\\"RowHeight\\\", 25);

◎ 在工作表最前面插入一�?br /> Sheet1.PG(\\\"Rows\\\", 1).PR(\\\"Insert\\\");

◎ 删除一�?br /> ExcelApp.PG(\\\"Rows\\\", 2).PR(\\\"Delete\\\"); //��第2行删�?br />
// 本文作者：ccrun �Q�如转蝲请保证本文档的完整性，�q�注明出处�?br /> // �Ƣ迎光��(f��) C++ Builder 研究 www.ccrun.com
// 摘自:http://www.ccrun.com/doc/go.asp?id=529

★操作单元格�?br />
◎ 设�|�单元格字体
Sheet1.PG(\\\"Cells\\\", 1, 1).PG(\\\"Font\\\").PS(\\\"Name\\\", \\\"隶书\\\"); //字体
Sheet1.PG(\\\"Cells\\\", 2, 3).PG(\\\"Font\\\").PS(\\\"size\\\", 28); //大小

◎ 设�|�所选区域字�?br /> Range.PG(\\\"Cells\\\").PG(\\\"Font\\\").PS(\\\"Size\\\", 28);
Range.PG(\\\"Cells\\\").PG(\\\"Font\\\").PS(\\\"Color\\\", RGB(0, 0, 255));
其中参数的设�|?
Font Name : \\\"隶书\\\" //字体名称
Size : 12 //字体大小
Color : RGB(*,*,*) //颜色
Underline : true/false //下划�U?br /> Italic: true/false //斜体

◎ 设�|�单元格格式为小数百分比
Sheet1.PG(\\\"Cells\\\", 1, 1).PS(\\\"NumberFormatLocal\\\", \\\"0.00%\\\");

◎ 设定单元格的垂直对齐方�?br /> Range = ExcelApp.PG(\\\"Cells\\\", 3, 4);
// 1=靠上 2=居中 3=靠下寚w�� 4=两端寚w�� 5=分散寚w��
Range.PS(\\\"VerticalAlignment\\\", 2);

◎ 设定单元格的文本�ؓ自动换行
Range = ExcelApp.PG(\\\"Cells\\\", 3, 4);
Range.PS(\\\"WrapText\\\", true);

★单元格的合�q�★

◎ Range = Sheet1.PG(\\\"Range\\\", \\\"A1:A2\\\"); //A1和A2单元格合�q?br /> String strRange = \\\"A\\\" + IntToStr(j) + \\\":\\\" + \\\"C\\\" + IntToStr(j); //比如�Q�A1:C5
Range1=Sheet1.PG(\\\"Range\\\", strRange.c_str()); //可以用变量控制单元格合�ƈ
Range1.FN(\\\"Merge\\\", false);

★读写单元格�?br />
◎ 指定单元格赋�?br /> String strValue = \\\"abcdefg\\\";
Sheet1.PG(\\\"Cells\\\", 3, 6).PS(\\\"Value\\\", strValue.c_str());
Sheet1.PG(\\\"Cells\\\", j, 1).PS(\\\"Value\\\", \\\"总记�?\\\" + String(j-6));
或者��?br /> Excel.Exec(PropertyGet(\\\"Cells\\\")<<1<<3).Exec(PropertySet(\\\"Value\\\")<<15);

◎ 所选区域单元格赋�?br /> Range.PG(\\\"Cells\\\").PS(\\\"Value\\\", 10);

◎ 所选区域行赋�?br /> Range.PG(\\\"Rows\\\",1).PS(\\\"Value\\\", 1234);

◎ 工作表列赋�?br /> Sheet1.PG(\\\"Columns\\\",1).PS(\\\"Value\\\", 1234);

◎ 读取取��D��?
String strValue = Sheet1.PG(\\\"Cells\\\", 3, 5).PG(\\\"Value\\\");

★窗口属性★

◎ 显�C�属�?br /> ExcelApp.PS(\\\"Windowstate\\\", 3); //最大化昄��
1---------xlNormal //正常昄��
2---------xlMinimized //最��化昄��
3---------xlMaximized //最大化昄��

◎ 状态栏属�?br /> ExcelApp.PS(\\\"StatusBar\\\", \\\"�(zh��n)�好,��h��E�等。正在查询！\\\");
ExcelApp.PS(\\\"StatusBar\\\", false); //�q�原成默认�?br />
◎ 标题属�?
ExcelApp.PS(\\\"Caption\\\", \\\"查询�pȝ��\\\");

3、操作图�?br />
★添加图�?br />
Variant Chart;
Chart = ExcelApp.Exec(PropertyGet(\\\"Charts\\\")).Exec(Function(\\\"Add\\\"));
ExcelApp.Exec(PropertySet(\\\"Visible\\\") << true);
Chart.Exec(PropertySet(\\\"Type\\\") << -4100);

★滚动图�?br />
for(int nRotate=5; nRotate <= 180; nRotate += 5)
{
Chart.Exec(PropertySet(\\\"Rotation\\\") << nRotate);
}
for (int nRotate = 175; nRotate >= 0; nRotate -= 5)
{
Chart.Exec(PropertySet(\\\"Rotation\\\") << nRotate);
}

另外�Q��ؓ保证�E�序能正常运行，需要在�E�序中判断目标机器是否安装了Office;
try
{
ExcelApp = Variant::CreateObject (\\\"Excel.Application\\\");
}
catch(...)
{
ShowMessage(\\\"�q�行Excel出错,��L��认安装了Office\\\");
return;
}

#include \\\"comobj.hpp\\\"
//---------------------------------------------------------------------------
// �Ҏ(gu��)��定Excel文�g中的指定列进行排�?br />// strExcelFileName : excel文�g�?br />// nCol : 指定的列�?br />// nSortStyle : 1:升序�Q?:降序
void SortExcelColumn(String strExcelFileName, int nCol, int nSortStyle)
{
Variant vExcelApp, vWorkbook, vRange;
vExcelApp = Variant::CreateObject(\\\"Excel.Application\\\");
vExcelApp.OlePropertySet(\\\"Visible\\\", false);
vExcelApp.OlePropertyGet(\\\"WorkBooks\\\").OleProcedure(\\\"Open\\\", strExcelFileName.c_str());
vWorkbook = vExcelApp.OlePropertyGet(\\\"ActiveWorkbook\\\");
vExcelApp.OlePropertyGet(\\\"Columns\\\", nCol).OleProcedure(\\\"Select\\\");
vExcelApp.OlePropertyGet(\\\"ActiveSheet\\\").OlePropertyGet(\\\"Cells\\\", 1, nCol).OleProcedure(\\\"Select\\\");
vRange = vExcelApp.OlePropertyGet(\\\"Selection\\\");
vRange.Exec(Function(\\\"Sort\\\")<vWorkbook.OleProcedure(\\\"Save\\\");
vWorkbook.OleProcedure(\\\"Close\\\");
vExcelApp.OleFunction(\\\"Quit\\\");
vWorkbook = Unassigned;
vExcelApp = Unassigned;
ShowMessage(\\\"ok\\\");
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
// 对C:\\\\123\\\\123.xls文�g中第一个Sheet的第四列�q�行升序排序
SortExcelColumn(\\\"C:\\\\\\\\123\\\\\\\\123.xls\\\", 4, 1);
}
//---------------------------------------------------------------------------

semovy 2006-05-12 15:03 发表评论

semovy — Fri, 12 May 2006 07:02:00 GMT

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{

int fileHandle = 0;
if(SaveDialog1->Execute())
{
if(FileExists(SaveDialog1->FileName))
{
if(Application->MessageBoxA(\\\"该文件已�l�存�?是否替换�Q�\\\",\\\"信息提示框\\\",MB_YESNO) == 6)
{
fileHandle = FileCreate(SaveDialog1->FileName);
String str = \\\"�W�一列\\\\t\\\\t�W�二列\\\\t\\\\t�W�三列\\\\t\\\\t�W�四列\\\\t\\\\t�W�五列\\\\r\\\\n\\\";
FileWrite(fileHandle,str.c_str(), str.Length());
for(int i=0;i<10;i++)
FileWrite(fileHandle,str.c_str(), str.Length());
FileClose(fileHandle);
ShowMessage(\\\"OK\\\");
}
else
{
return;
}
}
else
{
fileHandle = FileCreate(SaveDialog1->FileName);
String str = \\\"�W�一列\\\\t\\\\t�W�二列\\\\t\\\\t�W�三列\\\\t\\\\t�W�四列\\\\t\\\\t�W�五列\\\\r\\\\n\\\";
FileWrite(fileHandle,str.c_str(), str.Length());
for(int i=0;i<10;i++)
FileWrite(fileHandle,str.c_str(), str.Length());
FileClose(fileHandle);
ShowMessage(\\\"OK\\\");
}

}

}

semovy 2006-05-12 15:02 发表评论

��数据到Excel文�g

semovy — Fri, 12 May 2006 07:00:00 GMT

#include
#pragma hdrstop
#include \\\"Comobj.hpp\\\" //必须包含的头文�g

#include \\\"Unit1.h\\\"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource \\\"*.dfm\\\"
#define PG OlePropertyGet //主要用到的便于编写的四个宏定�?br />#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Variant ExcelApp = CreateOleObject (\\\"Excel.Application\\\"); //创徏一个工作簿对象
SaveDialog1->Execute(); //执行保存对话�?br /> ExcelApp.PG(\\\"workbooks\\\").FN(\\\"Add\\\", 6);// 向工作簿对象��d��一张工作表
Variant WorkBook1;
WorkBook1 = ExcelApp.PG(\\\"ActiveWorkBook\\\");//获取�z�d��工作�?br />Variant Sheet1;
Sheet1 = WorkBook1.PG(\\\"ActiveSheet\\\");//获取�z�d��的工作表
for (int i=1;i<=10;i++)
for (int j=1;j<=10;j++)
Sheet1.PG(\\\"Cells\\\",i,j).PS(\\\"Value\\\",i*100+j);//循环向工作表中添加数�?br /> Sheet1.PS(\\\"Name\\\", \\\"Sheet的新名字\\\"); //工作��K��命名
WorkBook1.PR(\\\"SaveAs\\\", SaveDialog1->FileName.c_str());//存储在指定的保存对话框文件名的文件上
WorkBook1.PR(\\\"Close\\\");//关闭工作��?br /> ExcelApp.FN(\\\"Quit\\\");//关闭Excel�E�序
}
//---------------------------------------------------------------------------

semovy 2006-05-12 15:00 发表评论

Delphi BCB提示信息框（MessageBox�Q�的应用

semovy — Fri, 12 May 2006 06:59:00 GMT

提示信息框（MessageBox�Q�的应用
作者：

　应用�E�序中的提示信息处理�E�序是非常出重要的部分，用户要知道他输入的资料到底正不正��?br />
�Q�或者是应用�E�序有一些提�C�Z��息要告诉用户�Q�都必须通过提示信息处理�E�序来显�C�适当的信息，

让用户了解下一步该如何配置。提�C�Z��息有很多�U�类�Q�包括警告，错误�Q�提�C�，��认�Q�重试等。不

同种�cȝ��提示信息框适合用在各种不同的情��c�?br />
　　在C++Builder中开发提�C�Z��息框只须调用MessageBox�q�个信息提示框函数就行，下面��是�q�个

函数说明�Q?br />
int __fastcall MessageBox(const char * Text,//提示信息框的内容

const char * Caption, //提示信息框的标题

int Flags); //提示信息框的�c�d��

　　参数Flags的值是用来标志提示信息框的�c�d��的，下面是一些常用的�c�d��Q?br />
参数值样式意�?br />MB_ICONWARNING 含图标、固定按钮警告信息框
MB_ICONQUESTION 含图标、固定按钮疑问信息框
MB_IConERROR 含图标、固定按钮错误信息框
MB_ICONASTERISK 含图标、固定按钮提�C�Z��息框
MB_HELP 不含图标、可改变按钮说明信息�?br />MB_OK 不含图标、可改变按钮提示信息�?br />MB_OKCANCEL 不含图标、可改变按钮 ��认信息�?br />MB_RETRYCANCEL 不含图标、可改变按钮重试信息�?br />MB_YESNO 不含图标、可改变按钮是否信息�?br />MB_YESNOCANCEL 不含图标、可改变按钮是否取消信息�?br />
　　从上表可以看出来�Q�提�C�Z��息框的类别可以分成含图标和不含图标，含图标的意思就是指提示

信息框上会有代表意义的图形，不过�q�类型的提示信息框的按钮都是固定的，都是【确定】按钮，

不能增加也不能省略；不含图标的提�C�Z��息框�Q�虽然没有对应的囑�Ş昄��在提�C�Z��息框上，可是�?br />
却可以在�q�种�c�d��的提�C�Z��息框内，加入各种�l�合的按钮，用于各种不同的情��c�?br />

MessageBox函数会返回一个整数��|��q�个整数��g��表用户刚刚点��L��C�Z��息框上的哪个按钮�Q�每�?br />
�q�回值的代表意义在下表：

�q�回值数值意�?br />IDOK 1 ��定
IDCANCEL 2 取消
IDABORT 3 中断
IDRETRY 4 重试
IDIGNORE 5 忽略
IDYES 6 �?br />IDNO 7 �?br />

下面是提�C�Z��息框的示范程序：

1�Q� 警告信息框

Application->MessageBox(\\\"警告信息框\\\",\\\"警告信息框\\\",MB_ICONWARNING);

2�Q�疑问信息框

Application->MessageBox(\\\"疑问信息框\\\",\\\"疑问信息框\\\",MB_ICONQUESTION);

3�Q�错误提�C�框

Application->MessageBox(\\\"错误信息框\\\",\\\"错误信息框\\\",MB_IConERROR);

4�Q�提�C�Z��息框

Application->MessageBox(\\\"提示信息框\\\",\\\"提示信息框\\\",MB_ICONASTERISK);

5�Q�说明信息框

Application->MessageBox(\\\"说明信息框\\\",\\\"说明信息框\\\",MB_HELP);

6�Q�提�C�Z��息框

Application->MessageBox(\\\"提示信息框\\\",\\\"提示信息框\\\",MB_OK);

7�Q�确认信息框

Application->MessageBox(\\\"��认信息框\\\",\\\"��认信息框\\\",MB_OKCANCEL);

8�Q�重试信息框

Application->MessageBox(\\\"重试信息框\\\",\\\"重试信息框\\\",MB_RETRYCANCEL);

9�Q�是否信息框

Application->MessageBox(\\\"是否信息框\\\",\\\"是否信息框\\\",MB_YESNO);

10�Q�是否取消信息框

Application->MessageBox(\\\"是否取消信息框\\\",\\\"是否取消信息框\\\",MB_YESNOCANCEL);

　　在C++Builder中，�q�提供了一个很��单的信息提示框函敎ͼ�那就是ShowMessage。这个函数只

有一个字�W�串参数�Q�你可以把要昄��的字�W�串攑ֈ��q�个字符串参数里面，ShowMessage��回昄��?br />
该信息，但是没有图标�Q�也没有按钮�Q�只有单�U�的字符串信息而已�?br />
下面是ShowMessage函数的说明：

extern PACKAGE void __fastcall ShowMessage(const AnsiString Msg);

例子�Q?br />
ShowMessage(\\\"�q�个��是ShowMessage函数生成的信息提�C�框�Q�\\\");
Application->MessageBox(\\\"AA\\\", \\\"BB\\\", MB_OK | MB_ICONSTOP);
�?br />MessageBox(Application->Handle,\\\"AA\\\", \\\"BB\\\", MB_OK | MB_ICONSTOP);
�q�种写法“��别”最高：如果弹出�q�样的对话框�Q�不�Ҏ(gu��)��Q�Application下所有的Form�?br />不能“动”的�?br />
MessageBox(Form1->Handle,\\\"AA\\\", \\\"BB\\\", MB_OK | MB_ICONSTOP);
�q�种写法“��别”其�ơ：如果弹出�q�样的对话框�Q�不�Ҏ(gu��)��Q�只有From1不能“动”，其他
Show()的From�q�可以点�?br />
MessageBox(NULL,\\\"AA\\\", \\\"BB\\\", MB_OK | MB_ICONSTOP);
�q�种写法“��别”最低：如果弹出�q�样的对话框�Q�不�Ҏ(gu��)��Q�From1也能“动”，其他
Show()的From也可以点�?br />

semovy 2006-05-12 14:59 发表评论

semovy — Wed, 10 May 2006 07:10:00 GMT

1.http://nemolog.cnblogs.com/

semovy 2006-05-10 15:10 发表评论

C++Builder实现人民币小写�{大写

semovy — Wed, 10 May 2006 06:47:00 GMT

1、rmb.h

#ifndef rmbH
#define rmbH

// for AnsiString def
// #include

// 数��D�{大写人民币函�?br />AnsiString NumToRMBStr(double val);

// 正整数字�W�串转汉字函敎ͼ�不徏议单独��?br />// 输入字符串必��L��整数�Q�只允许前导�I�格(必须叛_��?�Q�不宜有前导�?br />// AnsiString PositiveIntegerToHanStr(const AnsiString &NumStr);

#endif

2、rmb.cpp

#include // must define AnsiString before rmb.h
#pragma hdrstop // only for C++ Builder

#include
#include "rmb.h"

//---------------------------------------------------------------------------

// 帔R��字符串定义，如修改也可变��{换普通汉字函敎ͼ�如：一二三�Q�十癑֍��Q?br />const char *HanDigiStr[] = {"�?,"�?,"�?,"�?,"�?,"�?,"�?,"�?,"�?,"�?};

const char *HanDiviStr[] = { "","�?,"�?,"�?,"�?,"�?,"�?,"�?,"�?,
"�?,"�?,"�?,"�?,"�?,"�?,"�?,"�?,
"�?,"�?,"�?,"�?,"�?,"�?,"�? };

AnsiString PositiveIntegerToHanStr(const AnsiString &NumStr)
{ // 输入字符串必��L��整数�Q�只允许前导�I�格(必须叛_��?�Q�不宜有前导�?br /> AnsiString RMBStr;
int len,n,lastzero=0;
int hasvalue=0; // �ѝ��万�q�位前有数值标�?/p>

len = NumStr.Length();
if( len > 24 ) return "数��D��?";

for(int i=len-1;i>=0;i--) {
  if( NumStr[len-i]==' ' ) continue;      // AnsiString[] base is 1
  n = NumStr[len-i] - '0';
  if( n<0 || n>9 ) return "输入含非数字字符!";

  if( n!=0 ) {
   if( lastzero ) RMBStr += HanDigiStr[0];  // 若干零后若跟非零��|��只显�C�Z��个零
                                                                        // 除了亿万前的零不带到后面
//   if( !( n==1 && (i%4)==1 && (lastzero || i==len-1) ) )   // 如十�q�位前有零也不发壚w��用此�?br />//   if( !( n==1 && (i%4)==1 && i==len-1 ) )         // 十进位处于第一位不发壹�?br />    RMBStr += HanDigiStr[n];
   RMBStr += HanDiviStr[i];   // 非零值后加进位，个位为空
   hasvalue = 1;                                   // �|�万�q�位前有值标�?br />   }
  else {
   if( (i%8)==0 || ((i%8)==4 && hasvalue) ) // 亿万之间必须有非零值方昄��?br />    RMBStr += HanDiviStr[i];  // "�?�?�?
   }
                if( i%8==0 ) hasvalue = 0;    // 万进位前有值标记逢亿复位
  lastzero = (n==0) && (i%4!=0);                  // 亿万前有零后不加�Ӟ��如：拾万��C��
}

if( RMBStr.Length()==0 ) return HanDigiStr[0]; // 输入�I�字�W�或"0"�Q�返�?�?
return RMBStr;
}

AnsiString NumToRMBStr(double val)
{
AnsiString SignStr,TailStr;
double fraction, integer;
int jiao,fen;

if( val<0 ) {
  val = -val;
  SignStr = "�?;
}
fraction = modf(val+0.005, &integer);           // 四舍五入到分

jiao = int(fraction*10);
fen = int(fraction*100)-jiao*10;
if( jiao==0 && fen==0 ) {
  TailStr = "�?;
}
else {
  TailStr = HanDigiStr[jiao];
  if( jiao!=0 )
   TailStr += "�?;
                if( integer==0 && jiao==0 )             // 零元后不写零几分
                        TailStr = "";
  if( fen!=0 )
   TailStr += HanDigiStr[fen] + AnsiString("�?);
}

// 下一行可用于非正规金融场合，0.03只显�C?叁分"而不�?零元叁分"
// if( integer==0 ) return SignStr+TailStr;

return SignStr+PositiveIntegerToHanStr( AnsiString(integer) )+"�?+TailStr;
}

//-----------------------------------------------------------

// 基本考虑
// 人民币大写单位银行规定用"�?
// 无零头金额后�?�?�Q�有则不�?br />// 角�ؓ零时不写角（如：零叁分）
// 四舍五入到分
// 为减��判�ȝ��惑（一般对大写金额预期较高�Q�和
// 体现人民币基本单位�ؓ元，金额低于壹圆前仍�?零元"

// 整数转换
// 若干零后若跟非零��|��只显�C�Z��个零�Q�否则不昄��
// �?�?前有零后不加�Ӟ��因亿、万��Z��完整单位�Q?br />// �Q�如�Q�拾万贰�?�?拾万零贰�?更顺些）
// 亿�ؓ汉语计数最大单位，只要�q�位到��L��昄��Q�如�Q�壹亿亿�Q?br />// 万�ؓ�ơ最大单位，亿万之间必须有非零值方昄��?br />// �Q�如"壹亿"不可昄��?壹亿�?�Q?br />//
// 为减��被�H�改的可能性，十进位��d��壚w��Q�这和下面的习惯��L��不一�?br />// �Q�十�q�位处于�W�一位不发壹韻I��?拑օ�"�?�Ҏ(gu��)��?�Q?br />// 十进位处前有零是否不发壹音不太确定，
// �?叁仟零壹拑օ�"�q�是"叁仟零拾�?�Q�）
// �?拾万"不用"�Ҏ(gu��)��?�Q�因为每个整数进位后都有�q�位单位�Q�拾��C��万亿�Q?br />// �q�样即��金额前没有附防窜改的前缀�?人民�?字样也难�H�改�?br />// 因�ؓ臛_��要加��M��个汉字�ƈ且改动后数字必须�q�位才能�H�改�?br />// �Q�如"拾万"可改�?叁拾�?�Q��?�Ҏ(gu��)��?臛_��要改�?壹䘪�Ҏ(gu��)��?�Q?/p>

// 此函��CؓBorland C++ Builder�~�写�Q�已充分考虑到跨�q�_��兼容�?br />// 如需转换到其它场合，
// 只需修改字符串类型从AnsiString到对应的�c�d��、功能及函数
// �Q�注意两个char*型字�W�串不可以直接相加，需有一个先转换�Q?/p>

semovy 2006-05-10 14:47 发表评论