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

数据库操作与表格填充技巧

最新推荐文章于 2025-05-02 14:46:26 发布

原创最新推荐文章于 2025-05-02 14:46:26 发布 · 549 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #insert #integer #出版

应用之delphi 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了在数据库操作中如何确保DBEdit控件只输入数字，如何清空StringGrid中的值（除了第一行标题），如何从ADOQuery填充StringGrid各个单元格，并详细解释了将StringGrid中特定类型的记录插入到表中的方法。

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;