querytem.~pas

来自「这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不」· ~PAS 代码 · 共 68 行

unit querytem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, LabelButton, TradeImage, Menus,
  ToolWin;

type
  Tquerytemplate = class(TForm)
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palRight: TPanel;
    imgRight: TImage;
    Panel1: TPanel;
    mmquery: TTradeImg;
    LabelBtn20: TLabelBtn;
    Image1: TImage;
    LabelBtn3: TLabelBtn;
    tiNew: TTradeImg;
    LabelBtn5: TLabelBtn;
    sb_del: TTradeImg;
    LabelBtn6: TLabelBtn;
    Panel2: TPanel;
    LabelBtn4: TLabelBtn;
    LabelBtn2: TLabelBtn;
    LabelBtn1: TLabelBtn;
    Panel3: TPanel;
    CB_Cond: TComboBox;
    edit1: TEdit;
    Panel4: TPanel;
    LV_SQL: TListView;
    RG_Cond: TRadioGroup;
    CheckBox1: TCheckBox;
    procedure sb_delClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  querytemplate: Tquerytemplate;

implementation

{$R *.dfm}

procedure Tquerytemplate.sb_delClick(Sender: TObject);
var    {*****删除按钮单击事件*****}
    No:integer;
begin
  No := LV_SQL.ItemIndex;    //获得用户选择ListView的记录值
    if lv_sql.items.count=0 then
    begin
    showmessage('没有需要删除的记录');
    end
    else
    LV_SQL.Items.Delete(No);   //删除用户选择ListView记录
end;

end.