1 //----Delphi7调用过程开始----------------------------------------------------------------------------------------
2
3 首先在 public 中定义 i, RsCount: integer;
4 在frmMain中放置一个dbgrid , datasource, AdoStoredProc [name->sp], 和4个 Button, 设置好相关连接!
5
6 procedure TfrmMain.btnFirstClick(Sender: TObject);
7 begin
8 i := 1;
9 sp.ProcedureName := 'PageShowOne;1';
10 sp.Close;
11 sp.Parameters.ParamByName('@PageSize').Value := 50;
12 sp.Parameters.ParamByName('@PageCurrent').Value := i;
13 sp.Parameters.ParamByName('@FdName').Value := '图纸编号';
14 sp.Parameters.ParamByName('@SelectStr').Value := '图纸编号,模具形状一,模具形状二,模具形状三,最大高度,最大宽度,重量,有无波面,螺丝孔数';
15 sp.Parameters.ParamByName('@FromStr').Value := 'tuzhi';
16 sp.Parameters.ParamByName('@WhereStr').Value := '';
17 sp.Parameters.ParamByName('@OrderByStr').Value := '日期';
18 sp.Open;
19 Label1.Caption := '记录总数:'+IntToStr(sp.Parameters.ParamValues['@CountRows']);
20 Label2.Caption := '总页数:'+IntToStr(sp.Parameters.ParamValues['@CountPage']);
21 RsCount := sp.Parameters.ParamValues['@CountPage'];
22 Label3.Caption := '第 '+IntToStr(i)+ ' 页';
23 end;
24
25 procedure TfrmMain.btnNextClick(Sender: TObject);
26 begin
27 if i >= RsCount then
28 ShowMessage('已经是最后一页!')
29 else
30 i := i + 1;
31 sp.ProcedureName := 'PageShowOne;1';
32 sp.Close;
33 sp.Parameters.ParamByName('@PageSize').Value := 50;
34 sp.Parameters.ParamByName('@PageCurrent').Value := i;
35 sp.Parameters.ParamByName('@FdName').Value := '图纸编号';
36 sp.Parameters.ParamByName('@SelectStr').Value := '图纸编号,模具形状一,模具形状二,模具形状三,最大高度,最大宽度,重量,有无波面,螺丝孔数';
37 sp.Parameters.ParamByName('@FromStr').Value := 'tuzhi';
38 sp.Parameters.ParamByName('@WhereStr').Value := '';
39 sp.Parameters.ParamByName('@OrderByStr').Value := '日期';
40 sp.Open;
41 Label3.Caption := '第 '+IntToStr(i)+ ' 页';
42 end;
43
44 procedure TfrmMain.btnPriorClick(Sender: TObject);
45 begin
46 if i > 1 then
47 i := i - 1
48 else ShowMessage('已经是第一页了!');
49 sp.ProcedureName := 'PageShowOne;1';
50 sp.Close;
51 sp.Parameters.ParamByName('@PageSize').Value := 50;
52 sp.Parameters.ParamByName('@PageCurrent').Value := i;
53 sp.Parameters.ParamByName('@FdName').Value := '图纸编号';
54 sp.Parameters.ParamByName('@SelectStr').Value := '图纸编号,模具形状一,模具形状二,模具形状三,最大高度,最大宽度,重量,有无波面,螺丝孔数';
55 sp.Parameters.ParamByName('@FromStr').Value := 'tuzhi';
56 sp.Parameters.ParamByName('@WhereStr').Value := '';
57 sp.Parameters.ParamByName('@OrderByStr').Value := '日期';
58 sp.Open;
59 Label3.Caption := '第 '+IntToStr(i)+ ' 页';
60 end;
61
62 procedure TfrmMain.btnLastClick(Sender: TObject);
63 begin
64 i := RsCount;
65 sp.ProcedureName := 'PageShowOne;1';
66 sp.Close;
67 sp.Parameters.ParamByName('@PageSize').Value := 50;
68 sp.Parameters.ParamByName('@PageCurrent').Value := i;
69 sp.Parameters.ParamByName('@FdName').Value := '图纸编号';
70 sp.Parameters.ParamByName('@SelectStr').Value := '图纸编号,模具形状一,模具形状二,模具形状三,最大高度,最大宽度,重量,有无波面,螺丝孔数';
71 sp.Parameters.ParamByName('@FromStr').Value := 'tuzhi';
72 sp.Parameters.ParamByName('@WhereStr').Value := '';
73 sp.Parameters.ParamByName('@OrderByStr').Value := '日期';
74 sp.Open;
75 Label3.Caption := '第 '+IntToStr(i)+ ' 页';
76 end;
77 //--------------调用结束-------------------------------------------------------------------------------------------------------------------