stock.pas

来自「一个进销存软件,便于管理仓库数据」· PAS 代码 · 共 67 行

unit Stock;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  TFrm_Stock = class(TForm)
    ListView1: TListView;
    BtExit: TBitBtn;
    procedure BtExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Stock: TFrm_Stock;

implementation
uses DMKC;
{$R *.dfm}

procedure TFrm_Stock.BtExitClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Stock.FormShow(Sender: TObject);
Var
  Item: TListItem;
begin
{清除ListView1中数据}
  ListView1.Items.Clear;
  with DMk.KCQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from KC');
      Open;
//      ExecSQL;
      first;
      while not Eof do
      begin
        Item := ListView1.Items.Add;
        Item.Caption := FieldByName('编码').AsString;
        Item.SubItems.Add(FieldByName('品名').AsString);
        Item.SubItems.Add(inttostr(FieldByName('数量').AsInteger));
        Next;
      end;
    end;
end;


procedure TFrm_Stock.FormCreate(Sender: TObject);
begin
{选择整行}
  ListView1.RowSelect:=true;
end;

end.