Dephi中使用ListView

最新推荐文章于 2017-10-26 08:54:34 发布

原创最新推荐文章于 2017-10-26 08:54:34 发布 · 2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#listview #integer #string

本文介绍了一种使用Delphi实现的药品类型管理界面的设计方法，包括初始化列头和给ListView控件填充数据的过程。该界面支持展示不同类型药物的编码、名称、输入码及备注等信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//初始化列头
procedure inithead(i:integer);
begin
frmBaseDrugType.lv.Columns.Clear;
frmBaseDrugType.lv.Items.Clear;
frmBaseDrugType.lv.GridLines:=true;
frmBaseDrugType.lv.RowSelect:=true;
//frmBaseDrugType.lv.
frmBaseDrugType.lv.ViewStyle:=vsReport;
frmBaseDrugType.lv.Columns.Add;
frmBaseDrugType.lv.Columns[0].Caption:='@';
frmBaseDrugType.lv.Columns[0].Width:=0;
case i of
    1:
      begin
        frmBaseDrugType.lv.Columns.Add;
        frmBaseDrugType.lv.Columns[1].Caption:='类型编码';
        frmBaseDrugType.lv.Columns[1].Width:=80;
        frmBaseDrugType.lv.Columns[1].Alignment:=taCenter;
        frmBaseDrugType.lv.Columns.Add;
        frmBaseDrugType.lv.Columns[2].Caption:='类型名称';
        frmBaseDrugType.lv.Columns[2].Width:=180;
        frmBaseDrugType.lv.Columns.Add;
        frmBaseDrugType.lv.Columns[3].Caption:='输入码';
        frmBaseDrugType.lv.Columns[3].Width:=180;
      end;
end;
frmBaseDrugType.lv.Columns.Add;
frmBaseDrugType.lv.Columns[4].Caption:='备注';
frmBaseDrugType.lv.Columns[4].Width:=180;
end;

//给listView中写入数据

procedure initdata(strsql:string);
var
    iindex:integer;
    litem:tlistitem;
begin
try
    dm.ADOQuery1.Connection:=dm.dbcn;
    dm.ADOQuery1.SQL.Clear;
    dm.ADOQuery1.SQL.Add(strsql);
    dm.ADOQuery1.Active:=true;
    dm.ADOQuery1.ExecSQL;
    iindex:=1;
    while not dm.ADOQuery1.Eof do
      begin
        litem:=frmbasedrugType.lv.Items.Add;
        litem.Caption:=intToStr(iindex);
        litem.SubItems.Add(dm.ADOQuery1.Fields[0].AsString);
        litem.SubItems.Add(dm.ADOQuery1.Fields[1].AsString);
        litem.SubItems.Add(dm.ADOQuery1.Fields[2].AsString);
        litem.SubItems.Add(dm.ADOQuery1.Fields[3].AsString);
        iindex:=iindex+1;
        dm.ADOQuery1.Next;
      end;
except
    MessageDlg('错误：数据读取错误！',mtError,[mbok],0);
    exit;
end;
end;