学习delphi过程中收集的一些功能代码(整理中)

目录：

1.控件在DBEdit中只能输入数字;

2.清空stringgrid中的值(除第一行标题外);

3.填充stringgrid的各个单元格(数据源是ADOQuery,表格第一行是标题，不填充)

4.把stringgrid中类型为'新增'的记录插入表

**************

内容

1.控件在DBEdit中只能输入数字

procedure TBookOrder.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
if(key<=#39)and(key>=#30) then
dbedit6.Text:=dbedit6.Text+key;
end;

2.清空stringgrid中的值(除第一行标题外)

//本例子假设stringgrid1有7列12行

procedure TBookBorrow.cleargrid;
var
i,j:integer;
begin
for i:=1 to 11 do
for j:=0 to 6 do
stringgrid1.Cells[j,i]:='';
end;

3.填充stringgrid的各个单元格(数据源是ADOQuery,表格第一行是标题，不填充)

var

i : Integer;

begin

i := 1;

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from 借阅情况');

ADOQuery2.Open;
i := 1; //i在这里既是统计记录数的变量，又是表表格的行号;
while not ADOQuery2.Eof do
begin
stringgrid1.Cells[0,i] := ADOQuery2.FieldByName('状态').AsString;
stringgrid1.Cells[1,i] := ADOQuery2.FieldByName('图书编号').AsString;
stringgrid1.Cells[2,i] := ADOQuery2.FieldByName('书名').AsString;
stringgrid1.Cells[3,i] := ADOQuery2.FieldByName('借书时间').AsString;
stringgrid1.Cells[4,i] := ADOQuery2.FieldByName('应还时间').AsString;
stringgrid1.Cells[5,i] := ADOQuery2.FieldByName('出版社').AsString;
stringgrid1.Cells[6,i] := ADOQuery2.FieldByName('价格').AsString;
i := i + 1;
ADOQuery2.Next;
end;

end;

4.把stringgrid中类型为'新增'的记录插入表

procedure TBookBorrow.ToolButton1Click(Sender: TObject);
var
maxnum : Integer;
i : Integer;
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select max(借阅编号)as 最大编号 from ͼÊé½èÔÄ');
ADOQuery2.Open;
maxnum := (ADOQuery2.FieldByName('最大编号').AsInteger)+1;

ADOCommand1.CommandText := 'SET IDENTITY_INSERT 图书借阅 ON';
ADOCommand1.Execute;
for i :=1 to 12 do
if stringgrid1.Cells[0,i]= '新增' then
begin
adocommand1.CommandText:='insert into 图书借阅([借阅编号], [图书编号], [读者编号], [借阅时间], [应还时间], [续借次数], [状态) values('''+inttostr(maxnum)+''','''+stringgrid1.Cells[1,i]+''','''+usernum+''','''+stringgrid1.Cells[3,i]+''','''+stringgrid1.cells[4,i]+''',''0'',''未还'')';
adocommand1.Execute;
maxnum := maxnum + 1;
end;
ADOCommand1.CommandText := 'SET IDENTITY_INSERT 图书借阅 OFF';
ADOCommand1.Execute;
end;