用C＋＋Builder 建立数据库VCL使用经验

韩冰

<>  </P>
0 f+ F# c; x3 D. H0 P& [" d<>杨超 </P>
<>  </P>
1 _* s0 q+ q. h( z<>　　随着数据库的广泛应用，数据库编程已经成为程序设计中发展迅猛的一支。 </P>
; G0 F+ L/ u) V0 [1 }& e% Z<>C＋＋ Builder在数据库开发方面具有的强大功能是无可比拟的，你甚至可以不 </P>
<>写一行程序就生成漂亮的数据库程序。 </P>
) E: N" L* V6 r8 v<>  </P>
1 Z# h5 C1 _5 T6 W* H5 s<>　　下面对C＋＋Builder中的几个数据库VCL的使用技巧做一下介绍： </P>
<>  </P>
<>　　一、DBGrid控件 </P>
<>  </P>
<>　　1.设置DBGrid的字段显示宽度属性 </P>
<>  </P>
<>　　为了在DBGrid中建立较小的列，你必须建立一个显示标题，它等于或小于字 </P>
<>段值。例如，你希望建立一个只有三个字符宽的列，你的列标题显示必须只有三 </P>
<>个字符或更少。 </P>
; Y  c2 E! k# I+ L<>  </P>
4 D4 U! b* h6 T, i<>　　2.改变DBGrid的显示字段及日期显示格式 </P>
# f" X  h& K1 J' ]<>  </P>
. `9 W5 R: d$ l; S  U. C2 G4 y<>　　(1)双击DBGrid对应的Table1,进入字段编辑器。 </P>
* K: z5 o8 \; M7 I6 R- O8 Z; z<>  </P>
<>　　(2)点右键出现选单选“Add Fields…" ,出现添加字段对话框，选择要添加 </P>
<>的字段（该字段将在运行时由DBGrid显示）然后点OK按钮。 </P>
1 ~; d6 g% u& c7 U$ _: p<>  </P>
<>　　(3)假设添加了“日期”字段，点该字段，在属性表中的：DisplayLabel中 </P>
<>填入你希望DBGrid显示的字段名。如果原来字段名是英文的，这里用中文名后 </P>
$ }* p  n8 N  k1 L" a% Y<>DBGrid将显示中文名。在DisplayFormat中填入：yyyy－mm－dd，以后日期将按 </P>
3 t( W2 a  i, |( L( Z/ f  x<>1999－05－28格式显示。 </P>
/ Q1 U! T. I: M# {2 w' `<>  </P>
<>　　二、Tquery控件 </P>
<P>  </P>
( t( \& l; R+ _3 `+ Y6 S<P>　　Tquery 控件是数据库编程中非常重要的一个控件，它负责通过BDE与数据库 </P>
<P>建立联系，通过SQL语句方便的建立查询。Query必须建立相应的SQL才能生效。 </P>
<P>  </P>
& R/ f9 H$ g7 m5 I2 t! u<P>  </P>
<P>　　Tquery的参数设置如下： </P>
/ g: Y- n! B8 s( E- Q<P>  </P>
; g2 X' j) ~: O$ C4 V<P>　　(1)在SQL属性中：Select ＊ from 表名 where 字段名=:变量名 </P>
<P>  </P>
<P>　　跟在“ : "后面的是变量。这样写后，在参数属性中就可以修改该变量的数 </P>
+ u- J0 A9 w  j2 K' Y<P>据类型等。 </P>
. q' k: ^. {2 J$ {& @<P>  </P>
" m' V2 X) D# f9 ^, \<P>　　(2)对变量的赋值： </P>
<P>  </P>
9 Z/ C, M5 o7 l2 k' D( @% G! y<P>　　 Query1－〉Active=false; </P>
4 ^( v  o$ P4 p4 _' G1 v: q<P>  </P>
<P>　　 Query1－〉Params－〉Items[0]－〉AsString=Edit1－〉Text; </P>
7 _* M" ^% E  d4 u3 J<P>  </P>
& N8 J- x: @. p# u6 J<P>　　 Query1－〉Active=true;//查找符合变量的记录 </P>
! {, Q) {) w" S- P- z) O# H$ P<P>  </P>
" d: c5 B8 p* E/ c<P>　　(3)用DBGrid显示结果 </P>
4 E; N: a$ ]4 K<P>  </P>
+ |8 ]+ P8 Q9 }<P>　　DBGrid的DataSource与DataSource1连接，而DataSource1的DataSet与 </P>
: A4 y2 G  D/ Y; `  U3 q2 i1 H<P>Tquery1 连接。 </P>
4 l1 T& M8 f' {! W<P>  </P>
* K; G7 `9 k4 H! ?<P>　　三、应用示例 </P>
<P>  </P>
" c/ k- c, M7 c/ K/ t<P>　　通过Query控件嵌入SQL语句建立的查询比Table更简单、更高效。 </P>
/ B  d& c: T% L2 V<P>  </P>
<P>　　用一个简单的代码来说明如何建立查询程序： </P>
4 g% T  j, J8 M9 g8 g4 R3 \2 Y$ a<P>  </P>
; `' ?/ {) j$ X  y* a<P>　　例如，要建立一个检索表1中书名为book1的程序则在表单上放置DBGrid, </P>
2 J! r5 t: s- X9 n& g# P- g0 G<P>DataSource,Query三个控件加入以下代码： </P>
8 D" U  K1 H. B4 T3 `<P>  </P>
<P>　　DBGrid1－〉DataSource=DataSource1; </P>
<P>  </P>
<P>　　DataSource1－〉DataSet=Tqery1; </P>
<P>  </P>
<P>　　Query1－〉Close(); </P>
5 |4 c  V) ?5 I" E4 _/ H( _<P>  </P>
<P>　　Query1－〉SQL－〉Clear(); </P>
<P>  </P>
0 M; m& j0 m$ ^* E0 Q<P>　　Query1－〉SQL－〉Add(″Select ＊ From 表 Where (书名=′book1′ ″ </P>
( T/ o" D/ K* H% w0 w<P>); </P>
<P>  </P>
) ]% f( t8 z' f% w1 |9 ~<P>　　Query1－〉ExecSQL(); </P>
, K/ g1 {+ i. x' _& c- q: _<P>  </P>
* b# K* W& ]" g- B2 D( g# o. y<P>　　Query－〉Active=true; </P>
" U9 m- w; T' j. R/ \<P>  </P>
7 L. _  f" s* g& f<P>　　你就可以在生成的表格中看到所有名称为book1的记录。 </P>