1 procedure TForm1.btnFirstClick(Sender: TObject);
 2 begin
 3 
 4   sp1.Close;
 5   sp1.Parameters.Clear;
 6   sp1.ProcedureName:= 'Proc_SplitPage2';
 7 
 8   sp1.Parameters.CreateParameter('tblName',ftString,pdInput,20,fgUnassigned);
 9   sp1.Parameters.CreateParameter('strFields',ftString,pdInput,20,fgUnassigned);
10   sp1.Parameters.CreateParameter('strOrders',ftString,pdInput,20,fgUnassigned);
11   sp1.Parameters.CreateParameter('strOrderType',ftString,pdInput,20,fgUnassigned);
12   sp1.Parameters.CreateParameter('PageSize',ftInteger,pdInput,4,fgUnassigned);
13   sp1.Parameters.CreateParameter('PageIndex',ftString,pdInput,20,fgUnassigned);
14   sp1.Parameters.CreateParameter('strWhere',ftString,pdInput,20,fgUnassigned);
15 
16   // exec [Proc_SplitPage2] 'NewsInfo','*','ID','ASC',10,3,''
17   sp1.Parameters[0].Value := 'NewsInfo';
18   sp1.Parameters[1].Value := '*';
19   sp1.Parameters[2].Value := 'ID';
20   sp1.Parameters[3].Value := 'DESC';
21   sp1.Parameters[4].Value :=  10;
22   sp1.Parameters[5].Value :=  1;
23   sp1.Parameters[6].Value := '';
24 
25   sp1.ExecProc;
26   sp1.Open;
27   
28 end;
29 
30 procedure TForm1.FormShow(Sender: TObject);
31 begin
32   pageIndex := 1;
33 end;
34 
35 procedure TForm1.btnPreClick(Sender: TObject);
36 begin
37 
38   sp1.Close;
39   sp1.Parameters.Clear;
40   sp1.ProcedureName:= 'Proc_SplitPage2';
41 
42   sp1.Parameters.CreateParameter('tblName',ftString,pdInput,20,fgUnassigned);
43   sp1.Parameters.CreateParameter('strFields',ftString,pdInput,20,fgUnassigned);
44   sp1.Parameters.CreateParameter('strOrders',ftString,pdInput,20,fgUnassigned);
45   sp1.Parameters.CreateParameter('strOrderType',ftString,pdInput,20,fgUnassigned);
46   sp1.Parameters.CreateParameter('PageSize',ftString,pdInput,20,fgUnassigned);
47   sp1.Parameters.CreateParameter('PageIndex',ftString,pdInput,20,fgUnassigned);
48   sp1.Parameters.CreateParameter('strWhere',ftString,pdInput,20,fgUnassigned);
49 
50   // exec [Proc_SplitPage] 'NewsInfo','*','ID','DESC','10','1',''
51   sp1.Parameters[0].Value := 'NewsInfo';
52   sp1.Parameters[1].Value := '*';
53   sp1.Parameters[2].Value := 'ID';
54   sp1.Parameters[3].Value := 'ASC';
55   sp1.Parameters[4].Value := '10';
56   pageIndex := pageIndex - 1;
57   sp1.Parameters[5].Value :=  pageIndex;
58   sp1.Parameters[6].Value := '';
59 
60   sp1.ExecProc;
61   sp1.Open;
62 end;
63 
64 procedure TForm1.btnNextClick(Sender: TObject);
65 begin
66 
67   sp1.Close;
68   sp1.Parameters.Clear;
69   sp1.ProcedureName:= 'Proc_SplitPage2';
70   sp1.Parameters.CreateParameter('tblName',ftString,pdInput,20,fgUnassigned);
71   sp1.Parameters.CreateParameter('strFields',ftString,pdInput,20,fgUnassigned);
72   sp1.Parameters.CreateParameter('strOrders',ftString,pdInput,20,fgUnassigned);
73   sp1.Parameters.CreateParameter('strOrderType',ftString,pdInput,20,fgUnassigned);
74   sp1.Parameters.CreateParameter('PageSize',ftString,pdInput,20,fgUnassigned);
75   sp1.Parameters.CreateParameter('PageIndex',ftString,pdInput,20,fgUnassigned);
76   sp1.Parameters.CreateParameter('strWhere',ftString,pdInput,20,fgUnassigned);
77 
78   sp1.Parameters[0].Value := 'NewsInfo';
79   sp1.Parameters[1].Value := '*';
80   sp1.Parameters[2].Value := 'ID';
81   sp1.Parameters[3].Value := 'ASC';
82   sp1.Parameters[4].Value := '10';
83   pageIndex := pageIndex + 1;
84   sp1.Parameters[5].Value :=  pageIndex;
85   sp1.Parameters[6].Value := '';
86 
87   sp1.ExecProc;
88   sp1.Open;
89 end;