storepileinfo.pas

来自「是一款针对啤酒行业的销售进销存管理系统,包括基本的进货,销售,库存」· PAS 代码 · 共 53 行

unit StorePileInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls, DB, ADODB;

type
  TStorePile = class(TForm)
    Image1: TImage;
    Image2: TImage;
    DBgrid: TStringGrid;
    Bevel1: TBevel;
    Label1: TLabel;
    Query1: TADOQuery;
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StorePile: TStorePile;

implementation

{$R *.dfm}
uses common;
procedure TStorePile.Image2Click(Sender: TObject);
begin
   close;
end;

procedure TStorePile.FormCreate(Sender: TObject);
begin
    ShowPloyForm(image1.Picture.Bitmap,handle);
    //////
    Dbgrid.Cells[0,0]:='编号';
    DBgrid.Cells[1,0]:='产品名称';
    Dbgrid.ColWidths[1]:=130;
    Dbgrid.Cells[2,0]:='规格';
    DBgrid.Cells[3,0]:='容量';
    Dbgrid.Cells[4,0]:='库存量(箱)';
    Dbgrid.Cells[5,0]:='库存量(瓶)';
    DBgrid.Cells[6,0]:='所属市';
    FillValueToListview(query1,'SELECT *  FROM  storeTable order by code',0,Dbgrid);
end;

end.