📄 cb199910hh_f.asp.htm
字号:
style="mso-bidi-font-weight: normal">false</B>;</P>
<P class=Code>}</P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>void</B> <B
style="mso-bidi-font-weight: normal">__fastcall</B>
TForm1::SortingChanged(TObject *Sender) </P>
<P class=Code>{</P>
<P class=Code> SelectIndex();</P>
<P class=Code>}</P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Subheads>End Listing Two</P>
<P class=BodyText> </P>
<P class=Subheads><A name=ListingThree></A>Begin Listing Three - Example
2: main.h, header file for main form unit. </P>
<P class=Code><I><SPAN class=CodeBlue>// </SPAN></I><SPAN
class=CodeGrn>#ifndef mainH</SPAN></P>
<P class=Code><SPAN class=CodeGrn>#define mainH</SPAN></P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><SPAN class=CodeGrn>#include <BdeProv.hpp> </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <Buttons.hpp> </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <Classes.hpp> </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <Controls.hpp>
</SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <Db.hpp> </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <DBClient.hpp>
</SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <DBGrids.hpp> </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <DBTables.hpp>
</SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <ExtCtrls.hpp>
</SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <Grids.hpp> </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#include <Provider.hpp>
</SPAN></P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>class</B> TForm1 : <B>public</B> TForm</P>
<P class=Code>{</P>
<P class=Code><B> __published</B>:</P>
<P class=Code> TQuery *Query1; </P>
<P class=Code> TProvider *Provider1; </P>
<P class=Code> TClientDataSet
*ClientDataSet1; 7</P>
<P class=Code> TPanel *Panel1; </P>
<P class=Code> TSpeedButton *btnOpen; </P>
<P class=Code> TSpeedButton *btnClose; </P>
<P class=Code> TDBGrid *DBGrid1; </P>
<P class=Code> TDataSource *DataSource1; </P>
<P class=Code> TFloatField *ClientDataSet1OrderNo;
</P>
<P class=Code> TFloatField *ClientDataSet1CustNo;
</P>
<P class=Code> TDateTimeField
*ClientDataSet1SaleDate; </P>
<P class=Code> TDateTimeField
*ClientDataSet1ShipDate; </P>
<P class=Code> TIntegerField *ClientDataSet1EmpNo;
</P>
<P class=Code> TStringField
*ClientDataSet1ShipToContact; </P>
<P class=Code> TStringField
*ClientDataSet1ShipToAddr1; </P>
<P class=Code> TStringField
*ClientDataSet1ShipToAddr2; </P>
<P class=Code> TStringField
*ClientDataSet1ShipToCity; </P>
<P class=Code> TStringField
*ClientDataSet1ShipToState; </P>
<P class=Code> TStringField
*ClientDataSet1ShipToZip; </P>
<P class=Code> TStringField
*ClientDataSet1ShipToCountry; </P>
<P class=Code> TStringField
*ClientDataSet1ShipToPhone; </P>
<P class=Code> TStringField *ClientDataSet1ShipVIA;
</P>
<P class=Code> TStringField *ClientDataSet1PO; </P>
<P class=Code> TStringField *ClientDataSet1Terms;
</P>
<P class=Code> TStringField
*ClientDataSet1PaymentMethod; </P>
<P class=Code> TCurrencyField
*ClientDataSet1ItemsTotal; </P>
<P class=Code> TFloatField *ClientDataSet1TaxRate;
</P>
<P class=Code> TCurrencyField
*ClientDataSet1Freight; </P>
<P class=Code> TCurrencyField
*ClientDataSet1AmountPaid; </P>
<P class=Code> <B> void</B> <B>__fastcall</B>
btnOpenClick(TObject *Sender); </P>
<P class=Code> <B> void</B> <B>__fastcall</B>
btnCloseClick(TObject *Sender); </P>
<P class=Code> <B> void</B> <B>__fastcall</B>
DBGrid1TitleClick(TColumn *Column); </P>
<P class=Code><B> private</B>:</P>
<P class=Code> <B> void</B>
CreateIndices(TClientDataSet *dataset); </P>
<P class=Code><B> public</B>:</P>
<P class=Code> <B> __fastcall</B>
TForm1(TComponent* Owner); </P>
<P class=Code>};</P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>extern</B> PACKAGE TForm1 *Form1; </P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><SPAN class=CodeGrn>#endif</SPAN></P>
<P class=Subheads>End Listing Three</P>
<P class=BodyText> </P>
<P class=Subheads><A name=ListingFour></A>Begin Listing Four - Example 2:
main.cpp, source file for main form unit. </P>
<P class=Code><SPAN class=CodeGrn>#include <vcl.h> </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#pragma hdrstop</SPAN></P>
<P class=Code> </P>
<P class=Code><SPAN class=CodeGrn>#include "main.h" </SPAN></P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><SPAN class=CodeGrn>#pragma package(smart_init) </SPAN></P>
<P class=Code><SPAN class=CodeGrn>#pragma resource "*.dfm" </SPAN></P>
<P class=Code>TForm1 *Form1; </P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>__fastcall</B> TForm1::TForm1(TComponent* Owner) </P>
<P class=Code> : TForm(Owner) </P>
<P class=Code>{</P>
<P class=Code> CreateIndices(ClientDataSet1); </P>
<P class=Code>}</P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>void</B> TForm1::CreateIndices(TClientDataSet *dataset)
</P>
<P class=Code>{</P>
<P class=Code><I><SPAN class=CodeBlue> // Loop through the
fields in the dataset and create one</SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // index for each field.
The index name will match the field</SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // name. Note that we
skip calculated fields because</SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // calculated fields are
not stored in the dataset. </SPAN></I></P>
<P class=Code> <B> int</B> nFieldCount =
dataset->FieldCount; </P>
<P class=Code> <B> for</B> (<B>int</B> j=0; j<nFieldCount;
++j) </P>
<P class=Code> { </P>
<P class=Code> TField *field =
dataset->Fields->Fields[j]; </P>
<P class=Code> AnsiString indexName =
field->FieldName; </P>
<P class=Code><I><SPAN class=CodeBlue> // Make sure
that the index name doesn't already exist, </SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // and check
if the field is a calculated field. If the</SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // index
doesn't exist, and the field is not a calculated</SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // field
then create a new index. </SPAN></I></P>
<P class=Code> <B> if</B> (
(dataset->IndexDefs->IndexOf(indexName) == -1) && </P>
<P class=Code> (field->FieldKind !=
fkCalculated) ) </P>
<P class=Code> { </P>
<P class=Code> TIndexDef * index =
dataset->IndexDefs->AddIndexDef();</P>
<P
class=Code> index->Name =
indexName; </P>
<P class=Code> index->Fields =
field->FieldName; </P>
<P class=Code> } </P>
<P class=Code> } </P>
<P class=Code>}</P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>void</B> <B
style="mso-bidi-font-weight: normal">__fastcall</B>
TForm1::btnOpenClick(TObject *Sender) </P>
<P class=Code>{</P>
<P class=Code> ClientDataSet1->Active = <B
style="mso-bidi-font-weight: normal">true</B>;</P>
<P class=Code>}</P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>void</B> <B
style="mso-bidi-font-weight: normal">__fastcall</B>
TForm1::btnCloseClick(TObject *Sender) </P>
<P class=Code>{</P>
<P class=Code> ClientDataSet1->Active = <B
style="mso-bidi-font-weight: normal">false</B>;</P>
<P class=Code>}</P>
<P class=Code><I><SPAN class=CodeBlue>//
------------------------------------------------------------</SPAN></I></P>
<P class=Code><B>void</B> <B
style="mso-bidi-font-weight: normal">__fastcall</B>
TForm1::DBGrid1TitleClick(TColumn *Column) </P>
<P class=Code>{</P>
<P class=Code><I><SPAN class=CodeBlue> // The Column object is
the column that users clicked. </SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // TColumn provides a
Field property that gives us access</SPAN></I></P>
<P class=Code><I><SPAN class=CodeBlue> // to the TField for the
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -