仓库软件设计

Question

两个表
GOODS库存表
Gid
Gname
Gnum(库存)S1表
Sid自动递增
Gid
Type出入标记
Num 进出数量
 Date_1日期在做入库的按钮
用UPDATE
procedure TForm6.Button1Click(Sender: TObject);
begin
  self.ADOQuery1.Close;
  self.ADOQuery1.SQL.Clear;
  self.ADOQuery1.SQL.Add('select gnum from goods where gid=''' + edit1.Text + '''');
  self.ADOQuery1.Open;  self.Edit2.Text:= self.ADOQuery1.FieldByName('gnum').AsString;
end;