- 在线时间
- 0 小时
- 最后登录
- 2005-5-7
- 注册时间
- 2005-5-6
- 听众数
- 2
- 收听数
- 0
- 能力
- 0 分
- 体力
- 266 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 23
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 6
- 主题
- 1
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级 18.95% 该用户从未签到
网络挑战赛参赛者
|
<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
9 N; }5 l7 l( U6 U$ A Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,# `, n; `: K/ z# _" X
Dialogs, StdCtrls, DB, ADODB;</P><>type
4 q5 E, L9 D* g; D8 z( }( ^& M TForm1 = class(TForm)
# [6 f e( l* k Edit1: TEdit;
% D/ L9 y7 G( R1 N* g3 H, q Button1: TButton;6 K; m1 q h3 A o$ w7 Z/ l& G m
ADOConnection1: TADOConnection;4 ^6 [' n% N) ~: d9 t% T4 v/ c
ADOQlinchang: TADOQuery;5 ~7 D9 R5 _ s9 _" B% W* Y
ADOQyinglinqu: TADOQuery;( a% x& X+ h5 ?+ V
ADOQzuoyequ: TADOQuery;1 t& G, x% \9 O* p$ i; X
ADOQlinban: TADOQuery;
5 W% k( s1 q5 h' a* \ ADOQxiaoban: TADOQuery;
" B! v/ M) `9 j" v- |9 l x: m5 M ADOQs: TADOQuery;( ?( N2 H' c. g' L1 o! {' q. J
procedure Button1Click(Sender: TObject);8 J& K7 ~" @+ Y# f4 q3 h3 p
private) C" y5 w+ R% r g
{ Private declarations }
; G8 F9 |; b5 [* A( v$ Y0 c public( e6 j' p* V5 t$ H
{ Public declarations }
, Y# d& Q+ p+ N2 w8 x end;</P><>var% [; ~9 {0 v, j% C+ w1 a$ W
Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
+ s9 T* W+ x9 m2 O, R' ^) Wvar4 y1 s8 \6 x% ~7 J4 \) j% Y5 g
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
: A- ~+ O5 I5 B! vbegin) V3 {3 T6 G# ~( Y3 i' Y+ O/ {* _
adoqlinchang.Close ;
/ b6 ?) z3 i$ kadoqyinglinqu.Close ;
7 w, U/ Z2 `& ]+ L# Y2 s, hadoqzuoyequ.Close ;
6 u( \' ~5 j2 Z J+ uadoqlinban.Close ;) y8 H" ]: t2 V1 @6 T Z' o6 z
adoqxiaoban.Close ;1 h/ [4 A( `5 ^1 O
adoqs.Close ;$ S0 u* |& \& @
adoqlinchang.SQL.Clear ;
~ S+ f7 E! o. G- r) ~. e/ Kadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
: l1 [2 ?7 t2 ]0 a' j8 Kadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
& c+ {2 a6 M- v" i( Y# V, n# radoqlinchang.Prepared ;2 m1 Q5 ~$ S' _" g
adoqlinchang.Open ;+ I; b( C* c# C' ^" ^0 R" C* j
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
0 U) N$ _7 N% Yadoqyinglinqu.SQL.Clear ;" P2 N% S& R. u5 G
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');+ q9 o- Q* W1 K) O. s
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;: |2 @7 L/ \$ _- l- o' o. ^
adoqyinglinqu.Prepared ;- C) d1 n' W0 V! P
adoqyinglinqu.Open ;' x) \6 t1 b1 e" t5 Y. d' x. {" ^
while not adoqyinglinqu.Eof
$ P9 J6 z1 Q% J6 b) S; ldo
# P4 W% k7 R0 Pbegin$ J. z* A; B2 O6 d: {0 R4 R C
stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
5 T5 `9 [9 q, g' v' l8 K; } strcodeying:=strlinchang+'999'+stryinglinqu;
9 C T1 M0 t8 u8 Z+ I) B* B6 W ADOQZuoYeQu.SQL.Clear;
9 F# e; I4 P/ T: l ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
% `6 d m) U+ d+ R ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
0 @3 U3 j. y6 e9 L1 g8 l0 P/ H) } ADOQZuoYeQu.Prepared;
9 {4 w" Z9 `0 Q% k ADOQZuoYeQu.Open ;: I# z! K6 b+ A6 W3 ]: F
while not adoqzuoyequ.Eof3 e, \3 P* u, E L
do
M* l; \- t, v begin, h3 b( |! J0 w$ J
strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ; <a>file://逐</A>个作业区的代码9 b- S) y( F! l* `. m4 P
strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;. S* G5 B4 z" w$ `( G* J/ U. N
ADOQLinBan.SQL.Clear;
5 H X K! P' t& D ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
; g U# O- v: g2 S3 Y% |: l ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
! D( | r& s" w, P8 D2 a8 p. T ADOQLinBan.Prepared;1 W# d+ y0 ^3 A
ADOQlinBan.Open;
+ I1 w* ]1 A0 d- _% I while not adoqlinban.Eof+ D2 i- T* ^) D5 I, v1 S; Y
do6 g0 p; G/ s1 I0 B
begin; }/ V! D% i4 `
strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
- U9 M5 k2 C+ I strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
H% t3 D5 F1 i) i2 Q- ~' q" a9 O adoqxiaoban.SQL.Clear ;
2 D# Q! l( A; l, l adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');8 b0 o: F- \3 w: c" |) [3 z
adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;6 E8 i) I: C# D4 Q
adoqxiaoban.Prepared ;
3 `: a. g7 o# [' c, d adoqxiaoban.Open ;) j3 P \$ ^8 \; d
while not adoqxiaoban.Eof
2 d' | U' k: b do$ P. I1 F' h; a
begin9 Q, @, s0 E' J( _8 D
strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );) _+ Z7 _3 K- _2 L1 V9 P% D/ K+ [3 Q
strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
! N7 d! a6 g) s strcode:=strlinban+strxiaoban;( c/ q) n: S9 y7 d
adoqs.SQL.Clear ;
/ @ q4 K5 Y6 a3 J0 o) f1 C% ^2 c adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
1 v; V I; m0 M5 H. E3 j/ p% Z adoqs.Prepared ;
: R' r; m9 D6 G9 R try
2 a3 j' s/ y' W a x3 N adoqs.Open ;1 \- t$ a W" ]( b. s
adoqxiaoban.Next ;
7 I+ a' {# k- {3 @) Y except" n6 n. }, m" z" a" j7 s. Z9 S! s( Z
showmessage('出错!');
3 l; E U3 F! A, { exit;+ {. E/ u1 W* w D
end;" ~) l- X5 Q; p
end;
! W% d3 x8 h8 X adoqlinban.Next ;
, d; C* r5 u$ O3 g! L end;" R$ P: I, {! D
adoqzuoyequ.Next;2 ]8 Z+ z& |, B7 A- `
end;
/ v' n$ M! m7 g7 i7 G& B, P7 q adoqyinglinqu.Next ;3 c; `1 Y, E' Z3 q* H
end;
; H; N0 c7 B2 P2 @; b adoqlinchang.Close ;
2 a% H" ?) S( n1 o4 v/ M adoqyinglinqu.Close ;
- ^' E- g6 q% p) I adoqzuoyequ.Close ;
2 D7 X+ Y) C _* @( W$ m adoqlinban.Close ;
' c2 B" B" Y+ D8 R: M9 G2 n adoqxiaoban.Close ;
; j- Z4 v/ t5 V% q7 c9 f* L adoqs.Close ;
9 y+ _ ^! p, q, L S$ H! send;</P><>end.</P> |
|