以前总是以为写程序能赚钱,后来才发现能赚钱的程序都是以数据库为主,慢慢的就变的对编程失去了很大的兴趣,8 [2 p0 u# c9 }" d
/ u7 l$ w7 X7 Y+ |7 ?7 W5 W$ P
原本是因为乐趣去编写程序,现在是为了生存去编写程序,数据库的合理应用是很重要的,只有基础建设好了才能有好的效果- N4 F: t: k" A! e' E
1 a! r/ o1 m2 w: T3 a9 D
! }$ z; t' r( w1 D7 @$ ]: U 说这么多没用的,我知道现在人的思想是只需要代码就搞顶,为了让更多的人通过搜索来到老阿这能直接的拿到他需要的,我就直接发代9 h; D) d2 U6 w" y) O) n& a9 y8 j
1 f: y8 O! M7 O, m% ]码,老阿这我很少来,今天既然来了就发帖谢谢他给我带来的帮助.....看下面,我写的一套管理系统中的一段查询抽成的代码..
$ Y; x4 V$ z0 ?" z
4 F" p7 b7 a! [' u0 `
4 P& _& b+ c8 k' W# `因为我无法上传图片所以大家看不到我的程序..! o O# |/ a, C; _( ^# q
& f' ]( ~! _9 ~- C7 o9 @# I8 l: p) Z/ z8 `, E( ?
procedure TForm7.ComboBox1Select(Sender: TObject);
" z" y, N; ?1 z# avar0 O# v" ^1 e$ z, P( p
s:string;2 }$ u/ ]; m' l8 W
value,profit:double;4 w( V, G6 {, M4 k) j- ^
begin' o/ ^. t1 E0 ~+ r, A9 l
s:=combobox1.Text;
$ e& [" E5 [8 G$ b" U Idb1.Close;
9 D& u( T, o* x* I$ C6 p3 ndb1.SQL.Clear;* r& d) R6 c& B) [
db1.SQL.Add('select * from 抽成统计 ') ;
3 K$ e8 R3 L, P& ?* Z9 K0 xdb1.sql.Add('where 经办人=');) {& A4 q- A2 \. B N% T4 h' o
db1.sql.add(''''+combobox1.text+'''' );$ Z1 V3 {& A6 B t
db1.sql.add('order by 日期');
- @4 p! @8 {% ^) ?# `5 Zdb1.Open;
: H5 I3 q: b, j5 ndb1.First;6 s* `) e5 M& v3 p& [
profit:=0;
3 _2 I% F1 I4 }$ {& o0 Vdb1.First;+ L0 J0 `& L3 l
while not db1.Eof do$ b* ~' F: L) D: }5 V8 n5 T2 G
begin
! F1 H; ]; \1 K; Z, qvalue:=value+db1.FieldValues['实收金额'];
% k$ b* C# x/ k$ d% ~profit:=profit+db1.FieldValues['提成'];
4 T. z; ? s3 q4 `& }db1.Next;
0 @ U: ]# m uend;6 t* L, K# B: T1 m0 k* G
edit1.Text :=floattostr(value);
7 N3 f# p) Y9 Q6 }' Vedit2.Text :=floattostr(profit);6 G6 d6 c% O" F6 R4 Q+ ]
end;+ P+ \( t+ n G1 a2 W$ u/ r! M
- w7 H: N; l% u; k) W. }上面的代码是在ComboBox1中直接选择一个员工的名字就能自动的算出他的提成,和明细的资料显示在表格中.." i7 G+ n5 J. b# G
+ u5 G5 A1 [# O; i( M8 O3 f6 ^ 希望对你有所帮助.再次谢谢老阿给我的帮助.
你知道吗？
