stockinfo1edit.~pas

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

unit StockInfo1Edit;

interface

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

type
  TStockEdit = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Bevel2: TBevel;
    Bevel3: TBevel;
    ListView1: TListView;
    Query1: TADOQuery;
    ListView2: TListView;
    PicButton2: TPicButton;
    PicButton3: TPicButton;
    PicButton7: TPicButton;
    procedure PicButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure PicButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StockEdit: TStockEdit;
 
implementation

{$R *.dfm}
uses common,stockinfo1edit1;
procedure TStockEdit.PicButton7Click(Sender: TObject);
begin
   //PostMessage(self.handle, WM_CLOSE, 0, 0);
   DefWindowProc(Handle, WM_SYSCOMMAND, SC_CLOSE, 0);

end;

procedure TStockEdit.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.Picture.Bitmap,handle);
     FillValuetoListview(query1,'SELECT *  FROM  billTable',0,listview1);

end;

procedure TStockEdit.Image2Click(Sender: TObject);
begin
  DefWindowProc(handle,wm_syscommand,sc_close,0);
end;

procedure TStockEdit.ListView1DblClick(Sender: TObject);
var
   listitem:Tlistitem;
   i:integer;
begin
    listitem:=listview1.items.add;
    billcode:=listview1.Selected.Caption;
    //showmessage(billcode);
    for i:=1 to 5  do
    begin
      strValue[i-1]:=listview1.Selected.Subitems.strings[i-1];
    end;
    stockedit1:=Tstockedit1.Create(Application);
    stockedit1.Show;
end;

procedure TStockEdit.PicButton2Click(Sender: TObject);

begin


    //strEdit:='UPDATE billTable SET  billdate="'+strValue[0]+'",billSum='+strValue[1]+',checker="'+strValue[2]+'",other="'+strValue[3]+'",city="'+strValue[4]+'"  where  billcode="'+billcode+'"';
    //Showmessage(strEdit);
end;

end. procedure TStockEdit.PicButton2Click(Sender: TObject);
begin

end;